注册

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

浙江省湖州市菱湖中学2018-2019学年高二下学期信息技术3月月考试卷

在Visual Basic中，下列能作为变量名的是（）

A、If B、Not C、Int D、Flag

举一反三

【加试题】小明为班会设计了一个抽奖程序，将所有同学的编号和对应的姓名分别保存在数组a（全班共50个同学，编号为1到50）和数组b中，点击抽奖按钮后，程序会随机产生一个1到50的正整数（同时包括1和50），作为中奖编号。

效果如图所示，左边列表框List1中显示同学的编号和姓名，单击"抽奖"按钮（Command1），在标签Label3中显示抽中的编号，同时在标签Label4中显示"恭喜***同学"，其中具体同学的姓名从数组b中获取。
解决此问题的程序段如下：
Dim a(1 To 50) As Integer，b(1 To 50) As String
Private Sub Command1_Click()
Dim c As String, t as Integer    ①
Randomize
c=Int(Rnd()*50+1)
Label3.Caption = Str(c)
t = search(c)
    If t < 0 Then    ②
       Label4.Caption = "恭喜" + b(c) + "同学"
    End If
End Sub
Function search(m As Integer) As Integer
search = 0
For i = 1 To 50
    If m = a(i) Then
       search = a(i)
    End If
Next i
End Function
Private Sub Form_Load()    ' 此过程用于对数组a和数组b进行初始赋值，代码略
End Sub
上面代码中有错误请改正。
①{#blank#}1{#/blank#}②{#blank#}2{#/blank#}

下列VB的表达式值为的是65的是：（）

下列各项是常量的有（）

VB中的常量分为{#blank#}1{#/blank#}常量和{#blank#}2{#/blank#}常量。

小蓝设计了一个数字字符串的简单加密解密小程序，该程序的加密规则是计算连续升序子串的长度，将该长度字符插入到相应子串后面。例如：

输入2350123456783，先将字符串拆成三段，分别是235,012345678,3要求每一段必须严格有序，如果无法实现连续升序，则单独作为一个拆分。

原字符串	235		012345678	3
连续升序字符数	3		9	1
密文	235	3	012345678	9	3	1

在文本框Text1中输入原文，单击“加密”按钮，可在文本框Text2中输出密文。

在文本框Text2中输入密文，单击“解密”按钮，可在文本框Text3中输出原文。

在窗体上画一个名称为Label1的标签,然后编写如下事件过程，程序运行后,单击窗体,在标签中显示的内容是（）

Private Sub Form_Click()

Dim arr(1 to 10, 1 to 10） As Integer

Dim i As Integer, j As Integer

For i =2 To 4

For j = 2 To 4

arr(i, j） = i * j

Next j

Next i

Label1.Caption =str(arr(2, 2）+ arr(3, 3))

End Sub

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

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

在线咨询客服