试题

试题 试卷

logo

题型:单选题 题类:常考题 难易度:普通

内蒙古巴彦淖尔市临河三中计算机班2018-2019学年高二上学期信息技术期中考试试卷VB

用于获得字符串S从第2个字符开始的3个字符的函数是(  )
A、Mid$(S,2,3) B、Middle(S,2,3) C、Right$(S,2,3) D、Left$(S,2,3)
举一反三
【加试题】猜数字游戏。由用户选择需要猜测的数字长度后,电脑随机产生一串相应长度的数字,用户输入猜测的数字,电脑判断用户所猜密码的正确性,如果用户输入的数字和电脑产生的密码完全一致则输出“恭喜你猜中了!”,否则程序将输出用户和计算机产生数字之间不同的字符数。电脑产生的n位数字分别保存在数组num的n个下标变量num (1)、num (2)、…、num (n)中。
    程序界面如图VB-1所示,用户在文本框Text1中输入数字长度,单击“确定长度”按钮(Command1)后,在文本框Text2中输入数字,单击“判定”按钮(Command2)后,程序在标签Label3中输出校验结果。
相应的程序如下,在程序划线处,填入适当的语句或表达式,把程序补充完整。

Dim num(1 To 25) As Integer
Private Sub Command1_Click()
 Dim i As Integer,n As Integer
 n = Val(Text1.Text)
 For i = 1 To n                   '产生n位小于8的密码,每位一个非负整数,保存到数组num
  num(i) = {#blank#}1{#/blank#}
 Next i
End Sub
Private Sub Command2_Click()
Dim x(1 To 25) As Integer, i As Integer, s As Integer, n As Integer
 n = Val(Text1.Text)
 For i = 1 To n
     x(i) = {#blank#}2{#/blank#}    '把文本框中数字逐个分割出来并转化成数值
 Next i
 s = 0                               '变量s保存不同字符的总数
 For i = 1 To n
  If num(i) <> x(i) Then  s = s + 1
 Next i
 If {#blank#}3{#/blank#} Then
  Label3.Caption = "恭喜你猜中了!"
 Else
      Label3.Caption = "你输入的数字共有" + Str(s) + "个字符不符"
 End If
End Sub
返回首页

试题篮