更多"下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部"的相关试题:
[填空题]下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。
Private Sub Commandl_Click（ ）
Text1.Text=""
For n=3 To 100
k=Int(Sqr(n))
i=2
Flag=0
Do While i＜=______And Flag=0
If n Mod i=0 Then
Flag=1
Else
i=i+1
End If
Loop
If______Then
Text1.Text=Text1.Text & Str(n)& Chr(13)&Chr(10)
End If
Next n
End Sub
[填空题]下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。
Private Sub Commandl_Click（ ）
Text1.Text=""
For n=3 To 100
k=Int(Sqr(n))
i=2
Flag=0
Do While i＜=______And Flag=0
If n Mod i=0 Then
Flag=1
Else
i=i+1
End If
Loop
If______Then
Text1.Text=Text1.Text & Str(n)& Chr(13)&Chr(10)
End If
Next n
End Sub
[填空题]下列程序用于在带垂直滚动条件的文本框Text1中输出3～100字间的全部素数。请填空。
Privat Sub Command1_Click（ ）
Text1.Text=""
For n=3 To 100
k=Int(Sqr(n))
i=2
Flag=0
Do While I＜=______And Flag=0
If n Mod i=0 Then
Flag=1
Eise
i=i+1
Else
loop
If ______ Then
Text1.Text=text1. Text ＆ Str(n) ＆ Chr(13) ＆ Chr(10)
End If
Next n
End Sub
[单项选择]
文本框Text1的KeyDown事件过程如下：
Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)
…
End Sub
其中参数KeyCode的值表示的是发生此事件时（）。
A. 是否按下了Alt键或Ctrl键
B. 按下的是哪个数字键
C. 所按的键盘键的键码
D. 按下的是哪个鼠标键
[单项选择]在窗体上画一个命令按钮Command1和一个文本框Text1，然后编写下列程序：
Private Sub Command1 click（ ）
A=InputBox("请输入日期(1～31)")
t="旅游景点："_
&Ⅱf(A＞0 And A＜=10,"长城","")_
&Ⅱf(A＞10 And A＜=20,"故宫","")_
&Ⅱf(A＞20 And A＜=30,"颐和园","")
Text1.Text=t
End Sub
程序运行后，如果从键盘输入5，则在文本框中显示的内容是( )。
A. 旅游景点：长城
B. 旅游景点：长城颐和园
C. 旅游景点：颐和园
D. 旅游景点：故宫
[单项选择]在窗体上画一个命令按钮Command1和一个文本框Text1，然后编写如下程序：
Private Sub Command1_Click（ ）
A=InputBox("请输入日期(1～31)")
t="旅游景点:"
& IIf(A＞0 And A＜=10,"长城","")_
& IIf(A＞10 And A＜=20,"故宫","")_
& IIf(A＞20 And A＜=30,"颐和园","")
Text1.Text=t
End Sub
程序运行后，如果从键盘输入5，则在文本框中显示的内容是( )。
A. 旅游景点：长城
B. 旅游景点：长城颐和园
C. 旅游景点：颐和园
D. 旅游景点：故宫
[单项选择]在窗体上画一个名称为Text1的文本框，并编写如下程序：
Private Sub Form Load( )
Show
Text1.Text=""
Text1.SetFocus
End Sub
Pfivate Sub Form_MouseUp(BuHon As Integer，Shift As Integer，X As Single，Y As Single)
Print“程序设计”
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer，shift As Integer)
Print"Visua1 Basic"；
End Sub
程序运行后，如果按“A”键，然后单击窗体，则在窗体上显示的内容是
A. VisualBasic
B. 程序设计
C. A程序设计
D. Visual Basic程序设计
[填空题]在窗体上画 1 个文本框，名称为 Text1，然后编写如下程序：
Private Sub Form_Load（ ）
Open "d:/temp/dat.txt" For Output As #1
Text1.Text = "" End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) If _________= 13 Then
If UCase(Text1.Text) = _________Then
Close #1
End
Else
Write #1, _________
Text1.Text = ""
End If
End If
End Sub
以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每
次按回车键（回车符的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除文 本框中的内容；如果输入"END"，则结束程序。请填空。
[单项选择]在窗体上画一个命令按钮Command1和一个文本框Text1，然后编写如下程序： Private Sub Command1_Click（ ）
A=InputBox("请输入日期(1～31)")
t="旅游景点:"_
& IIf(A＞0 And A＜=10, "长城"，"")_
& IIf(A＞10 And A＜=20，"故宫"，"")_
& IIf(A＞20 And A＜=30，"颐和园"，"")
Text1.Text=t
End Sub
程序运行后，如果从键盘输入5，则在文本框中显示的内容是( )。
A. 旅游景点：长城
B. 旅游景点：长城颐和园
C. 旅游景点：颐和园
D. 旅游景点：故宫
[单项选择]在窗体上画一个名称为Text1的文本框，并编写如下程序：
Private Sub Form Load（ ）
Show
Text1.Text=""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,x As Single,Y As Single)
Print"程序设计"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Print"Visual Basic"；
End Sub
程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容_________。
A. Visual Basic
B. 程序设计
C. A程序设计
D. Visual Basic程序设计
[单项选择]在窗体上画1个文本框，名称为Text1，然后编写如下程序：
Private Sub Form Load（ ）
Open "C:/dat.txt" For Output As#1
Text1.Text=""
End Sub
Private Sub Text1_KeyPress(KeyAscii As integer)
If______=13 Then
If UCase(Text1.Text=______)Then
Close 1
End
Else
Write#1,Text1.Text
"Text1.Text=""
End If
End If
End Sub
程序的功能是，存C盘根目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt中，并清空文本框中的内容；如果输入“END”，则结束程序，请选择适合空白处的语句( )。
A. KeyAscii "END"
B. Text1.Text "END"
C. Text1.Text 13
D. KeyAscii 13
[单项选择]设窗体上有一个名为Text1的文本框，并编写如下程序：
Private Sub Form_Load（ ） Show
Text1.Text = "" Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As
Single)
Print "程序设计" End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print "Visual Basic";
End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内 容是______。
A. Visual Basic
B. 程序设计
C. Visual Basic程序设计
D. a程序设计
