第四章 程序设计基础 知识点题库
Private Sub Command1_Click()
Dim a As String, n As Integer
a = Text1.Text
Do While n > 1 And Mid (a, n, 1) = “0”
Loop
For i = n To 1 Step -1
Text2.Text =
Next i
End Sub
s=0
for i in range（1，8，3）：
s=s+i
print（s）
的程序，程序代码如下，请补充完整。 Private Sub Command1_Click( )
Dim i, n, tAs Integer
Dim m, s As Double
s=1：t=1
n=Val（Text1.Text）
For i=2 To n
m=1
For j=1 To ①
m= ② ‘计算1/（2*i-1）！
Next j
s=s+m*t ‘累加通项式
t=-t
Next i
Text2.Text=Str（s） ‘结果显示到文本框Text2中
End Sub
以上程序段运行时，为了实现上述功能，画线处应填入的代码分别为：①；②。
N=0
For i=1 to 25
If i mod 5= 0 then n=n+i
Next i
例如，输入字符串“addded”点击“运行”按钮后输出字符串“bd”；输入字符串“adddedb”，点击“运行”按钮后输出空字符串：输入字符串“abbba”点击“运行”按钮后输出字符串“bea”。
-
（1） 要使窗体Form1标题显示“字符串消消乐”，可修改窗体的(单选，填字母：A .Text/B .Caption/C .Name)属性来实现。
-
（2） 若输入字符串"ABCOCCDBA"，点击“运行"按钮后输出字符事为：。
-
（3） 算法的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click( )
Din s1 As String, s2 As String
Dim i As Integer, j As Integer
S1 = Text1.Text
Do While Len(s1) > 1
s2=“”：i=1
Do While i<= Len(s1)
For j= i +1 To Len(s1)
If Mid(s1, i, 1) < Mid(s1, j, 1) Then Exit For
Next j
If j=i+1 Then s2= s2 + Mid(s1, i, 1)
Loop
If s2= s1 Then Exit Do
s1 =
Loop
Label1.Caption = s1
End Sub
Dim s1 As String, s2 As String, ch As String
Const code = "@*()^&#"
s1 = Text1.Text
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)
If ch >= "a" And ch <= "z" Then
t = (Asc(ch) - 65 + i) Mod 7
s2 = Mid(code, t + 1, 1) + s2
Else
s2 = s2 + ch
End If
Next i
Text2.Text = s2
若 text1 中输入字符“AbCd”，则 text2 中输出的是 （ ）
-
（1） 实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click( )
Dims As String，ch As String
Dim i As Integer，t As Integer
Dim ans As Long，px As Long
s=Text1.Text
ans=0：t=0：px= 1
For i=1 To Len（s）
ch=Mid（s，i，1）
IfThen
t=t*10+Val（ch）
Else
px=px*t
If ch= "_" Then
px=-1
End If
t=0
End If
Next i
Label 1.Caption=Str（ans+）
End Sub
-
（2） 若删除加框处代码，在文本框Text1中输入表达式“3-2+2*3”，程序运行结束时标签Label1中显示的内容为。
S=""
For i = 1 To 3
j=i+1:k=0
Do while j<=10
if a(j)<a(i) and a(j)>a(k) then k=j
j=j+1
Loop
s=s+str(a(k))
next i
数组元素a（0）到a（10）的值依次为“0，8，18，15，4，6，11，12，2，19，10”执行该程序段运行后，变量s的值是（ ）
temp = a(1)
For i=2 To 10
Next i
数组元素a(1)到a(10)的值依次为“36，48，25，32，28，20，30，52，15，8”。程序段中加框处语句执行5次后，变量temp的值为（ ）
s = not 2 * 5 != 11
print （s）
运行程序代码后，s的值是( )
请回答下列问题：
Const n=15
Private Sub Command1_ Click()
Dim a(1 To n) As Integer '数组 a存放不同颜色袜子的数量,默认值为0
Dim s As String, ch As String
Dim c As Integer, i As Integer, t As Integer
List1. Clear
s= Text1. Text
t=0：c=0：i=1
Do While i <= Len(s)
ch= Mid(s, i, 1)
If ch>= "0" And ch<= "9" Then
t=t * 10 + Val(ch)
Else
a(t)= ①
t=0
End If
i=i+ 1
Loop
For i=1 To n
If ② Then List1. AddIt-em"落单袜子的颜色为" + Str(i)
c= 
Next i
Label1. Caption="能配对的袜子有"+ Str(c) + "双"
End Sub
-
（1） 写出VB代码中的方法名(只需填一个方法名)；
-
（2） 根据题意，请在划线处填入合适代码
① ②
-
（3） 加框处程序代码有错，请改正。
>>>a="123"
>>>print("123"+a)
