未分类题

在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下事件过程：
Private Commandl_Click（）
Dim i As Integer, n As Integer
For i=0 To 50
i = i+3
n = n+1
If i>10Then Exit For
Next
Textl.Text=Str（n）
End Sub
程序运行后，单击命命令按钮，在文本框中显示的值是（ ）。 A．5
B．4
C．3
D．2

A.Text=Str（n）
B.5
C.4
D.3

【参考答案】

C
在此题中要注意Exit For语句，该语句是跳出循环体，变量n记录循环执行次数。由于循环跳出的条件......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
<上一题 目录 下一题>
热门 试题

未分类题
在窗体上画一个名称为 Text1 的文本框和一个名称为 Commandl 的命令按钮，然后编写如下事件过程：Private Commandl_Click（） Dim i As Integer, n As Integer For i=0 To 50 i = i+3 n = n+1 If i>10Then Exit For Next Textl.Text=Str（n） End Sub 程序运行后，单击命命令按钮，在文本框中显示的值是（ ）。 A．5 B．4 C．3 D．2
未分类题
下面程序的功能是把文件file11.txt中重复字符去掉后（即若有多个字符相同，则只保留1个）写入文件file2.txt。请填空。Private Sub Command1__Click（） Dim inchar AS String,temp AS String,outchar AS String utchar=” ” pen=”file1.txt” For Input AS #1 pen=”file2.txt” For Output AS ______ n=LOF（ ______ ） inchar=Input$（n,1） For k=1 To n temp=Mid（inchar,k,1） If InStr（outchar,temp）= ______ Then outchar=outchar & temp End If Next k print #2, ______close #2 close #1 End Sub
相关试题