VBA练习_模块.doc

《VBA练习_模块.doc》由会员分享，可在线阅读，更多相关《VBA练习_模块.doc（3页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、(1) 设a=6，则执行 x=IIf(a5,-1,0)后，x 的值为 。A) 5 B) 6 C) 0 D) 1(2)在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（） Dim x As Integer,n As Integer x=1 n=0 Do While x20 x=x*3 n=n+1 Loop Text1.Text=Str（x） Text2.Text=Str（n）End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是 A.15和1 B.27和3 C

2、.195和3 D.600和4（3）在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：Private Sub Command1_Click（） n=Text1.Text Select Case n Case 1 To 20x=10 Case 2，4，6x=20 Case Is10x=30 Case 10x=40 End Select Text2Text=xEnd Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是 A.10 B.20 C.30 D.40（4）执行下面的程序段后，s的

3、值为 【】 。s = 5For i = 2.6 To 4.9 Step 0.6s = s+1Next I(5) 在窗体上画一个命令按钮，然后编写如下事件过程：Prevate Sub Command1_Click()x=0Do Until x=-1a = InputBox(请输入A的值)a = Val(a)b = InputBox(请输入B的值)b = Val(b)x = InputBox(请输入x的值)x = Val(x)a = a+b+xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 。A) 2 B) 3 C) 14

4、 D) 15(6) 在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程：Private Sub Command1_Click()a=Text1.Text+Text2.TextPrint aEnd SubPrivate Sub Formm_Load()Text1 Text=Text2 Text=End sub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为 。A) 444 B) 321123 C) 12

5、3321 D) 132231(7) 用下面语句定义的数组的元素个数是 。Dim A (-3 To 5) As IntegerA) 6 B) 7 C) 8 D) 93= 则 ) ) - 是素)数义面 用 为 ) 结钮命后 和 输分 （框二） （个第后 ( . ( 程件个下然， 性属 按命） 和 为性 本两) 为属 体 ) 果输 、 、 中对在依命，行 + 值输( ( 值输( 值输( -= =( _ 程件下后然令画窗 + .0 . .= 【值的序面执 .0 0容的显 在钮命后0入 本果行序 = = = ， = （ 程件下后框的 、 为称个和令 名画在和0和 和和和 .别分显中两在命，行 （= . （ + * = = , （ 程件下后钮按的 为一文 为称两窗)