1.选择题- (共20题)
2.
在 VB 中，若 s="Welcometoyunfun",取出字符"yunfun"，则函数应为（ ）
| A．mid(s,10,6) | B．len(s,10,6) |
| C．len(s, 6 ,10) | D．mid(s, 6 ,10) |
4.
在 VB 中，鼠标单击命令按钮 Command1 触发的事件处理过程名是（ ）
| A．Command1Click | B．Command1_Click |
| C．Command1GotFocus | D．Command1_GotFocus |
6.
在 VB 中，将整数型变量 c 的值显示在文本框 Text1 中，完整的语句是（ ）
| A．c=Str(Text1.Text) |
| B．c=Val(Text1.Text) |
| C．Text1.Text=Str(c) |
| D．Text1.Text=Val (c) |
11.
在 VB 中，若使用变量 t 存储表达式 3*A> 5 Or B + 8<0 的值，则变量 t 的数据类型应定义为（ ）
| A．String | B．Integer | C．Single | D．Boolean |
12.
产生[10,37]之间的随机整数的 Visual Basic 表达式是 ( )
| A．Int(Rnd()*27)+10 | B．Int(Rnd()*28)+10 |
| C．Int(Rnd()*27)+11 | D．Int(Rnd()*28)+11 |
16.
在 VB 中，对于按钮对象 Command1，执行语句 Command1.Caption="计算"后可能引起的变化是（）
| A．Command1 对象的名称改变 |
| B．Command1 对象的高度改变 |
| C．Command1 对象的显示文字改变 |
| D．Command1 对象的背景颜色改变 |
19.
在 VB 中，某个对象的属性窗口如图所示：
有关这个对象的说法错误的是（ ）
有关这个对象的说法错误的是（ ）
| A．对象名 Command2 |
| B．所属类为按钮类 CommandButton |
| C．字面内容为 Command1 |
| D．背景颜色为 H8000000F |
2.填空题- (共4题)
21.
现要求编写 VB 程序实现如下功能：在文本框 Textl 中输入正整数 n (n 为奇数），单击 “生成” 命令按钮后，如下图所示，在文本框 Text2 中会显示一个有规律的对称数字串，形式为"1 3 …n-2 n n-2 3 1" 。例如 n=9 时，显示的数字串为 “1 3 5 7 9 7 5 3 1”
（1）根据代码可知，命令按钮 “生成 ” 的对象名是______________ 。
（2）实现上述功能的 VB 程序如下。请在划线处填入合适代码。
Private Sub Com1 _Click()
Dim n As Integer, i As Integer, s As String
①__________
s = ""
For i = 1 To n
If i<= n \2 + 1 Then
s = s + Str (2*i-1)
Else
s = s + ②__________
End If
Next i
③__________
End Sub
（1）根据代码可知，命令按钮 “生成 ” 的对象名是______________ 。
（2）实现上述功能的 VB 程序如下。请在划线处填入合适代码。
Private Sub Com1 _Click()
Dim n As Integer, i As Integer, s As String
①__________
s = ""
For i = 1 To n
If i<= n \2 + 1 Then
s = s + Str (2*i-1)
Else
s = s + ②__________
End If
Next i
③__________
End Sub
22.
完成以下 VB 程序代码
（1）有如下 VB 程序段，
a = 167
b = a\100
c = b mod 10
该程序段运行后，变量 c 的值为_____ 。
（2）有如下 VB 程序段，
a=2:b=7:c=4
If a<b Then t=a:a=b:b=t
End If
If b<c Then c = c-b
End If
该程序段运行后，整型变量 a 的值是_____，b 的值是_____，c 的值是_____。
（1）有如下 VB 程序段，
a = 167
b = a\100
c = b mod 10
该程序段运行后，变量 c 的值为_____ 。
（2）有如下 VB 程序段，
a=2:b=7:c=4
If a<b Then t=a:a=b:b=t
End If
If b<c Then c = c-b
End If
该程序段运行后，整型变量 a 的值是_____，b 的值是_____，c 的值是_____。
24.
小明设计了一个 VB 程序，实现功能如下：在文本框 Text1 中输入一个学生成绩，单击“判定成绩等级” 按钮，在 Label3 中输出该成绩的等级。运行界面如图所示：
(1)若将 Text1 的名称改为“Txt”，则应修改文本框的属性：________________ 。
(2)为实现上述功能，请在下划线处填入合适的代码。
Private Sub Command1_Click() Dim x As Integer
x ＝ ①________
If x >＝ 90 Then
Label3.Caption ＝ "A" ElseIf x >＝ 80 Then
Label3.Caption ＝ "B" ElseIf x >＝ 60 Then
Label3.Caption ＝ "C" ElseIf x >＝ 55 Then
Label3.Caption ＝ "D"
②____________
Label3.Caption ＝ "E" End If
End Sub
(1)若将 Text1 的名称改为“Txt”，则应修改文本框的属性：________________ 。
(2)为实现上述功能，请在下划线处填入合适的代码。
Private Sub Command1_Click() Dim x As Integer
x ＝ ①________
If x >＝ 90 Then
Label3.Caption ＝ "A" ElseIf x >＝ 80 Then
Label3.Caption ＝ "B" ElseIf x >＝ 60 Then
Label3.Caption ＝ "C" ElseIf x >＝ 55 Then
Label3.Caption ＝ "D"
②____________
Label3.Caption ＝ "E" End If
End Sub
试卷分析
-
【1】题量占比
选择题:(20道)
填空题:(4道)
-
【2】：难度分析
1星难题：0
2星难题：0
3星难题：0
4星难题：0
5星难题：0
6星难题：0
7星难题：0
8星难题：0
9星难题：24