1、b+1 Or c=10，Is50 Then Exit For 对于该事件过程，以下叙述中错误的是。A） a数组中的数据是10个100以内的整数B） 语句For Each arrItem In a有语法错误C） If arrItem Mod 4=0语句的功能是输出数组中能够被4整除的数D） If arrItem50语句的作用是当数组元素的值大于50时退出For循环 （12）设有命令按钮Command1的单击事件过程，代码如下：Dim a（3，3）As IntegerFor i=1 To 3For j=1 To 3a（i，j）=i*j+iNext jNext iSum=0Sum=Sum+a（i，4
2、-i）Print Sum 运行程序，单击命令按钮，输出结果是。A） 20 B） 7 C） 16 D） 17（13）在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：a=0For i=1 To 2For j=1 To 4If j Mod 20 Thena=a-1End Ifa=a+1Print a程序运行后，单击命令按钮，输出结果是。A） 0 B） 2 C） 3 D） 4（14）窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算（
3、乘以1、10或100），并将结果显示在Text2中。为了实现上述功能，在程序中的问号（?）处应填入的内容是。Private Sub Option1_Click（Index As Integer）If Text1.TextThenSelect Case ?Case 0Text2.Text=Val（Text1.Text）Case 1Text2.Text=Val（Text1.Text）*10Case 2Text2.Text=Val（Text1.Text）*100A） Index B） Option1.Index C） Option1（Index） D） Option1（Index）.Value（15
4、）在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：Dim x As Integer a（i）=8+ix=2Print a（f（x）+x）Function f（x As Integer）x=x+3f=xEnd Function程序运行后，单击命令按钮，输出结果为。A） 12 B） 15 C） 17 D） 18（16）以下关于过程的叙述中，错误的是。A） 事件过程是由某个事件触发而执行的过程 B） 函数过程的返回值可以有多个C） 可以在事件过程中调用通用过程 D） 不能在事件过程中定义函数过程（17）在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）
5、和1个命令按钮（名称为Command1），外观如图所示。编写如下程序：Private Sub Form_Load（）Text1.Text=Text2.Text=Text3.Text=x=Val（Text1.Text）y=Val（Text2.Text）Text3.Text=f（x，y）Function f（ByVal x As Integer,ByVal y As Integer）Do While ytmp=x Mod yx=yy=tmpLoop运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是。A） 4 B） 6 C） 8
6、 D） 12（18）在窗体上画1个文本框，其名称为Text1，然后编写如下过程： Private Sub Text1_KeyDown（KeyCode As Integer,Shift As Integer）Print Chr（KeyCode）Private Sub Text1_KeyUp（KeyCode As Integer，Shift As Integer）Print Chr（KeyCode+2）程序运行后，把焦点移到文本框中，此时如果敲击“C”键，则输出结果为。A） C B） C C） C D） CC D E F（19）为了使列表框中的项目呈多列显示，需要设置的属性为。A） Columns
7、 B） Style C） List D） MultiSelect（20）如果列表框（List1）中只有一个项目被用户选定，则执行Debug.Print List1.Selected（List1.ListIndex）语句的结果是 A） 在Debug窗口输出被选定的项目的索引值 B） 在Debug窗口输出TrueC） 在窗体上输出被选定的项目的索引值 D） 在窗体上输出True（21）在窗体上画1个命令按钮，名称为Command1，然后编写如下程序： Dim Flag As BooleanDim intNum As IntegerintNum=InputBox（请输入：If Flag ThenPr
8、int f（intNum）Function f（X As Integer）As IntegerIf X2*b Or a=c And bd A） 1 B） True C） False D） 2（30）设a=”MicrosoftVisualBasic”, 则以下使变量b的值为”VisualBasic”的语句是A）b=Left（a,10）B）b=Mid（a,10） C）b=Right（a,10） D）b=Mid（a,11,10）（31）为了使命令按钮（名称为Command1）右移200，应使用的语句是 A） Command1.Move -200 B） Command1.Move 200 C） Com
9、mand1.Left= Command1.Left+200D） Command1.Left= Command1.Left-200（32）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：Private Sub Command1_Click（） Timer1._End SubPrivate Sub Timer1_Timer（） Text1.Text = Time在_处应填入的内容是A
10、） Enabled=TrueB） Enabled=FalseC） Visible=TrueD） Visible=False（33）假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是：A）选择图片框，然后按Del键 B）执行语句Picture1.Picture=LoadPicture（“”）C）执行语句Picture1.Picture=”D）选择图片框，选择Picture属性，然后按回车键（34）在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正
11、确实现上述操作的程序是A） Private Sub List1_Click（）Label1.Caption = List1.ListIndexEnd SubB） Private Sub List1_Click（）Label1.Name = List1.ListIndex End SubC） Private Sub List1_Click（）Label1.Name = List1.Text End SubD） Private Sub List1_Click（）Label1.Caption = List1.Text End Sub（35）在窗体上画一个命令按钮，名称为Command1，然后编写如下
12、事件过程： Private Sub Command1_Click（） Dim i As Integer, x As Integer For i = 1 To 6 If i = 1 Then x = i If i 0 And a = 10, 长城, ） _ 10 And a = 20, 故宫 20 And a = 30, 颐和园 Text1.Text = t程序运行后,如果从键盘输入16,则在文本框中显示的内容是:A）旅游景点：长城故宫B）旅游景点：长城颐和园C）旅游景点：颐和园D）旅游景点：故宫（42）在窗体上画一个名称为Label1的标签,然后编写如下事件过程:Private Sub For
13、m_Click（） Dim arr（10, 10） As Integer Dim i As Integer, j As Integer For i = 2 To 4 For j = 2 To 4 arr（i, j） = i * j Next j Label1.Caption = Str（arr（2, 2） + arr（3, 3）程序运行后,单击窗体,在标签中显示的内容是 A）12 B）13 C）14 D）15（43） 在窗体上画一个名称为Comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:Private Function fun（ByVal m As Integer） If
14、m Mod 2 = 0 Then fun = 2 Else fun = 1 Dim i As Integer, s As Integer s = 0 For i = 1 To 5 s = s + fun（i） NextPrint s程序运行后,单击命令按钮,则窗体上显示的是:A）6 B）7 C）8 D）9（44）阅读程序:Option Base 1Dim arr（） As IntegerPrivate Sub Form_Click（） ReDim arr（3, 2） For i = 1 To 3 For j = 1 To 2arr（i, j） = i * 2 + j ReDim Preserve arr（3, 4） For j = 3 To 4 arr（3, j） = j + 9
