4.1 算法及其特征 知识点题库
-
（1） 在设计程序界面时，要清空标签中显示的内容“Label1”，应修改该标签的属性。
-
（2） VB程序代码如下，请在划线处填入合适代码。
Private Sub Command1_Click( )
Dim n As Integer, s As Integer
s = 0
n = Val(Text1. text)
If n > 1 Then
For i = 1 To n
s =
If n = s Then
Label1. Caption = Str(n) +“是一个三角形数。”
Exit For
Label1. Caption = Str(n) +“不是一个三角形数。”
Exit For
End If
Next i
Else
Labell.Caption = “请输入一个大于1的正整数”
End If
End Sub
-
（3） 若文本框Text1中输入的内容为“27”，单击按钮Command1后，标签Label1中显示的内容是
Dim c(1 To 26)As Integer
s=Text1.Text
For i=1 To Len(s)
x=Mid(s, i, 1)
If x>="a" Then
t=Asc(x)-Asc("a")+1
Else
t=Asc(x)-Asc("A")+1
End If
①
If c(t)>=Max Then Max=c(t): ②
Next i
Text 2.Text=Chr(f+Asc("A"))
划线处应该填入的正确语句是（ ）
for i in range(1):
if :
print(i,“3×6528＝3”，i，“×8256”，sep＝“”）
下列选择正确的是（ ）。
Dim i As Integer
i=10
Do While i <= 20
Print i*9
Loop
