下列程序段执行后,文木框Text1中显示的内容是()
s = “QUOTES: keep on going never give up! ”
flag = False:m = 0
For i = 1 To Len(s)
flag = False
End If
Next i
Text1. Text = Str(m)
s = “QUOTES: keep on going never give up! ”
flag = False:m = 0
For i = 1 To Len(s)
ch= Mid(s, i, 1)
If ch >= "a" And ch < = “z” Then
If Not flag Then
m = m+1
flag = True
End If
Elseflag = False
End If
Next i
Text1. Text = Str(m)
A.5 | B.6 | C.7 | D.21 |
更新时间:2020-03-25 12:08:35
|
【知识点】 VB程序的调试
相似题推荐
选择题
|
较难
(0.4)
【推荐1】VB标准函数Rnd的作用是返回一个大于等于0且小于1的随机实数,若要“生成一个大于等于10且小于100的随机整数”的VB表达式是( )
A.Int(Rnd()*100) |
B.Int(Rnd()*99+1) |
C.Int(Rnd()*99+10) |
D.Int(Rnd()*90)+10 |
您最近一年使用:0次
选择题
|
较难
(0.4)
【推荐2】下列程序的执行结果是( )
END SUB
PRIVATE SUB FORM__CLICK( )
X=INT(RND)+5
IF X THEN PRINT X ELSE PRINT X+2END SUB
A.0 |
B.7 |
C.出错 |
D.5 |
您最近一年使用:0次
选择题
|
较难
(0.4)
【推荐3】编写一个二进制列表程序;功能如下;在文本框Textl中输入位数n,单击“显示”按钮Command1,在列表框Listl中顺序显示n位二进制编码。程序界面及代码如下。Private Sub Commandl_Click
可选的代码如下:
①2^n―1 ②2^n ③k=k\2 ④t=t\2
⑤tmp=Str(t)+tmp ⑥tmp=tmp+Str(t)
则程序(1),(2),(3)处的代码依次为( )
Dim tmp As String
Dim n As Integer, t As Integer
Dim i As Integer, j As Integer, k As Integer
n=Val(Textl. Text)
For i=0 To (1) _
tmp=""
k=i .
For j=1 To n
t=k Mod 2
(2)
(3)
Next j
Listl. AddItem tmp
Next i
End Sub可选的代码如下:
①2^n―1 ②2^n ③k=k\2 ④t=t\2
⑤tmp=Str(t)+tmp ⑥tmp=tmp+Str(t)
则程序(1),(2),(3)处的代码依次为( )
A.①⑤③ | B.②④⑥ | C.②⑤④ | D.①⑥③ |
您最近一年使用:0次