- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
在Visual Basic中定义一个二维的而且最多可以存储100个单精度实数型数值型数组s，正确的数组定义语句是（ ）
| A．Dim s(1 to 100) As Integer |
| B．Dim s(1 to 100) As Single |
| C．Dim s(1 to 10,1 to 10) As Single |
| D．Dim a(1 To 100,1 to 100) As Double |
以下程序段的运行结果是
Private Sub Form_Click()
Dim s As Long, f As Long
Dim n As Integer, i As Integer
f = 1
n = 4
For i =" 1" To n
f =" f" * i
s =" s" + f
Next i
Print "s="; s
End Sub
Private Sub Form_Click()
Dim s As Long, f As Long
Dim n As Integer, i As Integer
f = 1
n = 4
For i =" 1" To n
f =" f" * i
s =" s" + f
Next i
Print "s="; s
End Sub
下列VB程序运行时，单击命令按钮Command1后，文本框显示的内容是
Private Sub Command1_Click()
a = 2
b = 2
Do While a <= 4
a =" a" * b
b =" a" * b
Loop
Text1.Text = Str(a)
Text2.Text = Str(b)
End Sub
Text1中显示 , Text2中显示 。
Private Sub Command1_Click()
a = 2
b = 2
Do While a <= 4
a =" a" * b
b =" a" * b
Loop
Text1.Text = Str(a)
Text2.Text = Str(b)
End Sub
Text1中显示 , Text2中显示 。
在VB中，要将“Welcome”这个单词显示在标签Label1上，下列语句正确的是（ ）
| A．Label1=Welcome |
| B．Label1.text="Welcome" |
| C．Label1.caption="Welcome" |
| D．Label1.caption=str(Welcome) |
PM2.5能较长时间悬浮于空气中，其在空气中含量浓度越高，就代表空气污染越严重.当PM2.5值达到178时，输出的P的值为（ ）
| A．优良 | B．轻度污染 | C．中度污染 | D．严重污染 |
有如下Visual Basic程序，输入n的值为11.在调试时程序首先出现的错误是（ ）
Private Sub Command1_Click
Dim n As Integer
Dim a(1 To 10) As Integer
n=Val(Text1.Text)
s=1
For i =" 1" To n
s =" s" * i
a(i) = s
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command1_Click
Dim n As Integer
Dim a(1 To 10) As Integer
n=Val(Text1.Text)
s=1
For i =" 1" To n
s =" s" * i
a(i) = s
List1.AddItem Str(a(i))
Next i
End Sub
A． | B． |
C． | D． |
213班举办了一次“人物大竞猜”活动。班主任设计了个Visual Basic小程序，功能如下所示：在程序界面中，共有三道题目，分别点击三个按钮，相应出现人物图片，同学们在相应文本框中输入该人物名称，通过点击“查看”按钮（Command1）来检验自己答对与否。程序运行界面如图所示：
打开考生文件夹下 “VB”文件夹下中的“people.vbp”工程，完成以下操作：
（1）结合界面所示，在窗体的合适位置添加图像控件“image1”，并将其stretch属性设置为“True”。
（2）修改窗体标题为“人物大竞猜”。并为程序添加代码，代码来自“VB”文件夹下的“code.txt”。
（3）在调试时发现，单击Command2按钮（No.2）Command3按钮（No.3）后图像能正确显示，但是单击Command1按钮（No.1）图像无法正确显示，请调试程序，实现鼠标单击Command1按钮后显示“1.jpg”。
（4）程序调试正确后，生成“people.exe”，保存在“VB”文件夹中。保存窗体文件和工程文件。
打开考生文件夹下 “VB”文件夹下中的“people.vbp”工程，完成以下操作：
（1）结合界面所示，在窗体的合适位置添加图像控件“image1”，并将其stretch属性设置为“True”。
（2）修改窗体标题为“人物大竞猜”。并为程序添加代码，代码来自“VB”文件夹下的“code.txt”。
（3）在调试时发现，单击Command2按钮（No.2）Command3按钮（No.3）后图像能正确显示，但是单击Command1按钮（No.1）图像无法正确显示，请调试程序，实现鼠标单击Command1按钮后显示“1.jpg”。
（4）程序调试正确后，生成“people.exe”，保存在“VB”文件夹中。保存窗体文件和工程文件。
请认真阅读并分析下面Visual Basic程序代码，按要求完成题目。
Dim a(1 To 6) As Integer
Dim n, i, j, k As Integer
Private Sub Command1_Click()
For i =" 1" To n - 1
For j = （1） To n
If a(i) < a(j) Then
k = a(i): （2） : a(j) = k
End If
Next j
Next i
For i =" 1" To n
list2.AddItem Str(a(i))
Next I
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val( (3) )
List1.AddItem Str(a(n))
Text1.Text = "": Text1.SetFocus
End If
End Sub
①程序中出现了text和list两种控件，其中list控件的中文名称是列表框，text控件的中文名称是 。
（2）在上述程序段中3处带序号的空白地方补充恰当的语句，完善程序。
Dim a(1 To 6) As Integer
Dim n, i, j, k As Integer
Private Sub Command1_Click()
For i =" 1" To n - 1
For j = （1） To n
If a(i) < a(j) Then
k = a(i): （2） : a(j) = k
End If
Next j
Next i
For i =" 1" To n
list2.AddItem Str(a(i))
Next I
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val( (3) )
List1.AddItem Str(a(n))
Text1.Text = "": Text1.SetFocus
End If
End Sub
①程序中出现了text和list两种控件，其中list控件的中文名称是列表框，text控件的中文名称是 。
（2）在上述程序段中3处带序号的空白地方补充恰当的语句，完善程序。