1.选择题- (共12题)
3.
有如下VB程序段：
a =" 3:" b =" 4:" c = 5
If a >=" b" And a >=" c" Then
y = a
ElseIf b >=" c" Then
y = b
Else
y = c
End If
执行以上程序后，变量y值为（ ）
a =" 3:" b =" 4:" c = 5
If a >=" b" And a >=" c" Then
y = a
ElseIf b >=" c" Then
y = b
Else
y = c
End If
执行以上程序后，变量y值为（ ）
| A．5 | B．3 | C．4 | D．0 |
4.
在Visual Basic中，语句Text1.Text=“red”执行后，文本框Text1 ( )
| A．名称变为“red” | B．文字内容变为“red” |
| C．背景色变为红色 | D．文字颜色变为红色 |
6.
想产生区间[10,50]的随机整数，以下函数正确的是（ ）
| A．Int(Rnd()*40+10) | B．Int(Rnd()*40+11) |
| C．Int(Rnd()*41+10) | D．Int(Rnd()*41+9) |
7.
某两段VB程序分别如图1和图2所示：
图1 图2
当n的值为10时，关于该两段程序，下列说法不正确的是( )
图1 图2
当n的值为10时，关于该两段程序，下列说法不正确的是( )
| A．两段程序中i的初值相同 |
| B．两段程序都采用了循环结构 |
| C．两段程序的运算结果不相同 |
| D．图1程序实现了“1＋3＋5＋7＋9”之和的运算 |
8.
某VB程序如下：
Private Sub Command1_Click()
Dim i As Integer
Dim a(1 To 10) As Integer
For i =" 1" To 10
a(i) =" i" * 2
Next i
Text1.Text = Str(a(i))
End Sub
运行程序，单击命令按钮Command1后弹出右图所示的出错提示，引起该错误的语句是（ ）
Private Sub Command1_Click()
Dim i As Integer
Dim a(1 To 10) As Integer
For i =" 1" To 10
a(i) =" i" * 2
Next i
Text1.Text = Str(a(i))
End Sub
运行程序，单击命令按钮Command1后弹出右图所示的出错提示，引起该错误的语句是（ ）
| A．Dim a(1 To 10) As Integer | B．a(i) =" i" * 2 |
| C．Text1.Text = Str(a(i)) | D．For i =" 1" To 10 |
11.
用解析方法计算一元二次方程的根时，使用的计算公式之一是，下列用于表述该公式的VB表达式中，正确的是（ ）
| A．x1= (-b+)/2*a |
| B．x1= [-b+sqr(b*b-4*a*c)]/2a |
| C．x1= (-b+sqr(b*b-4*a*c))/2/a |
| D．x1= (-b+sqr(b^2-4*a*c))/2*a |
2.填空题- (共5题)
13.
写出下列表达式的值
(1) “20”+str(15) =_____________
(2) Len(“-100”)+100 =__________
(3) 103\10/5 mod 10=_____________
(4) Not (1>2) and (5<3)=____________
(1) “20”+str(15) =_____________
(2) Len(“-100”)+100 =__________
(3) 103\10/5 mod 10=_____________
(4) Not (1>2) and (5<3)=____________
14.
编写一个具有下列功能的VB程序：在文本框Text1中输入18位身份证号，单击“提取”按钮Command1，并在文本框Text2中显示出生日期。编辑界面如1图所示，运行界面如2图所示：
(1)按钮显示内容修改为“提取”，是通过修改___________属性完成的。
(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim s As String ,x As Integer
S=Text1.Text
x ＝ Len(Text1.Text)
If①________Then
Text2.Text ＝②___________
Else
Label2.Caption ＝ ”输入的身份证号位数有误，请重新输入”
End If
End Sub
(1)按钮显示内容修改为“提取”，是通过修改___________属性完成的。
(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim s As String ,x As Integer
S=Text1.Text
x ＝ Len(Text1.Text)
If①________Then
Text2.Text ＝②___________
Else
Label2.Caption ＝ ”输入的身份证号位数有误，请重新输入”
End If
End Sub
15.
下列VB程序运行时，在文本框Text1中输入数据5，在文本框Text2中输入数据8，单击命令按钮Command1后，文本框Text1中显示的内容是_______，文本框Text2中显示的内容是_______。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a="Val" (Text1.Text)
b="Val" (Text1.Text)
a=a*b
b=a/b
a=a/b
Text1.Text=Str(a)
Text2.Text=Str(b)
End Sub
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a="Val" (Text1.Text)
b="Val" (Text1.Text)
a=a*b
b=a/b
a=a/b
Text1.Text=Str(a)
Text2.Text=Str(b)
End Sub
16.
现要求编写VB程序，编辑界面如1图所示，运行界面如2图所示，程序功能如下：在文本框Text1中输入n的值，单击“求和”按钮Command1，完成n以内奇数和的计算，并在文本框Text2中显示计算结果。
1图 2图
(1)观察编辑界面和运行界面，发现图1缺少控件，需要添加的对象为________(填写对象名称).
(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim n As Integer, s As Integer, i As Integer
①
For i ＝ 1 To n Step 2
②
Next i
Text2.Text＝ Str(s)
End Sub
(3)该程序属于 算法（选填：枚举/解析）
1图 2图
(1)观察编辑界面和运行界面，发现图1缺少控件，需要添加的对象为________(填写对象名称).
(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim n As Integer, s As Integer, i As Integer
①
For i ＝ 1 To n Step 2
②
Next i
Text2.Text＝ Str(s)
End Sub
(3)该程序属于 算法（选填：枚举/解析）
试卷分析
-
【1】题量占比
选择题:(12道)
填空题:(5道)
-
【2】：难度分析
1星难题：0
2星难题：0
3星难题：0
4星难题：0
5星难题：0
6星难题：0
7星难题：0
8星难题：0
9星难题：17