- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- + 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
小辉用Visual Basic制作了一个动画程序，部分程序代码如下所示
Dim a As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
a = a + 1
Image1.Picture = LoadPicture(App.Path & "\" & a & ".jpg")
If a >= 8 Then a = 0
End Sub
单击命令按钮Command1，加框处语句执行的时间间隔为（ ）| A．0.1秒 | B．1秒 | C．10秒 | D．100秒 |
在VB中，程序代码 “Text1.Text = "Visual Basic"”，其中Text1、Text和"Visual Basic" 分别代表的是（ ）
| A．对象、值、属性 | B．属性、对象、值 |
| C．对象、属性、值 | D．对象、方法、属性 |
下列控件中可用于接受用户输入文本，又可用于显示文本的是（ ）。
| A．Label 控件 | B．TextBox 控件 |
| C．Timer 控件 | D．CommandButton 控件 |
计算机在存储数字字符时，1个字符占1个字节（8位），现在有如下算法可以对数字字符的存储进行压缩：以每2个数字字符为一组，将其组成一个两位的十六进制数（如输入的“41”组成十六进制数41H），再转换为对应的ASCII字符进行存储。（注意：ASCII的最大值为127D，所以2个数字字符为一组时，第1个字符必须小于8，否则不合法）
例如：
小波用Visual Basic 6. 0软件编写了一个压缩程序，功能如下：在文本框Text1中输入需压缩数据（偶数个字符），单击“压缩”按钮，程序对压缩数据依次进行压缩处理，压缩数据显示在文本框Text2中。程序运行界面如图所示：
（1）结合程序代码，命令按钮“压缩”的对象名是_________________
（2）为实现上述功能，请在程序划线处填入合适的代码。
Private Sub cm1_Click()
Dim s1 As String，s2 As String，c1 As String，c2 As String
Dim i As Integer，k As Integer
s1 = Text1. Text
For i = 1 To Len(s1) Step 2
Exit For ‘跳出For循环
s2 = s2 + Chr(k) ‘ Chr函数的作用，将ASCII码转换为字符，例Chr(65) = “A”
Text2. Text = s2
End Sub
（3）若在文本框Text1中输入“61A2”，单击“压缩”按钮后，变量i的值为_________（单选，填字母：
例如：
| 输入 | 输出 |
| 414243 | ABC |
| 758927 | 不合法 |
小波用Visual Basic 6. 0软件编写了一个压缩程序，功能如下：在文本框Text1中输入需压缩数据（偶数个字符），单击“压缩”按钮，程序对压缩数据依次进行压缩处理，压缩数据显示在文本框Text2中。程序运行界面如图所示：
（1）结合程序代码，命令按钮“压缩”的对象名是_________________
（2）为实现上述功能，请在程序划线处填入合适的代码。
Private Sub cm1_Click()
Dim s1 As String，s2 As String，c1 As String，c2 As String
Dim i As Integer，k As Integer
s1 = Text1. Text
For i = 1 To Len(s1) Step 2
c1 = Mid(s1，i，1)
______________If c1 >= “8” Then
s2 = “不合法”Exit For ‘跳出For循环
Else
k = _____________s2 = s2 + Chr(k) ‘ Chr函数的作用，将ASCII码转换为字符，例Chr(65) = “A”
End If
Next iText2. Text = s2
End Sub
（3）若在文本框Text1中输入“61A2”，单击“压缩”按钮后，变量i的值为_________（单选，填字母：
| A．3 / | B．4 / | C．5 / | D．程序错误）。 |
小红编写了一个将5位以内的十六进制正整数转换成十进制数的VB程序，功能如下：在文本框Text1中输入一个十六进制正整数，单击“转换”按钮Command1，在标签Label3中显示结果。程序运行界面如图所示。
（1）要使窗体Form1标题显示“数制转换”，则需修改窗体的________（单击，填字母：A.Font/B.Caption/C.BackColor）属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim x As String, ch As String
Dim flag As Boolean, i As Integer, result As Long
x=_________
i=1
result=0
flag=True
ch=Mid(x,1,1)
Do While i <=Len(x) And flag=True
If ch>= “0” And ch<= “9” Then
result=result * 16+Val(ch)
ElseIf ch>= “A” And ch <= “F” Then
result=result * 16+(Asc(ch)-Asc (“A”)+10)
ElseIf ch>= “a” And ch <= “f” Then
result=result * 16+(Asc(ch)-Asc (“a”)+10)
Else
flag=False
End If
i=i+1
ch=_________
（3）若在文本框Text1中输入5+9，单击“转换”按钮后，标签Label3中显示的内容是______（单选，填字母：A.14/B.E/C.输入错误）。
（1）要使窗体Form1标题显示“数制转换”，则需修改窗体的________（单击，填字母：A.Font/B.Caption/C.BackColor）属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim x As String, ch As String
Dim flag As Boolean, i As Integer, result As Long
x=_________
i=1
result=0
flag=True
ch=Mid(x,1,1)
Do While i <=Len(x) And flag=True
If ch>= “0” And ch<= “9” Then
result=result * 16+Val(ch)
ElseIf ch>= “A” And ch <= “F” Then
result=result * 16+(Asc(ch)-Asc (“A”)+10)
ElseIf ch>= “a” And ch <= “f” Then
result=result * 16+(Asc(ch)-Asc (“a”)+10)
Else
flag=False
End If
i=i+1
ch=_________
Loop
If flag=True Then
Label3.Caption=Str(result)Else
Label3.Caption= “输入错误”End If
End Sub（3）若在文本框Text1中输入5+9，单击“转换”按钮后，标签Label3中显示的内容是______（单选，填字母：A.14/B.E/C.输入错误）。
在第59题中，要把命令按扭的标题修改为“计算”，应修改的属性是（ ）
| A．Height | B．BackColor | C．Caption | D．Font |
在VB窗体中，文件的工程窗口和当前对象的属性窗口如图所示，下列说法正确的是
| A．当前窗体的名称是：圆面积 |
| B．该对象的名称是：计算 |
| C．该对象属于命令按钮类 |
| D．该对象的Cancel属性值为True |
在窗体上画3个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是：（ ）
| A．Tag | B．Index | C．ListIndex | D．Name |