题库 高中信息

题干

字符串变量a的值为“Hello,world!”,下列Visual Basic表达式的值是“world”的是(   )
A.Len(a,6,5)B.Mid(a,6,5)
C.Mid(a,7,4)D.Mid(a,7,5)
上一题 下一题 0.99难度 选择题 更新时间:2020-01-17 01:18:38

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

同类题5

小王编写了一个统计多选题分数的VB程序。得分规则是:多选题共有6个候选项(A、B、C、D、E、F),全部答对得2分,部分答对得1分,未作答或有错误答案0分。设计一个能够评分的程序,要求如下:在文本框Text1中输入标准答案,在文本框Text2中输入学生答案(输入时必须按字母从小到大顺序输入)。点击评分按钮Command1后,将得分显示在标签Label4中。程序界面如题图所示:
(1)要使程序运行后,窗体Form1的标题栏中显示“评分”,正确的做法是______(单选,填字母)
A.将窗体的Text属性改为“评分”
B.在Form_Load()事件中输入代码
Form1.Caption="评分"
C.在Form1_Load()事件中输入代码
Form.Name="评分"
(2)实现上述功能的程序如下,请在划线处填入合适的代码:
Private Sub Command1_Click()
Dim cans As String ,ans As String ,ch As String ,c As Integer
Dim f(1 To 6) As Boolean
cans = Text1.Text
ans = ____________
c = 0
For i = 1 To 6
f(64+i)=False
Next i
For i = 1 To Len(cans)
ch = Mid(cans, i, 1)
f(Asc(ch) - 64) = True
Next i
For i = 1 To ___________     
ch = Mid(ans, i, 1)
If f(Asc(ch) - 64) = False Then
c = 0: Exit For
Else
c  = c + 1
End If
Next i
If c = 0 Then
Label4.Caption = "0分"
ElseIf c = Len(cans) Then    
Label4.Caption = "2分"
Else
Label4.Caption = "1分"
End If
End Sub
(3)若去除加框处代码,且将文本框Text2的内容改为“BCD”,标签Label4显示的内容是________。