算法的控制结构 知识点题库
i = 1: Sum = 0: t = 0
Do While i <= 10
If i Mod 3 = 0 Then
Sum = Sum + i
Else
t = t + 1
End If
i = i + 1
Loop
Dim a(1 To 100) As Single '依次存储100个学生成绩
Const n = 100
Private Sub Form_Load()
'本过程从数据库中读取1到100号学生成绩，并存储在数组a中
'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, max As single
max = ①
For i = 2 To n
if ②
Next i
Text1.Text = "成绩最高分是：" + Str(max)
End Sub
-
（1） 程序中①画线处应填入
-
（2） 程序中②画线处应填入。
X = 5：Y = Len（“2.345”）
If X > Y Then
Label1.Caption = “再见！”
Else
Label1.Caption = “你好！”
EndIf
该程序段运行后，在标签Label1上显示的是。
①接收用户输入 ②比较用户的输入和待猜数是否相等，相等则输出“猜对”，否则转向①继续执行，直到猜对为止。能表示此过程的流程图是（ ）
B . 
C . 
D . 
-
（1） 以上这段算法的描述所采用的描述方法是___ ____。
-
（2） 请用流程图来描述。把流程图画在下面
-
（1） 若要将窗体Form1的标题修改为“颜色转换”，则应修改Form1对象的 属性。
-
（2） 以下程序段运行时，为了实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click()
Const st = "0123456789ABCDEF"
Dim s, ch, rs As String
Dim m, r1, r2, n As Integer
For i = 1 To Len(s)
ch = Mid(s,i,1)
If ch > "9" Or ch < "0" Then
r2 = m Mod 16
rs = rs + Mid(st, r1 + 1, 1) + Mid(st, r2 + 1, 1)
m = 0
Else
m = m * 10 + Val(ch)
End If
Next i
Text2.Text = "#" + rs
End Sub
-
（3） 若黄色是由红色和绿色混合得到，则输入黄色的RGB值，文本框Text2中显示的内容为。
Dim i As Integer，s As Integer
s＝0
For i＝2 To ________ Step 2
s＝s＋i
Next i
Label1.Caption＝Str(s)
Private Sub Command1_Click()
a=Val(Text1.text)
b=Val(Text2.text)
Do While a Mod b<>0
r=a Mod b
a=b
b=r
Loop
Text3.text=str(b)
End Sub
在Text1、Text2中分别输入30、6，则Text3中的值为（ ）
k=0:s=0
Do While k<=10
s=s+1
k=k+1
Loop
Private Sub Command1_Click()
Dim a(1 To 6) As Integer
Dim d(1 To 6) As Integer
a(1) = 28: a(2) = 21: a(3) = 30: a(4) = 11: a(5) = 12: a(6) = 29
Const n = 6
Max = 0
For i = 1 To n
d(i) = 0
For j = 1 To i - 1
If a(j) < a(i) Then d(i) = d(i) + 1
Next j
If d(i) > Max Then Max = d(i)
Next i
End Sub
执行完以上程序后，Max的值为（ ）
-
（1） 本题适用的算法是和此算法的基本结构是（ ）。A . 查找算法，循环中嵌套分支 B . 枚举算法，循环中嵌套分支 C . 查找算法，循环中嵌套循环 D . 枚举算法，循环中嵌套循环
-
（2） 判断1000-9999范围内的整数x是同构数的条件是（ ）。A . x=x mod 1000 B . x=x^2 mod 1000 C . x=x mod 10000 D . x=x^2 mod 10000
-
（3） 编写程序，实现算法功能。
