相关试卷
-
1、小明编写了一个程序，运行时在文本框Text1中输入一个字符串，单击“去除数字”按钮Command1后，去除字符串中的数字字符，并在标签Lable2上输出结果。如图所示。
(1)、为实现上述功能，请在画线处填入合适的代码。Private Sub Command1_Click（）
Dim zfc As String '用于存储输入的字符串
Dim ans As String '用于存储处理后的字符串
Dim i As Integer，ch As String
Dim n As Intege r'用于存储输入的字符串的长度
①
n=Len（zfc）
i=1
Do While i<=n
②
If ch>="0"And ch<="9"Then
i=i+1
Else
③
i=i+1
End If
Loop
Label2.Caption="结果为："+ ④
End Sub
画线处应填入的代码为：①；②；③；④。
-
2、下列程序段执行后，x的值为（ ）
x=0
For i=1 To 3
For j=1 To i
For k=j To 3
x=x+1
Next k
Next j
Next i
A、16 B、14 C、9 D、8 -
3、已知s的初值为0，下列程序段执行后，s的值为（ ）
a=1：b=2
For i=1 To 6
c=a+b
a=b:b=c
k=2
Do While k<c
If c Mod k=0 Then Exit Do
k=k+1
Loop
If k=c Then s=s+1
Next i
A、6 B、5 C、3 D、1 -
4、已知s的初值为0，下列程序段执行后，s的值为（ ）
For i=3 To 10
f=1：k=2
Do While k<i And f=1
If i Mod k=0 Then f=0
k=k+1
Loop
s=s+f
Next i
A、7 B、5 C、4 D、3 -
5、下列程序段执行后，k的值为（ ）
k=0
For i=0 To 6 Step 2
For j=1 To 8
If j>5 Then k=k+2：Exit For
k=k+1
Next j
Next i
A、30 B、28 C、25 D、11 -
6、下列程序段执行后，n的值为（ ）
For i=1 To 5
k=i：s=0
Do While s<10
n=n+1
s=s+k
k=k+1
Loop
Next i
A、30 B、25 C、16 D、10 -
7、已知s和i的初值为0，下列程序段执行后，s的值为（ ）
Do While i<10
k=1
i=i+1
Do While k<10
s=s+1
k=k+i
Loop
Loop
A、30 B、28 C、10 D、5 -
8、下列程序段执行后，s的值为（ ）
t=1：s=0
For i=1To 4
m=1：t=-t
For j=1 To i
m=m*j
Next j
s=s+m*t
Next i
A、35 B、21 C、19 D、15 -
9、下列程序段执行后，a的值为（ ）
For i=1To 9
For j=i To 9
a=i*j
List1.AddItem i&"*"&j&"="&a
Next j
Next i
A、81 B、45 C、9 D、1 -
10、已知s的初值为0，下列程序段执行后，s的值为（ ）
s=0
For i=1 To 2
For j=6 To 1 Step-2.
s=s+1
Nextj
Next i
A、12 B、8 C、6 D、4 -
11、已知x的初值为0，下列程序段执行后，x的值为（ ）
For i=1 To 4
For j=i To 5
x=x+1
Nextj
Next i
A、20 B、15 C、14 D、9 -
12、有如下VB程序段：
n=45：m=25
Do While m<>0
r=n Mod m
n=m
m=r
Loop
Label1.Caption =Str（n）
该程序段运行后，标签Label1上显示的内容是（ ）
A、20 B、15 C、10 D、5 -
13、有如下VB程序段：
n=20：s=""
Do While n<>0
r=n Mod 2
s=Str（r）+s
n=n\2
Loop
Label1.Caption=s
该程序段运行后，标签Label1上显示的内容是（ ）
A、10010 B、00101 C、10100 D、01001 -
14、有如下VB程序段：
s="浙A665F5"
n=0：c=0：k=0
Do While n<=Len（s）
n=n+1
ch=Mid（s, n, 1）
If ch>="A" And ch<="Z" Then c=c+1
If ch >="0" And ch<="9" Then k=k+1
Loop
Label1.Caption=Str（k-c）
该程序段运行后，标签Label1上显示的内容是（ ）
A、0 B、1 C、2 D、3 -
15、已知字符A的内码为65，a的内码为97，则下列程序执行后，变量t的值为（ ）
s="AaBb"：t=""
For i=1 To Len（s）
ch=Mid（s, i, 1）
If ch>="a" And ch<="z" Then
ch=Chr（Asc（ch）-32）
End If
t=ch+t
Next i
A、"AaBb" B、"AABB" C、"BbAa" D、"BBAA" -
16、下列程序执行后，变量c的值是（ ）
c=0
For i=1 To 10
If i Mod 2=0 Or i Mod 3=1 Then
c=c+1
End If
Next i
A、4 B、5 C、6 D、7 -
17、下列程序执行后，变量ans的值是（ ）
s="A1B2C3"
ans=""
For i=1 To Len（s）
ch=Mid（s, i, 1）
If i Mod 2=1 Then ans=ans+ch
Next i
A、"AIB" B、"123" C、"AB" D、"ABC" -
18、下列程序执行后，变量c的值是（ ）
s="DZFad123"：c=0
For i=1 To Len（s）
ch=Mid（s, i, 1）
If ch>="A" And ch<="F" Then
c=c+1
End If
Next i
A、1 B、2 C、3 D、4 -
19、有如下VB程序段：
s=1：c=0
flag=True
Do While flag=True
s=s+2
If s>5 Then flag=False
c=c+1
Loop
Label1.Caption=Str（s+c）
该程序段运行后，标签Label1上显示的内容是（ ）
A、3 B、7 C、10 D、12 -
20、有如下VB程序段：
k=1：s=0
Do While k <= 5
s=s+k
k=k+1
Loop
Labell.Caption =Str（s +k）
该程序段运行后，标签Label1上显示的内容是（ ）
A、15 B、16 C、21 D、28