组卷网 > 高中信息技术综合库 > 算法软件操作 > VB程序的调试
题型:选择题 难度:0.4 引用次数:33 题号:9895692
下列程序段执行后,文木框Text1中显示的内容是()
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

        Else
            flag = False
        End If
Next i
Text1. Text = Str(m)
A.5B.6C.7D.21
【知识点】 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
2016-12-13更新 | 151次组卷
选择题 | 较难 (0.4)
【推荐2】下列程序的执行结果是( )

PRIVATE   SUB   FORM__CLICK( )

X=INT(RND)+5

     IF     X     THEN     PRINT     X   ELSE   PRINT   X+2
     END   SUB
A.0
B.7
C.出错
D.5
2019-07-21更新 | 11次组卷
选择题 | 较难 (0.4)
【推荐3】编写一个二进制列表程序;功能如下;在文本框Textl中输入位数n,单击“显示”按钮Command1,在列表框Listl中顺序显示n位二进制编码。程序界面及代码如下。

Private Sub Commandl_Click

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.①⑥③
2020-03-25更新 | 23次组卷
共计 平均难度:一般