vb程序填空题-.pdf

《vb程序填空题-.pdf》由会员分享，可在线阅读，更多相关《vb程序填空题-.pdf（50页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、三、填空题1、【程序说明】下列程序显示所有3 个数码各不相同的3 位数，要求按紧凑格式每行显示15 个数，并统计有多少个这样的三位数。Private Sub Form_Click()Dim n As Integer,a As Integer,b As Integer,c As Integer Dim x As Integer For a=0 to 9 个位数数码 For b=0 To 9 十位数数码 For c=-1-If ab And bc And ac Then x=a+10*(b+10*c)n=-2-3-If n mod 15=0 Then Print End If Next c,b,a

2、 Print 总共有这样的三位数;n;个 End Sub 1、1 to 9 2、n+1 或 1+n 3、print x;2、【程序说明】窗体是密码检验程序。程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。密码正确后，标签label2 显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3 次，将自动退出程序。Private Sub Command1_Click()确定按钮 Static n As Integer -1-mypwd As String=123456 预设密码为自定义常量 n=n+1 Label2.Visible=True If -2-Then La

3、bel2.Caption=密码正确 Else If n 3 Then Label2.Caption=密码错误！Text1.Text=Else -3-End If End If End Sub 1、CONST 2、Text1.text=mypwd 或 mypwd=text1.text 或 Text1=mypwd 或 mypwd=text1 3、End 3、【程序说明】在组合框中选择形状后，窗体中控件Shape1 的形状和边框线作相应变化。程序运行时如下图Private Sub Combo1_Click()Shape1.Shape=Combo1.List(-1-)-2-=Int(Rnd*7)End

4、 Sub Private Sub Form_Load()Dim I As Integer For I=0 To 5:-3-:Next I End Sub 1、Combo1.ListIndex 2、Shape1.BorderStyle 3、Combo1.AddItem Str(I)或 Combo1.list(I)=I 4、【程序说明】右击窗体则打开Windows 自带的计算器“C:windowscalc.exe”；单击“退出”按钮时将右击窗体的次数写入磁盘文件,并结束程序运行。-1-Private Sub Form_MouseUp(Button As Integer,Shift As Integ

5、er,_ X As Single,Y As Single)If Button=2 Then n=n+1:Shell “C:windowscalc.exe”End Sub Private Sub Command1_Click()Open C:a1.dat For-2-Print#1,n:Close#1 -3-End Sub 1、dim n as integer 2、output as#1 3、end 三、填空题(请把正确的选项填入试题前的空格中)第 1 题：【程序说明】单击窗体后，在窗体上输出以下图形:Private Sub Form_Click()Dim I%,j%,st$For I=1 To

6、-1-st=Chr$(65+I-1)Print Tab(10-I);For j=1 To I Print st;Next j -2-Next I For I=7 To 1 Step-1 st=Chr$(65+I-1)Print Tab(10-I);For j=1 To-3-Print st;Next j Print Next I End Sub 1、6 2、Print 3、I 第 2 题：【程序说明】窗体是简易文本编辑器程序。通过文本框和剪贴板实现全选、复制、粘贴和删除操作。Private Sub Command1_Click()全选按钮 Text1.SelStart=0 Text1.SelL

7、ength=-1-Text1.SetFocus Command2.Enabled=True Command3.Enabled=True Command4.Enabled=True End Sub Private Sub Command2_Click()复制按钮 Clipboard.Clear Clipboard.SetText Text1.SelText Command3.Enabled=True Text1.SetFocus End Sub Private Sub Command3_Click()粘贴按钮 Text1.SelText=-2-Text1.SetFocus End Sub Pri

8、vate Sub Command4_Click()删除按钮 -3-Command2.Enabled=False Command3.Enabled=False Command4.Enabled=False End Sub Private Sub Form_Load()Command2.Enabled=False Command3.Enabled=False Command4.Enabled=False End Sub Private Sub Text1_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)If Te

9、xt1.SelLength 0 Then Command2.Enabled=True Command4.Enabled=True Else Command2.Enabled=False Command4.Enabled=False End If End Sub 1、Len(Text1.Text)或 Len(Text1)2、Clipboard.GetText 3、Text1.SelText=第 3 题：【程序说明】自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1 秒在图片框中显示另一张图片，显示到最后一张图片时，又从

10、第一张开始显示。（假设在 C:Windows 目录下有 1.bmp、2.bmp、,、8.bmp 这样 8 张图片需显示）Dim I As Integer Private Sub Form_Load()I=-1-Picture1.Picture=LoadPicture(c:windows1.bmp)Picture1.AutoSize=True End Sub Private Sub Timer1_Timer()If I=7 Then-2-Else I=1 End If Picture1.Picture=-3-End Sub 1、1 2、I=I+1 或 I=1+I 3、LoadPicture(c:

11、windows&I&.bmp)或LoadPicture(c:windows+trim(str(I)+.bmp)第 4 题：【程序说明】文件c:a1.dat 中存放若干个学生信息的记录（行），按 Command1 按钮后，查找文件中姓名与输入姓名相同的记录，找到则删除该记录。Private Sub Command1_Click()Dim bs As String,cs As String Open c:a1.dat-1-Open temp.dat For Output As#2 bs=InputBox(输入学生姓名)Do While Not Eof(1)Line Input#1,cs if In

12、Str(cs,Trim(bs)=-2-Then print#2,cs Loop Close#1:Close#2 Kill-3-Name “temp.dat”as“c:a1.dat”End Sub 1、For Input As#1 2、0 3、c:a1.dat 三、填空题1：【程序说明】该程序执行后，输出一个右上三角元素（含对角线）为1，其余元素为0 的 55的矩阵。Private Sub Form_Click()Dim a(1 To 5,1 To 5)As Integer Dim I As Integer,j As Integer For I=1 To 5 For j=1 To 5 If-1-

13、Then-2-End If Next j Next I For I=1 To 5 For j=1 To 5 Form2.Print ;a(I,j);Next j-3-Next I End Sub 1、I=I 2、a(I,j)=1 3、print 2：【程序说明】如图，程序运行时，用户可以在文本框中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；如果没有任何一项选中，将有出错提示先选择，再删除！。Private Sub Command1_Click()添加按钮If Len(Text1

14、.Text)0 Then-1-Text1.Text=Text1.SetFocus End If End Sub Private Sub Command2_Click()删除按钮If-2-Then MsgBox 先选择，再删除！Else-3-End If End Sub 1、List1.AddItem Text1.Text 2、List1.ListIndex=-1 3、List1.RemoveItem List1.ListIndex 3：【程序说明】自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1 秒在图片框中显示另

15、一张图片，显示到最后一张图片时，又从第一张开始显示。（假设在C:Windows目录下有1.bmp、2.bmp、,、8.bmp 这样 8张图片需显示）Dim-1-As Integer Private Sub Form_Load()I=1 Picture1.Picture=LoadPicture(c:windows1.bmp)Picture1.AutoSize=True End Sub Private SubTimer1_-2-If-3-Then I=I+1 Else I=1 End If Picture1.Picture=LoadPicture(c:windows&I&.bmp)End Sub

16、1、I 2、Timer()3、I=7 或 I=-1-If List1.Selected(i)=True Then-2-End If-3-Wend End Sub 1、0 2、List1.RemoveItem I 3、i=i-1 第 3题：【程序说明】自制一个简单的图片浏览器。在窗体上建立一个图片框控件、一个时钟控件和一个命令按钮。运行时，显示第一张图片，单击“浏览”按钮每隔1 秒在图片框中显示另一张图片，显示到最后一张图片时，又从第一张开始显示。（假设在C:Windows目录下有1.jpg、2.jpg、,、8.jpg 这样 8 张图片需显示）Dim i As Integer Private S

17、ub Form_Load()i=1 Picture1.Picture=-1-Picture1.AutoSize=True End Sub Private Sub Timer1_Timer()If i=7 Then i=i+1 Else i=1 End If-2-End Sub Sub pic()Dim fn As String fn=c:windows&i&.jpg Picture1.Picture=-3-End Sub 1、LoadPicture(c:windows1.jpg)2、Call pic 或 pic 3、LoadPicture(fn)第 4题：【程序说明】在窗体内设置一个弹出式菜单

18、，分别对文本框进行“显示时间”、“显示日期”和“清空”操作。m1 为不可见菜单项，m11 为其子菜单（共项，均同名，索引值依次为0，1，2）。鼠标右击窗体后显示弹出式菜单。Private Sub Form_Load()Timer1.Enabled=False 锁定定时器（时间间隔已设置为1 秒）End Sub Private Sub m11_Click(Index As Integer)Select Case Index Case 0:Timer1.Enabled=-1-Case 1 Timer1.Enabled=False:Text1.Text=日期：+-2-Case 2 Text1.Tex

19、t=End Select End Sub Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_ x As Single,y As Single)If Button=2 Then-3-,2 End Sub Private Sub Timer1_Timer()Text1.Text=时间：+Time End Sub 1、True 2、Date 3、PopUpMenu m1 三、填空题第 1 题：【程序说明】以下程序执行后将产生一个66 的转置矩阵，将二维数组中所有行和对应列的元素进行交换。Private Sub Form_Cl

20、ick()Dim a(1 To 6,1 To 6)As Integer Dim i As Integer,j As Integer Form1.Print 原始数据 For i=1 To 6 For j=1 To 6 a(i,j)=Int(Rnd*10)Form1.Print a(i,j);Next j Form1.Print Next i For i=2 To 6 For j=1 To-1-2-Next j Next i Form1.Print 转置后数据 For i=1 To 6 For j=1 To 6-3-Next j Form1.Print Next i End Sub Public

21、 Sub Swap(a As Integer,b As Integer)Dim temp As Integer temp=a a=b b=temp End Sub 1、I 2、Call Swap(a(I,j),a(j,I)或.Swap a(I,j),a(j,I)3、Print a(i,j);第 2 题：【程序说明】本程序利用1 个定时器、1 个文本框和2 个命令按钮制作一个动态表。各控件名称取缺省值，控件Command1、Command2 标题分别为“开始”、“结束”。运行时，单击“开始”按钮后表开始每分钟计一次时，并在文本框上显示总分钟数；单击“结束”按钮后，计时结束，在窗体上显示出运行的时

22、间（折算成小时、分钟，不计算秒数）。Dim x as long Private Sub Form_Load()Timer1.Interval=60000:Timer1.Enabled=False End Sub Private Sub Command1_Click()Cls x=0-1-End Sub Private Sub Command2_Click()Dim h As Integer,m As Integer,s As Integer Timer1.Enabled=False h=-2-m=x mod 60 Print 运行了 +Str(h)+小时 +Str(m)+分 End Sub P

23、rivate Sub Timer1_Timer()-3-Text1.text=x End Sub 1、Timer1.enabled=true 2、x60 3、x=x+1 第 3 题：【程序说明】程序运行时界面如下图，红桃、梅花、方块、黑桃的图形文件在界面设计时已经在属性窗口中设置好，而且使用的是Image1 控件数组，程序运行时，单击Image1 时，Image2 显示相应的图片，同时在Picture1 中用蓝色显示哪个图案被选中的文字信息。Private Sub Image1_Click(Index As Integer)-1-Picture1.FontSize=20-2-=vbBlue P

24、icture1.Cls-3-Case 0 Picture1.Print 红桃被选中 Case 1 Picture1.Print 草花被选中 Case 2 Picture1.Print 方片被选中 Case 3 Picture1.Print 黑桃被选中 End Select End Sub 1、Image2.Picture=Image1(Index).Picture 2、Picture1.ForeColor 3、Select Case Index 第 4 题：【程序说明】程序运行时，通过单击窗体显示“字体”对话框，并对文本框的字体、字号和字效等进行设置。Private Sub Form_Clic

25、k()-1-259 CommonDialog1.Action=-2-Text1.FontBold=-3-Text1.FontItalic=CommonDialog1.FontItalic Text1.FontName=CommonDialog1.FontName Text1.FontSize=CommonDialog1.FontSize End Sub 1、CommonDialog1.Flags 2、4 3、CommonDialog1.FontBold 三、填空题第 1题：【程序说明】以下程序执行后将输出100 到 200 之间所有的素数，并统计素数的个数Private Sub Form_Cl

26、ick()Dim i%,j%,k%,t%t 为统计素数的个数Dim b As Boolean For i=100 To 200 b=True k=-1-j=Int(Sqr(i)Do While k=j And b If i Mod k=0 Then-2-End If-3-Loop if b=true then t=t+1 Form1.Print i End If Next i Print t=;t End Sub 1、2 2、b=False 3、k=k+1 第 2 题：【程序说明】下列程序运行时，单击Command1(0)后，清空组合框原有内容，从外部文件中读入的数据显示在组合框中，如图所示。

27、单击Command1(1)后，将组合框中的各表项输出到外部文件；单击Command1(2)后，将组合框中文本框部分的文本添加作为组合框的表项；单击 Command1(3)后，将组合框中选中的表项删除。Private Sub Command1_Click(Index As Integer)Select Case Index Case 0-1-Open d:aaa.txt For Input As#1 Do While Not EOF(1)Line Input#1,a$Combo1.AddItem a$Loop Close#1 Case 1 Open d:aaa.txt For Output As

28、#1 For I%=0 To-2-Print#1,Combo1.List(I%)Next I%Close#1 Case 2 添加Combo1.AddItem Combo1.Text Case 3 删除-3-End Select End Sub 1、Combo1.Clear 2、Combo1.ListCount-1 3、Combo1.RemoveItem Combo1.ListIndex 第 3 题：【程序说明】程序运行后，鼠标多次在图片框内拖动后，绘制出多个绿色边框矩形，填充样式在“实心”、“透明”间交替变换。-1-Private Sub Picture1_MouseDown(Button A

29、s Integer,_ Shift As Integer,X As Single,Y As Single)x0=X:y0=Y End Sub Private Sub Picture1_MouseUp(Button As Integer,Shift As Integer,_ X As Single,Y As Single)If-2-Then Picture1.FillStyle=0 Else Picture1.FillStyle=1 End If-3-End Sub 1、Dim x0 As Single,y0 As Single或 Dim x0!,y0!2、Picture1.FillStyle

30、0或 Picture1.FillStyle=1 3、Picture1.Line(x0,y0)-(X,Y),RGB(0,255,0),B 第 4 题：【程序说明】设计一个简单的图片浏览程序。单击窗体后，显示“打开文件”对话框，选中一个图片文件后，将其显示在图片框中。要求“打开文件”对话框只能显示bmp 文件或 gif 文件。Private Sub Form_Click()CommonDialog1.DialogTitle=”打开图片文件”CommonDialog1.InitDir=”c:Picture”-1-=bmp 文件|*.bmp|gif 文件|*.gif-2-Picture1.Pictur

31、e=LoadPicture(-3-)End Sub 1、CommonDialog1.Filter 2、CommonDialog1.ShowOpen 或 CommonDialog1.Action=1 3、CommonDialog1.FileName 三、填空题第 1 题：【程序说明】下列程序的功能是找出被5、7除，余数为1 的最小 5 个正整数。Private Sub Form_Click()Dim Ncount%,n%Ncount=-1-n=1 Do n=n+1 If-2-Then Print n Ncount=Ncount+1 End If Loop Until-3-=5 End Sub 1

32、、0 2、n Mod 5=1 And n Mod 7=1 3、Ncount 第 2 题：【程序说明】本程序是一个比赛评分程序。在窗体上有text1（0）text1（6）文本框数组，显示最后得分的text2 文本框和“计算得分”command1 命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在text2 文本框中（去掉一个最高分和一个最低分后的平均分）Private Sub Command1_Click()Dim k As Integer Dim sum As Single,max As Single,min As Single sum=Text1(0):m

33、ax=Text1(0):-1-For-2-step 1 If max Text1(k)Then min=Text1(k)End If sum=sum+Text1(k)Next k Text2.Text=(-3-)/5 End Sub 1、min=Text1(0)或 min=Text1(0).text 或 min=max 2、k=1 To 6 3、sum-min max 或 sum-max min 第 3 题：【程序说明】窗体上有两个图片框控件Picture1 和 Picture2，两个命令按钮command1（标题为“加载”）和 command2（标题为“复制”），程序运行时，“复制”按钮不可

34、用，图片框控件Picture2和 Picture1 大小相同，单击“加载”按钮，清除Picture2 中的图片，打开通用对话框，选择一个图形文件，在图片框控件Picture1 中显示，同时“复制”按钮可用，“加载”按钮不可用；单击“复制”按钮，将Picture1 的图片复制到Picture2 中，同时“加载”按钮可用，“复制”按钮不可用。Private Sub Form_Load()Picture2.Width=Picture1.Width-1-Command2.Enabled=False End Sub Private Sub command1_Click()CommonDialog1.Sh

35、owOpen-2-Picture1.Picture=-3-Command2.Enabled=True Command1.Enabled=False End Sub Private Sub command2_Click()Picture2.Picture=Picture1.Picture Command1.Enabled=True Command2.Enabled=False End Sub 1、Picture2.Height=Picture1.Height 2、Picture2.Picture=LoadPicture()3、LoadPicture(CommonDialog1.FileName)

36、第 4 题：【程序说明】文本文件“C:mydoczg.txt”包括工资、职务情况，每条记录由工号、工资、职称组成，现对文件内容进行修改，即对不同职称的职工增加工资，规定高级职称的增加15%，中级职称的增加10%，初级的增加5%，其他人员不加工资。Pirvate Sub cmdModif_Click()Dim num As Integer,gz As Single,zc As String 定义工号、工资、职称的变量名和类型Open”C:zg.txt”For Input As#1Open”Clszg.txt”For Output As#2Do While Not EOF(1)-1-Select

37、Case zc Case“高级”gz=gz*1.15 Case“中级”gz=gz*1.1 Case“初级”gz=gz*1.05 End Select Write#2,num,gz,zc Loop Close#1,#2 Open”C:lszg.txt”-2-As#1 Open”C:zg.txt”for output As#2Do While Not EOF(1)Input#1,num,gz,zc-3-Loop Close#1,#2 End Sub 1、Input#1,num,gz,zc 2、For Input 3、Write#2,num,gz,zc 三、填空题(请把正确的选项填入试题前的空格中)

38、第 1 题：【程序说明】该程序的功能为：从 1 到 1000 中找出这样的数，该数每位上数字的阶乘之和等于该数，并将结果输出从窗体输出。Private Sub Form_Click()Dim k,a,n,I,m Dim p As Integer For k=1 To 10000 a=Ltrim(Str(k)n=0 m=Len(a)For I=1 To-1-p=Val(Mid(a,I,1)n=-2-Next I If n=k Then Form1.Print k Next k End Sub Function fact(x As Integer)As Long 该函数用于计算阶乘Dim y As

39、 Long Dim I%y=1 For I=1 To x y=y*I Next I-3-End Function 1、m 2、n+fact(p)或 fact(p)+n 3、fact=y 第 2 题：【程序说明】这是一个用户名校验程序，如用户名正确，即输出欢迎字样，否则，弹出警告窗并直接退出程序。Dim UserName(2)As String,inputName As String Dim Flag As Boolean flag=true 表示用户名正确;flag=false 表示用户名不正确Private Sub Form_Load()Dim I As Integer UserName(0

40、)=AA:UserName(1)=BB:UserName(2)=CC共三个用户名-1-inputName=InputBox(请输入名称：,身份确认,)For I=0 To 2 If-2-Then Flag=True End If Next I If Flag=False Then-3-(用户身份确认失败！退出应用,vbOKOnly,警告)End End If End Sub Private Sub Form_Paint()picShowMsg.Print 欢迎您！+inputName End Sub 1、Flag=False 或 flag true 或 not flag 2、inputName

41、=UserName(I)或 UserName(I)=inputName 3、MsgBox 第 3 题：【程序说明】窗体上有两个图片框控件Picture1 和 Picture2，两个命令按钮command1（标题为“加载”）和 command2（标题为“复制”），程序运行时，“复制”按钮不可用，图片框控件Picture2和 Picture1 大小相同，单击“加载”按钮，打开通用对话框，选择一个图形文件，在图片框控件 Picture1 中显示，同时“复制”按钮可用，“加载”按钮不可用；单击“复制”按钮，将 Picture1 的图片复制到Picture2 中，同时“加载”按钮可用，“复制”按钮不可用

42、。Private Sub Form_Load()Picture2.Width=Picture1.Width Picture2.Height=Picture1.Height-1-End Sub Private Sub command1_Click()-2-Picture1.Picture=LoadPicture(CommonDialog1.FileName)Command2.Enabled=True Command1.Enabled=False End Sub Private Sub command2_Click()-3-Command1.Enabled=True Command2.Enable

43、d=False End Sub 1、Command2.Enabled=False 2、CommonDialog1.ShowOpen 或 CommonDialog1.Action=1 3、Picture2.Picture=Picture1.Picture 或 Picture2.Picture=LoadPicture(CommonDialog1.FileName)第 4 题：【程序说明】下列程序运行时，在驱动器列表框中选择驱动器，目录列表框相应变为所选驱动器的目录列表，在目录列表框中选择相应目录，文件列表框的内容变为所选目录下的文件列表，只要单击其中扩展名为.bmp的文件，即可在图像框中显示该图像

44、。Private Sub Dir1_Change()File1.Path=dir1.Path End Sub Private Sub Drive1_Change()-1-End Sub Private Sub File1_Click()Dim PathStr As String if right(file1.path,1)=then PathStr=File1.Path&File1.FileName else-2-end if If Right(PathStr,4)=“.bmp”Or Right(PathStr,4)=“.BMP”Then-3-End If End Sub 1、Dir1.Pat

45、h=Drive1.Drive 2、PathStr=File1.Path&“”&File1.FileName 或 PathStr=File1.Path+“”+File1.FileName 3、Image1.Picture=LoadPicture(PathStr)三、填空题第 1 题：【程序说明】以下程序产生n 个两位随机整数，将其中个位数等于5 的数存入数组B 中，并以每行五个的紧凑格式在窗体中用输出，同时输出该数组的个数。Private Sub Form_Click()Dim a()As Byte,b()As Byte Dim i As Byte,m As Byte,n As Byte n=I

46、nputBox(请输入 n 值：)-1-a(n),b(n)For i=1 To n a(i)=10+Int(Rnd*90)If a(i)Mod 5=0 Then m=m+1-2-Print b(m);If-3-End If Next i Print Print 个位数为0 的数有;m;个 End Sub 1、ReDim 2、b(m)=a(i)3、m Mod 5=0 或 m/5=m5 Then Print 第 2 题：【程序说明】本程序通过选项来修饰预览区文字。单击字体组合框Cboziti 可以设置预览区域的标签文字 label5 的字体；单击字号组合框Cbozihao 可以设置预览区域的标签文

47、字的字形；选择删除线复选框可以设置是否加删除线。Private Sub Cbozihao_Click()选择字号Label5.FontSize=Cbozihao.Text End Sub Private Sub Cbozihao_-1-()输入选项中没有的字号If Val(Cbozihao.Text)0 And Val(Cbozihao.Text)=48 and mid(c,I,i)=57 then-2-Next i loop Close#1-3-End Sub 1、Open“e:data2.txt”for output as#2 2、print#2,mid(c,I,1)或 write#2,m

48、id(c,I,1)3、close#2 三、填空题第 1 题：【程序说明】该程序是对以下数列进行运算：有一个数列，它的前三个数是0，1，2，从第四个数起，每个数都是它前面的两个数之和，求出该数列的第17 个数是多少，并求出该数列的第几个数起每个数都超过1E+8 Private Sub Form_Click()Dim last_one As Long Dim last_two As Long Dim this_one As Long Dim i As Integer last_one=1 数列的第二个数last_two=2 数列的第三个数i=4 从数列的第四个数求起Do this_one=last

49、_one+last_two last_one=last_two last_two=-1-If i=17 Then Form1.Print No:17=;this_one End If-2-Loop While this_one 1E+8 End Sub 1、this_one 2、I=I+1 或 I=1+I 3、I 第 2 题：【程序说明】设计用按钮数组command1(0)-command1(9)做一个模拟电话拨号程序。运行时，单击各数字按钮后，在标签label1 中显示所拨的号码，按“删除”键command2,删除最后一个号码，按“取消”键command3,则撤销所有拨号，清空标签。Dim

50、num As String Private Sub Command1_Click(Index As Integer)num=num&-1-Label1.Caption=num End Sub Private Sub Command2_Click()-2-Label1.Caption=num End Sub Private Sub Command3_Click()-3-num=End Sub 1、Command1(Index).Caption 或 trim(str(index)2、num=Left(num,Len(num)1)或 num=mid(num,1,Len(num)1)3、Label1.