2009省会考选择题和VB填空题

Label1.Caption =s

该程序段运行后，在标签Label1上显示的是____________。继续行驶 3．有如下Visual Basic程序： Private Sub Command1_Click()

Dim i As Integer, s As Integer, x As Integer s = 0

For i = 1 To 12

If i Mod 3 = 0 Then s = s + i Next i

Text1.Text = Str(s) End Sub 问：

（1）程序运行后，变量s的值为____________。30

（2）程序运行后，刚退出循环时变量i的值为____________。13

4．猜密码。电脑产生一个8位密码，用户输入猜测的密码，电脑判断用户所猜密码的正确性，如果用户输入的密码和电脑产生的密码完全一致则输出\恭喜你猜中了密码！\，否则程序将输出用户密码和计算机产生密码之间不同的字符数。电脑产生的8位密码分别保存在数组pass的8个下标变量pass(1)、pass(2)、…、pass(8)中。 程序界面如图VB-1所示，用户在文本框Text1中输入密码，单击\密码校验\按钮（Command1）后，程序在标签Label3中输出密码校验结果。

解决此问题的算法流程图如图VB-2所示，相应的程序如下，在程序(1)和(2)划线处，填入适当的语句或表达式，把程序补充完整。 Dim pass(1 To 8) As Integer

Private Sub Command1_Click()

Dim x(1 To 8) As Integer, i As Integer, s As Integer For i = 1 To 8

x(i) = Val(Mid(Text1.Text, i, 1)) '把文本框中数字逐个分割出来并转化成数值 Next i

s = 0 '变量s保存不同字符的总数 For i = 1 To 8

If pass(i) <> x(i) Then (1) Next i

If (2) Then

Label3.Caption = \恭喜你猜中了密码！\ Else

Label3.Caption = \你输入的密码共有\个字符和密码不符\ End If End Sub

Private Sub Form_Load()

Dim i As Integer

For i = 1 To 8 '产生8位密码，每位一个非负整数，保存到数组pass

pass(i) = Fix(Rnd * 10) Next i End Sub

程序中(1)划线处应填入________________ s=s+1 程序中(2)划线处应填入________________ s=0 密码：75523707

图VB-1

图VB-2