算法的控制结构 知识点题库
-
（1） 在设计程序界面时，为添加“确定”按钮，应使用如上右图所示“控件工具箱”中的（填相应编号）添加标签控件。要让Command1显示为“确定”，需要在属性面板中修改的值为“确定”。
-
（2） Command1_Clik事件过程如下，并请填写程序空白处。
Private Sub Command1_Click()
Dim x as '定义 x 为整型
x = Val(Text1.Text)
Then '条件语句
Text2.Text=
Else
Text2.Text = Str(0.2 + 0.1 * (x - 3))
End If
End Sub
-
（3） 这段程序属于结构程序设计。(填：顺序、选择或循环）
B . 
C . 
D . 
Dim a(1 To 9) As Integer, m As Integer, k As Integer, i As Integer
a(1)=2 : a(2)=8 : a(3)=3 : a(4)=4 : a(5)=5 : a(6)=6 : a(7)=1 : a(8)=7 : a(9)=9
m = 1: k = 1
For i = 2 To 9
If a(i) > a(i - 1) Then
k = k + 1
If k > m Then m = k
Else
k = 1
End If
Next i
Text1.Text = Str(m)
该程序段运行后，文本框Text1中显示的内容是（ ）
具体方法为：（1）若身份证号为15位，则根据第15位数字来判断，若为偶数则性别“女”，否则为“男”；（2）若身份证号为18位，则根据第17位数字来判断，若为偶数时则性别为“女”，否则为“男”。
图1
-
（1） 应用程序界面设计时，为添加“识别”按钮，应使用图2中“控件工具箱”中的（填写相应编号），并修改图3“属性窗口”中，将属性值设置为“识别”
-
（2） 请根据题意将下列程序补充完整
Dim x As String, n As Integer, s As String
x = Text1.Text
n = Len(x)
If n = 15 Then
s = Mid(, Len(x), 1)
If Val(s) Mod 2 = 0 Then
Text2.Text = "女"
Else
Text2.Text = "男"
End If
Else
s=Mid(x, 17, 1)
If Then
Text2.Text = "男"
Else
Text2.Text = "女"
End If
End If
Private Sub Form_Click( )
Dim x as Integer, n as Integer
x=1
n=0
Do While x < 20
n=n+1
x=x * 3
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
max=10 000
For i=1 To 10
s=0
For j=i To 10
s=s+a(j)
If s>max Then max=s
Next j
Next i
已知数组a(1)到a(10)的原始数据为6，-6，8，-7，7，2，-2，-1，-2，4。程序执行后，变量max的值为（ ）
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next i
End Sub
该程序计算了一个表达式的值，这个表达式是（ ）
-
（1） 观察上图，该程序中的窗体对象名为
(单选，填字母： A .求所有子串/ B.Forml / C .子串 .frm / D .工程 l . vbp )
-
（2） 实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub Command 3_ Click ()
Dim s As String , sum As Integer
Dim i As Integer , t As Integer , j as Integer
s = Text1. Text
t = Len ( s ) : sum = 0
For i = 1 To t
For j = i To t
List1.Addltem
sum=sum + 1
Next j
Next i
List1. Addltem "总共有"+ + "个子串"
End Sub
-
（3） 如果输入的字符串是“abcdefg”，则输出中有 个子串
Dim a(1 To 5) As Integer
a(1) = 1
For i = 2 To 5
a(i) = Int(Rnd() * 3) + 3
Next i
For i = 2 To 5
If a(i) Mod 2 = 1 Then
a(i) = a(i) + a(i - 1)
Else
a(i) = a(i) / 2
End If
Next i
执行程序后，a数组各元素可能是（ ）
Dim Sum As Long
Dim i As Long
Sum=0
i=0
Do While Sum<10
i=i+1
Sum=Sum+i*i
Loop
Print Sum
