注册

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

浙教版高一信息技术专题五：VB程序设计

下列VB程序运行时，在文本框Text1中输入"Basic"，单击命令按钮Command1后，文本框Text2中显示的是（）

Private Sub Command1_Click()

Dim i As Integer, n As Integer

Dim s1 As String, s2 As String, c As String

s1=Text1.Text

s2=” ”

n=Len(s1)

For i=1 To n

c=Mid(s1,i,1)

s2=c+s2

Next i

Text2.Text=s2

End Sub

A、cisaB B、csBai C、 Basic D、aicsB

举一反三

【加试题】猜数字游戏。由用户选择需要猜测的数字长度后,电脑随机产生一串相应长度的数字，用户输入猜测的数字，电脑判断用户所猜密码的正确性，如果用户输入的数字和电脑产生的密码完全一致则输出“恭喜你猜中了！”，否则程序将输出用户和计算机产生数字之间不同的字符数。电脑产生的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

某算法的流程图如下所示：

当输入a、b、c的值分别为5、2、8时，该算法的输出结果为（）

某市规定，只有年龄不超过26岁且学历在本科及以上的毕业生才能享受政府提供的住房补贴。如果用编程实现这一规定，我们在设计算法时应采用( )

计算机程序的三种结构是顺序结构、（）、选择结构。

要计算S=1-2+3-4+5……-100以下不正确的程序段是（）

S=0 ：T=1

For i=1 to 100

S=s+i*T

T=-T

Next i

①

S=0

For i=1 to 100

S=s+i*(-1)^(i+1)

Next i

②

S=0

For i=1 to 100

S=s+i*(-1)^i

Next i

③

S=0：S1=0：S2=0

For i=1 to 50

S1=s1+2*i-1

S2=s2+2*i

Next i

S=s1-s2

④

小王为学校教务处编写了一个排考场座位的VB程序。考场采用“6排5列”共30人的模式。程序执行后，考生的考号与姓名显示在列表框List1中，单击“考场座位”按钮Command1，考场号与座位显示在Text1中，程序运行界面如图a所示，考生数据存放在数据库文件“kaochang.accdb”中，数据表如图b所示。

实现上述功能的VB程序如下，请回答下列问题:

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

周一至周五 8:30-17:30

在线咨询客服