小周定义了一个变量 rs 来存储超市里商品条形码，变量的数据类型应是（   ）

A．Integer

B．String

C．Long

D．Date

第1次，将1张正方形纸片沿垂直和水平中线对折后撕开，变成4张纸片，第2次，从4张纸片中取其中1张纸片也照上面方法撕开，变成7张纸片，一直这样下去。描述计算撕了n次后纸片总数s的算法部分流程图如下图所示：

空白矩形框中应该填入的是 (   )

A．s←s+2

B．s←s+3

C．s←s+j

D．s←s*3

下列可作为VB变量名的是    ( )

A．true

B．we*6

C．dew3

D．3ABC

某VB程序的一个事件过程如下：
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
Text1.Text = Str(SqrA.)
End Sub
程序运行时，单击命令按钮command1后弹出如图所示的错误信息提示。出现错误的原因是（   ）

A. 变量a类型定义错误

A．界面缺少文本框Text1
B．Command1属性设置错误	C．Sqr函数计算时出错

有如下Visual Basic程序：
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next i
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是（  ）

A．1+1/2+2/3+3/4+4/5	B．1+1/2+2/3+3/4
C．1/2+2/3+3/4+4/5	D．1+1/2+1/3+1/4+1/5

将数学表达式sin(e)+写成Ｖisual Basic的表达式，其正确的形式是（ ）

A．sin(exp(3))+sqr(abs(x+y))	B．sin(e^3)+sqr(abs(x+y))
C．sin(exp(3))+sqr(|x+y|)	D．sin(e^3)+sqr(|x+y|)

如下VB程序段
x=Text1.Text
p=0
For i=1 to Len(x)
　If Mid(x,i,1)=“a” Then p=p+1
Next i
Print p
若程序运行时,在文本框Text1中键入“Are you happy”,则运行结果是(　　)

A．0

B．1

C．2

D．11

下列有关算法的描述,正确的是(　　)

A．一个完整的算法必须有输出

B．一个完整的算法至少有一个输入

C．算法只能采用自然语言或流程图这两种方式表示

D．用流程图方式表示算法的好处就是形象直观,但容易产生歧义

模拟剪刀石头布的游戏,用1~3这3个数分别代表剪刀、石头、布这三种情况,使用Rnd随机函数可以表示为(　　)

A．Int(Rnd(3)+1)

B．Int(Rnd*2+1)

C．Int(Rnd(2)+1)

D．Int(Rnd*3+1)

阅读如下Visual Basic程序，
Function f(n As Integer, r As Integer) as integer
If n <> 0 Then
f =" n" \ r
End If
End Function
Private Sub Command1_Click()
Print f(10, 8)
End Sub
程序的运行结果是（   ）

A．8

B．10

C．2

D．1

在窗体上画一个名称为Label1的标签,然后编写如下事件过程，程序运行后,单击窗体,在标签中显示的内容是（   ）
Private Sub Form_Click(）
Dim arr(1 to 10, 1 to 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
Next i
Label1.Caption =" Str(arr(2," 2）+ arr(3, 3））
End Sub
(

A．12

B．13

C．14

D．15

设a="2," b="3," c="4," d="5," 下列表达式Not a<="c" Or 4*c="b^2" And b<>a+c的值是(    )


A．-1

B．1

C．True

D．False

任意一个大于等于4 的偶数，都可以用两个素数之和表示，这就是哥德巴赫猜想。如：4=2+2，6=3+3，8=3+5，10=5+5，12=5+7，98=17+79。
编写一个验证哥德巴赫猜想的VB 程序：程序运行时，在文本框Text1 中输入一个大于等于4 的偶数，单击“验证”按钮Command1 后，如果哥德巴赫猜想验证成功，则在文本框Text2 中显示“Yes”，并在列表框List1 中显示用两个素数表示该偶数的等式，否则显示“No”。程序运行结果如图所示。实现上述功能的VB 代码如下，但加框处代码有错，请改正。

函数judge的功能是判断整数x是否为素数，若是素数则返回True，否则返回False
Function judge（x As Integer）As Boolean
Dim j As Integer
judge = True
j = 2
Do While j < =" x" - 1 And judge = True
If  x Mod j =" 0" Then
judge = False
Else
judge=true    ‘①
End If
Loop
End Function
Private Sub Command1_Click（）
Dim n As Integer, p As Integer, q As Integer, flag As Boolean
n = Val（Text1.Text）
p = 1
flag = False
Do While flag = True And p < n ‘②
p =" p" + 1
q =" q" + 1     ‘③
If judge(p)  And  judge(q) Then
Text2.Text = "Yes"
flag = True
List1.AddItem Str(n)+ "=" + Str(p)+ "+" + Str(q)
End If
Loop
If flag ="False" Then Text2.Text = "No"
End Sub

商品条形码是一个13 位数,它是商品的“身份证”。条形码中前8位是厂商识别代码，接着4 位是商品项目代码，最后一位是校验码。校验码是由前12 位数按一定公式计算而得出的，其计算公式见下表

小明编写了一个VB程序，输入一个二维码后，点击“验证”按钮后，程序根据如上算法验证
条形码的验证码是否正确，代码如下所示：
Private Sub Command1_Click（）
Dim s As String，x As String
Dim js As Integer，os As Integer，jy As Integer
s =" Text1." Text
n = Len（s）
If n <> 13 Then
Label1.Caption = "条形码位数错误"
Else[来源:学#科#网Z#X#X#K]
For i =" 1" To 12
x = Val（Mid（s，i，1））
If _____①___________Then
js =" js" + x
Else
os =" os" + x
End If
Next i
End If
jy =" os" * 3 + js
jy = ______②____________
If  jy =" 10"  Then jy = 0
If  jy = Val(Mid(s，13，1))  Then
Label1.Caption = "验证码正确"
Else
Label1.Caption = "验证码错误"
End If
End Sub
(1)要实现如上VB程序，在窗体上至少有_____个控件对象(窗体除外)。
(2)要实现上述功能，程序中划线处①位置应填写的表达式是___________________
(3)要实现上述功能，程序中划线处②位置应填写的表达式是____________________
(4)若在该程序运行时，输入的待检测的二维码是“6921734953025”，执行上述程序，输出的
结果是________________________________

小华同学设计了一个VB程序，其功能是在text1中输入文本，点击“统计”按钮，自动统计字母a和字母b的出现次数，并显示在text2和text3中。程序设计界面如下图所示：
 
（1）运行程序时发现窗体的标题显示为“form1”，将窗体标题显示为“字母统计”，应修改窗体form1的_____________属性。
（2）通过窗体的加载事件也可以修改窗体的标题属性，请补充下列代码
Private Sub Form_Load（）
___________________= "字母统计"
End Sub
（3）根据题意，将下列程序补充完整。
Private Sub Command1_Click（）
Dim s As String，i As Integer，ta As Integer，tb As Integer
Dim lens As Integer ‘变量lens表示字符串s的字符个数
s = Text1.Text
lens =________________
For i =" 1" To lens
If Mid(s,I,1)= "a"  Then ta =" ta" + 1
If Mid(s,i,1)= "b"  Then tb =" tb" + 1
Next i
Text2.Text =" Str(" ta)
Text3.Text = Str(tb)
End sub

应用实例：判断一个数是否为偶数，如果在文本框te1中输入一个数，在标签Label1中直接出现相应的判断结果。在程序处完成以下3处填空

Private Sub ①
Dim   a  As Integer
a=Val(Te1.Text)
Label1.Caption = ②
End Sub
Function ou(i as integer) As ③
If i Mod 2 =" 0" Then
ou = "该数为偶数！"
Else
ou = "该数为奇数！"
End If
End Function