- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
将双精度浮点数变量x的值四舍五入保留三位小数，赋值给双精度浮点数变量y，y=_______________________________
运行程序时，Text1. text=“”语句会被自动执行，可以将该语句嵌入的过程是（ ）
| A．Command1_click | B．Form_load | C．Text1_click | D．Timer1_timer |
有如下VB程序：
Private Sub Command1_Click()
Dim a(5) As Integer
Randomize
For i = 1 To 5
a(i) = 2 * Int(Rnd * 3) + 1
Next i
For i = 1 To 5
r = 2 * Int(Rnd * 3) + 1
If a(r) Mod 2 = 1 Then a(r) = a(r) + 1
Next i
End Sub
该程序段运行后，a(1)~a(5)各元素的值不可能的是（ ）
Private Sub Command1_Click()
Dim a(5) As Integer
Randomize
For i = 1 To 5
a(i) = 2 * Int(Rnd * 3) + 1
Next i
For i = 1 To 5
r = 2 * Int(Rnd * 3) + 1
If a(r) Mod 2 = 1 Then a(r) = a(r) + 1
Next i
End Sub
该程序段运行后，a(1)~a(5)各元素的值不可能的是（ ）
| A．2，5，6，1，4 | B．4，1，2，3，4 |
| C．5， 6，3，2，6 | D．6，5，2，1，2 |
设计一个算法，计算导弹射程之间的最大距离差。具体程序功能如下：在文本框中输入各枚导弹的射程（单位：千公里），数据之间用逗号分割，以-1结尾。单击按钮，在标签框输出结果。例如在Text1中输入“15，9，1，2，3，8，7，-1”，单击“计算”按钮，输出结果为“14”。实现该算法的VB程序如下，界面如图所示，回答下列问题：
（1）为实现该程序，在窗体中至少需要使用_______类不同的控件对象（填数字）。
（2）算法具体代码对应如下，请在横线处填入合适的语句代码，使程序完整。
Private Sub Command1_Click()
Dim a(100) As Integer
Dim max As Integer: Dim min As Integer
Dim c As Integer: Dim i As Integer: Dim j As Integer: Dim Total As Integer
Dim s As String
s = Text1.Text
i = 1 : begin = 1 : c = 0
Do While i <= Len(s)
a(c) = Val(t)
begin =②__________
End If
i = i + 1
Loop
' 加框语句
min = a(1)
For i = 1 To c
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next i
Text2.Text = max - min
End Sub
（3）若删除程序中加框处语句，还是相同的输入数据，则计算出的最大差值为：_________。
（1）为实现该程序，在窗体中至少需要使用_______类不同的控件对象（填数字）。
（2）算法具体代码对应如下，请在横线处填入合适的语句代码，使程序完整。
Private Sub Command1_Click()
Dim a(100) As Integer
Dim max As Integer: Dim min As Integer
Dim c As Integer: Dim i As Integer: Dim j As Integer: Dim Total As Integer
Dim s As String
s = Text1.Text
i = 1 : begin = 1 : c = 0
Do While i <= Len(s)
k = Mid(s, i, 1)
If k = "," Then
t = ①_________
c = c + 1a(c) = Val(t)
begin =②__________
End If
i = i + 1
Loop
' 加框语句min = a(1)
For i = 1 To c
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next i
Text2.Text = max - min
End Sub
（3）若删除程序中加框处语句，还是相同的输入数据，则计算出的最大差值为：_________。
有如下 Visual Basic程序段，该程序段运行后，文本框Text1中显示的内容为（ ）
s="Hello， Kitty！ "
n=Len (s)
Textl. text= Mid (s,7,n-7)
s="Hello， Kitty！ "
n=Len (s)
Textl. text= Mid (s,7,n-7)
| A．Kitty | B．"Kitty" | C．"Kitty！ " | D．Kitty |
如下程序段执行后，i的值和y的值分别是（ ）
Dim y as Integer，i as integer
y=0
For i=1 To 10 Step 2
y=y+1
Next i
Dim y as Integer，i as integer
y=0
For i=1 To 10 Step 2
y=y+1
Next i
| A．10、25 | B．10、36 | C．11、16 | D．11、25 |
有如下VB程序段：
s="EXPO2019":m=0:n=0
For i=1 To Len(s)
ch= Mid(s, i, 1)
If ch >=A"And ch <="Z" Then t= Asc(ch)-Asc("A")+1 Else t=Asc(ch)-Asc("0")
If t Mod 2=0 Or t Mod 3=0 Then
Next i
Labell Caption= Str(m)+ "：" +Str(n)
执行程序段后，标签 Label1显示的内容是（ ）
s="EXPO2019":m=0:n=0
For i=1 To Len(s)
ch= Mid(s, i, 1)
If ch >=A"And ch <="Z" Then t= Asc(ch)-Asc("A")+1 Else t=Asc(ch)-Asc("0")
If t Mod 2=0 Or t Mod 3=0 Then
m=m+1
ElseIf t Mod 5=0 Thenn=n+1
End IfNext i
Labell Caption= Str(m)+ "：" +Str(n)
执行程序段后，标签 Label1显示的内容是（ ）
| A．6：2 | B．6：1 | C．5：2 | D．4：3 |
对称字符串的特征是从左到右读和从右到左读完全一样的。如“abba”是对称的，“abcba”也是对称的。判断文本框Text1中的字符串是否对称的VB程序段如下：
s-Textl.Text: k=0:n=Len(s)\2
For i=1 To n
If k= n Then Label1.Caption="对称" Else label1.Caption="不对称"
划线处代码合适的选项是（ ）
s-Textl.Text: k=0:n=Len(s)\2
For i=1 To n
If Mid(s,i,1)=Mid(s,__________,1) Then k=k+1
Next iIf k= n Then Label1.Caption="对称" Else label1.Caption="不对称"
划线处代码合适的选项是（ ）
| A．n- i | B．Len(s)-i |
| C．n-i+1 | D．Len(s)-i+1 |