- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- + 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
在 VB 中，在标签 Lab1 中显示"云富高中"，应改变的属性是（）
| A．Font | B．Text | C．Caption | D．Backcolor |
在 VB 中，将整数型变量 c 的值显示在文本框 Text1 中，完整的语句是（ ）
| A．c=Str(Text1.Text) |
| B．c=Val(Text1.Text) |
| C．Text1.Text=Str(c) |
| D．Text1.Text=Val (c) |
在 VB 中，鼠标单击命令按钮 Command1 触发的事件处理过程名是（ ）
| A．Command1Click | B．Command1_Click |
| C．Command1GotFocus | D．Command1_GotFocus |
数学中的“自守数”：如果一个数的平方数的末几位等于该数本身，这个数就是自守数。例如：
5*5=25
6*6=36
25*25=625
76*76=5776
……
那么，5、6、25、76 等数被称为自守数。小袁编写一个 VB 程序，实现如下功能：找出 10000 以内所有可能的自守数，单击“统计”按钮 Command1，将符合要求的自守数显示在列表框 List1 中，统计个数显示在标签 Label1 中，运行界面如图所示。
（1）程序运行时要在按钮上显示“统计”，应设置该按钮的________属性。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim n As Single, k As Integer, t As Integer, c As Integer
List1.Clear c=0
For n = 5 To 10000
k = Len(Trim(n)) 'Trim()函数用于删除字符串前后的空格
t = (n * n) Mod
If t = n Then
① _ List1.AddItem Str(n)
②
End If
Next n
为实现上述功能，划线处应填入的代码分别为
①__________________________________________ 。
②___________________________________________。
（3）解决该问题采用了_______（选填：枚举/解析）算法。
5*5=25
6*6=36
25*25=625
76*76=5776
……
那么，5、6、25、76 等数被称为自守数。小袁编写一个 VB 程序，实现如下功能：找出 10000 以内所有可能的自守数，单击“统计”按钮 Command1，将符合要求的自守数显示在列表框 List1 中，统计个数显示在标签 Label1 中，运行界面如图所示。
（1）程序运行时要在按钮上显示“统计”，应设置该按钮的________属性。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim n As Single, k As Integer, t As Integer, c As Integer
List1.Clear c=0
For n = 5 To 10000
k = Len(Trim(n)) 'Trim()函数用于删除字符串前后的空格
t = (n * n) Mod
If t = n Then
① _ List1.AddItem Str(n)
②
End If
Next n
Label1.Caption = "自守个数为：" + Str(c)
End Sub为实现上述功能，划线处应填入的代码分别为
①__________________________________________ 。
②___________________________________________。
（3）解决该问题采用了_______（选填：枚举/解析）算法。
小明在物理课堂上学了并联电阻的阻值计算知识（并联后的电阻阻值的倒数等于各个并联电阻阻值的倒数之和）后编写了一个计算并联电阻阻值的程序，程序界面如 16 题图所示。在文本框Text1中输入各个并联电阻的阻值以“，”为间隔，单击“计算”按钮 Command1 后，将这些电阻并联后的阻值计算结果显示在 Label4 中。
（1）要使程序运行后，窗体 Form1 的标题栏中显示“阻值计算”，正确的做法是________。（单选，填字母：
（2）实现上述功能的程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, r As String, ch As String
Dim Rs As Single ‘Rs 变量表示并联后的总阻值
Dim i As Integer
s = Text1.Text
r = "": i = 1: Rs = 0
Do While _____________
ch = Mid(s, i, 1)
If ch <> "," Then
r = r + ch
Else
Rs = Rs + 1 / Val(r)
r = ""End If
i = i + 1
Loop
Rs = _____ Rs = 1 / Rs
Label4.Caption = _____
End Sub
(3) 如果在文本框 Text1 中输入“2,2,”后,单击“计算”按钮后，则程序的运行结果为__________ 。
（1）要使程序运行后，窗体 Form1 的标题栏中显示“阻值计算”，正确的做法是________。（单选，填字母：
| A．将窗体的 Text 属性改为 “ 阻值计算”/ | B．在 Form_Load( ）事件中输入代码 Form1.Caption=“阻值计算”/ | C．在 Form1_Load()事件中输入代码 Form.Name= “阻值计算”) |
Private Sub Command1_Click()
Dim s As String, r As String, ch As String
Dim Rs As Single ‘Rs 变量表示并联后的总阻值
Dim i As Integer
s = Text1.Text
r = "": i = 1: Rs = 0
Do While _____________
ch = Mid(s, i, 1)
If ch <> "," Then
r = r + ch
Else
Rs = Rs + 1 / Val(r)
r = ""End If
i = i + 1
Loop
Rs = _____ Rs = 1 / Rs
Label4.Caption = _____
End Sub
(3) 如果在文本框 Text1 中输入“2,2,”后,单击“计算”按钮后，则程序的运行结果为__________ 。
下列VB程序运行时，在文本框Text1中输入1234，单击命令按钮Command1后，文本框Text1中显示的内容是________。该程序使用了________结构（填：顺序 / 选择 / 循环）。
n = Val ( Text1.Text )
x = n Mod 10
n = x * 1000 + n \ 10
Text1.Text = Str ( n )
Private Sub Command1_click ( )
Dim n As Integer , x As Integern = Val ( Text1.Text )
x = n Mod 10
n = x * 1000 + n \ 10
Text1.Text = Str ( n )
End Sub