题库 高中信息

题干

小张设计了一个“加减运算练习”VB程序。界面如下图所示。单击“出题”Command1按钮显示两个运算数和运算符号,并计数。在文本框Text1中输入计算结果后单击“判断”按钮Command2,如果计算结果正确,则得分加10分,直至完成10题测试。VB程序如下,但加下划线处代码有错,请改正。

Dim n,s As Integer    'n为试题计数器,s为得分
Dim a, b As Integer  'a,b 为两个运算数
Dim c As String 'c为运算符:"+ "表示加法,"-"表示减法
Private Sub Form_Load()
n = 0:
s = 0
End Sub
Private Sub Command1_Click()   ‘出题按钮
Randomize
n =" n" + 1
If n < 11 Then
Label1.Caption = "No:" + Str(n)
a =" Int(Rnd" * 100)  'a,b为运算数,且要求a不小于b
b =" Int(Rnd" * 100)
If   a > b   Then t =" a:" a =" b:" b = t '(1)
If  Rnd > 0.5  Then c = "+" Else  b = "-" '(2)
Label5.Caption =" Str(a)" + c + Str(b) + "="
Text1.Text = ""
Else
Command1.Caption = "完成测试"
End If
End Sub
Private Sub Command2_Click()   ‘判断按钮
If c = "+" Then
If  a + b =" Val(Text1.Text)" Then  s =" s" + 10
Else
If  a + b =" Val(Text1.Text)" Then  s =" s" + 10    '(3)
End If
Label3.Caption = "得分:" + Str(s)
End Sub
上一题 下一题 0.99难度 None 更新时间:2015-11-26 10:39:58

答案(点此获取答案解析)

同类题5

   某种字符加密方法描述如下:
①输入明文、密钥。
②在明文中从左往右每次取连续的8个字符。
③将8个字符围成一圈,从第1个字符开始1,2,3,……数数,数到密钥值时取出该位字符;再由下一个字符开始1,2,3,……数数,数到密钥值时取出该位字符,重复此过程,直至这8个字符被取完。
④依次把取出的8个字符拼接成新的字符串。
⑤重复②-④步骤,直至所有明文字符处理完毕。
编写一个VB程序,实现功能如下:程序运行时从文本框Textl中读入一串明文(长度为8的倍数),从文本框Text2中读入密钥y,单击“加密”按钮Commandl,对明文按上述方法转换后在文本框Text3中显示。程序运行界面如图所示。

(1)运行上述程序,若在文本框Textl中输入“Let's go”,Text2中输入“3”,单击“加密”按钮,则文本框Text3中显示的内容是__________________________。
(2)实现上述功能的VB程序如下,请在划线处填入合适代码。
Const n=1000
Private Sub Commandl_Click()
Dim f (1 To n) As Integer,cq (1 To n) As Integer
Dim a (1 To n) As String,s As String,res As String
Dim y As Integer,p As Integer,begin As Integer
s=Textl.Text:y=Val(Text2.Text)
For i=1 To 8

f(i)=1

Next i
'计算出列顺序
p=0
For i=1 To 8

j=1

Do While j<=y

p=p Mod 8+1
j=___________

Loop

f(p)=0:cq(i)=p

Next i
For i=1 To Len(s)

a(i)=Mid (s,i,1)

Next i
i=1:begin=-8:res=""
Do While i<=Len(s)

If i Mod 8=1 Then___________

res=res+___________

i=i+1

Loop
Text3.Text=res
End Sub