发布时间 : 星期五 文章2009省会考选择题和VB填空题更新完毕开始阅读4d26a614f18583d049645913
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