VB面向对象程序设计（山东联盟）章节测试课后答案2024春

第四章测试

1. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()     Dim i As Integer     Dim num As Integer     Dim n As Integer     n = 0     Randomize     For i = 1 To 10         num = Int(Rnd * 10) + 1         Select Case num Mod 2           Case 1                Exit For           Case 0                Print num                n = n + 1         End Select     Next i     Print "n="; nEnd Sub下面有关描述中正确的是________。
A:num的值是1~11之间的整数 B:程序运行过程中，变量num共被赋值10次 C:当num的值为偶数时，则For循环将被终止 D:变量n的作用是累计自过程运行开始到结束所产生的偶数个数
答案:D
2.在窗体上画一个名称为Command1的命令按钮，并编写如下程序代码：Private Const NUM As Integer = 10Private Sub Command1_Click()    Dim a As Integer, b As Integer    a = 1    b = NUM    Do Until b > NUM        a = a * NUM        b = b + 1    Loop    Print aEnd Sub则当程序运行时，单击Command1后，在窗体上的输出结果是________。
A:10 B:21 C:100 D:1 3.已知文本框Text1中输入了一篇英文短文，并编写了如下程序段：   Str_x = Text1.Text   n = Len(Str_x)   m = 0   t = 0   For i = 1 To n      w = UCase(Mid(Str_x, i, 1))      If w >= "A" And w <= "Z" Then         If t = 0 Then m = m + 1         t = t + 1      Else        t = 0      End If   Next   Print m该程序段的功能为统计并输出英文短文中________。
A:单词的个数 B:字母的个数 C:首字母大写的单词的个数 D:大写字母的个数 4. 设窗体上有文本框Text1和命令按钮Command1，并编写了下面的过程：Private Sub Command1_Click()    ch$ = ""    x% = Val(Text1.Text)    k = 2    For k = 2 To x / 2        If x Mod k = 0 Then            ch = ch & " " & k        End If    Next k    Print chEnd Sub程序运行后，在文本框中输入28，单击命令按钮，则输出是________。
A:2  4  7  14 B:1  3  5  7  9  11  13 C:14  7  4  2 D:2  4  6  8  10  12  14 5.设有如下程序段：Dim x As Integerx = Val(InputBox("输入变量x的值"))Select Case x   Case ________________       Print "*"   Case Else       Print "#"End Select以上程序段的功能是，当变量x的值在5到10之间，或者大于20时，输出"*"，其它情况输出"#"，则程序中横线处应填入的内容是________。
A:5 To 10: x>20 B:5 To 10, Is>20 C:5-10 Or x>20 D:x>= 5 And x <= 10="" or="" x=""> 20 6.设a、b、c为整型变量，其值分别为4、5、6。以下程序段的输出结果是________。a = b: b = c: c = aPrint a; b; c
A:4  5  6 B:5  6  5 C:5  6  4 D:6  5  4 7.以下Case子句中错误的是________。 
A:Case 0 To 10 B:Case Is > 10 C:Case 3, 5, Is > 10 D:Case Is > 10 And Is < 50 8.有如下程序代码：Private Sub Form_Click()    X = 8    If X > 8 Then        Print "X > 8"    ElseIf X < 10 Then        Print "X < 10"    ElseIf X = 8 Then        Print "X = 8"    End IfEnd Sub运行程序，单击窗体，输出结果是________。 
A:X < 10  X = 8 B:X = 8 C:不确定 D:X <  10 9.在窗体上画一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click()    Dim S As Integer    S = 0    For i = 1 To 15        x = 2 * i - 1        If x Mod 3 = 0 Then            S = S + 1        End If    Next i    Label1.Caption = SEnd Sub运行程序，单击窗体，标签中显示的是________。
A:5 B:1 C:27 D:45 10.执行下面的程序段后，x的值为________。x=5For i=1 to 20 Step 2x=x+i5Next i 
A:24 B:22 C:23 D:21 11.在窗体中画一个命令按扭，然后编写以下事件过程：Private Sub Command1_Click( )For i=1 to 4x=4For j=1 to 3x=3For k=1 to 2k=k+6Next kNext jNext iPrint xEnd Sub程序执行结果为________。 
A:15 B:158 C:157 D:3 12.对语句 If x=1 Then y=1 ,下列说法正确________。 
A:x=1 是关系表达式， y=1 是赋值语句 B:x=1 和 y=1 均为关系表达式 C:x=1 是赋值语句， y=1 是关系表达式 D:x=1 和 y=1 均为赋值语句 13.设有如下程序：Private Sub Command1_Click ( )Dim sum As Double ,x As Doublesum=0For i=1 To 5x=n/in=n+1sum =sum +xNextEnd Sub该程序通过For 循环计算一个表达式的值，这个表达式是________。 
A:1+1/2 +1/3+1/4+1/5 B:1+1/2 +2/3+3/4 C:1/2 +2/3+3/4+4/5 D:1+1/2 +2/3+3/4+4/5 14.在窗体上画一个名称为Command1的命令按扭和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程:Private Sub Command1_Click( )n %= Text1.TextSelect Case nCase 1 to 20x=10Case 2,4,6x=20Case Is<10x=30Case 10x=40End SelectText2.Text=xEnd Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按扭，则在Text2中显示的内容是________。 
A:40 B:10 C:20 D:30 15.以下叙述中，错误的是________。
A:MsgBox函数的返回值为一整数 B:InputBox函数的返回值类型由用户在输入对话框中输入数据的类型决定 C:可以用MsgBox函数输出一条信息 D:有语句：x = InputBox("输入：", "输入整数")，则该语句打开的对话框的标题是"输入整数" 16.在Do While...Loop循环结构中Loop语句的作用是________。
A:终止循环，将控制转移到本循环结构Loop后面的第一条语句继续执行 B:退出循环，返回到程序开始处 C:该语句在Do While...Loop循环结构中不起任何作用 D:转移到Do While语句行，开始下一次判断和循环 17.设 a=6，则执行x= IIf ( a<6 ,-1 ,0 ) 后，x的值是________。
A:-1 B:0 C:5 D:6