- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 程序设计语言
- 循环结构
- 分支结构
- 顺序结构
- 类、对象、属性、方法、事件和事件处理的概念
- VB应用程序的界面设计与调试
- 基本数据类型
- 常量、变量、数组
- + 常用的标准函数
- 基本运算及表达式
- 赋值语句
- 选择语句
- 循环语句
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
对于任意小数 a，如果要四舍五入保留 2 位小数，表达式为
| A．(int(a)*10+0.5)/10 | B．int(a*10+0.5)/10 |
| C．(int(a)*100+0.5)/100 | D．int(a*100+0.5)/100 |
产生[1，40] 范围内某一随机整数的表达式是
| A．Rnd * 40 | B．Int(Rnd * 40) |
| C．Int(Rnd * 40) + 1 | D．Int(Rnd * 39) + 1 |
素数只能被 1 和它本身整除，不能被其他自然数整除。编写 VB 程序实现如下功能：单击“产生奇数并判断”按钮 Command1，随机产生一个三位正奇数显示在文本框 Text1 中，并在文本框 Text2 中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为 953 时，程序运行界面如图 a 所示。
(1)在设计程序界面时，应使用图 b 所示“控件工具箱”中的_____(填写相应编号)添加文本框 Text1。
(2)实现上述功能的 VB 程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim flag As Boolean ‘用于标记是否为素数
Randomize
n =____________________ ‘n 为三位正奇数
Text1.Text = Str(n) : flag = True: i = 3
Do While i <= n - 1 And flag = True
If n Mod i = 0 Then flag = False
End If
i = i + 2
Loop
If ____________Then
Text2.Text = Str(n) + “是素数”
Else
Text2.Text = Str(n) + “不是素数”
End If
End Sub
(3)以下选项中，与加框处表达式“n Mod i = 0”等价的是_____(单选，填字母）。
(1)在设计程序界面时，应使用图 b 所示“控件工具箱”中的_____(填写相应编号)添加文本框 Text1。
(2)实现上述功能的 VB 程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim flag As Boolean ‘用于标记是否为素数
Randomize
n =____________________ ‘n 为三位正奇数
Text1.Text = Str(n) : flag = True: i = 3
Do While i <= n - 1 And flag = True
If n Mod i = 0 Then flag = False
End If
i = i + 2
Loop
If ____________Then
Text2.Text = Str(n) + “是素数”
Else
Text2.Text = Str(n) + “不是素数”
End If
End Sub
(3)以下选项中，与加框处表达式“n Mod i = 0”等价的是_____(单选，填字母）。
| A． n \ i = Int(n / i) | B．n \ i = n/ i | C．n Mod i = n \ i |
小明编写了一个字符重组程序，在文本框 Text1 中输入偶数个字符，单击“重组”按钮 Command1 后，将输入的内容从头、尾至中间依次取字符，组成一个新的字符串 Str2，并在文本框 Text2 中输出。例如在文本框 Text1 中输入字符 "12345678"，程序运行后在文本框 Text2 中显示字符 "18273645"。
实现上述功能的 VB 程序如下，请在划线处填入合适的代码：
Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1 = Text1.Text
Str2 = "" : m = 0
Do while _______________
Str2 = Str2 + ___________
Str2 = Str2 + ___________
m = m + 1
Loop
Text2.text=str2
End Sub
实现上述功能的 VB 程序如下，请在划线处填入合适的代码：
Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1 = Text1.Text
Str2 = "" : m = 0
Do while _______________
Str2 = Str2 + ___________
Str2 = Str2 + ___________
m = m + 1
Loop
Text2.text=str2
End Sub
随机产生一个二位正奇数的VB表达式是（ ）
| A．Int(Rnd*99) + 1 |
| B．Int(Rnd*88) + 11 |
| C．2* Int(Rnd*45 + 5) + 1 |
| D．2* Int(Rnd*45 + 5) - 1 |
随机生成15个100以内[1,100]的正整数并显示在一个文本框中，再点击交换按钮将所有对称位置的两个数据对调后显示在另一个文本框中（第1个数与第15个数对调，第2个数与第14个数对调……）。小叶设计的运行界面和程序代码如下：
Dim a(1 To 15) As Integer
Private Sub Form_Load()
Dim i As Integer, t As Integer
Dim s1 As String, s2 As String
Randomize
s1 = ""
For i = 1 To 15
a(i) =___________
s1 = s1 + Str(a(i))
Next i
Text1.Text = s1
End Sub
Private Sub Com1_Click()
s2 = ""
For i = 1 To 15
s2 =_____________
Next i
Text2.Text = s2
End Sub
（1）要使窗体的标题显示文字“数字交换”，应该更改Form1的_________________ 属性（A. Name /B. Caption /C. Font /D. Forecolor）。从程序代码可知，此命令按钮的对象名是________________________。
（2）请在划线处填入合适代码。
（3）程序测试运行后生成如下文件：（A. jiaohuan.frm /B. jiaohuan.vbp /C. jiaohuan.vbw /D. jiaohuan.exe）。其中属于windows系统可执行文件是：（单选，填字母_________________）。
Dim a(1 To 15) As Integer
Private Sub Form_Load()
Dim i As Integer, t As Integer
Dim s1 As String, s2 As String
Randomize
s1 = ""
For i = 1 To 15
a(i) =___________
s1 = s1 + Str(a(i))
Next i
Text1.Text = s1
End Sub
Private Sub Com1_Click()
s2 = ""
For i = 1 To 15
s2 =_____________
Next i
Text2.Text = s2
End Sub
（1）要使窗体的标题显示文字“数字交换”，应该更改Form1的_________________ 属性（A. Name /B. Caption /C. Font /D. Forecolor）。从程序代码可知，此命令按钮的对象名是________________________。
（2）请在划线处填入合适代码。
（3）程序测试运行后生成如下文件：（A. jiaohuan.frm /B. jiaohuan.vbp /C. jiaohuan.vbw /D. jiaohuan.exe）。其中属于windows系统可执行文件是：（单选，填字母_________________）。
下列VB表达式中的值必定为一个两位正奇数的是
| A．Int(Rnd()*90+11) |
| B．Int(Rnd()*45+5)*2+1 |
| C．Int(Rnd()*88+10)+1 |
| D．Int(Rnd()*90+11)*2+1 |
字符串变量a的值为“Hello,world！”，下列Visual Basic表达式的值是“world”的是( )
| A．Len(a，6，5) | B．Mid(a，6，5) |
| C．Mid(a，7，4) | D．Mid(a，7，5) |