更多"下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部"的相关试题:
[填空题]下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。
Private 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
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 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
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和Text2，然后编写如下事件过程：
Private Sub Form_Load（ ）
Show
Text1.Text=""
Text2.Text=""
Text2.SetFocus
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
Text1.Text=Text1.Text+Chr(KeyCode-4)
End Sub
程序运行后，如果在Text2文本框中输入“efghi”，则Text1文本框中的内容为 【11】 。
[单项选择]窗体上有一个名为text1的文本框和一个名为command1的命令按钮，事件过程如下：
Private Sub command1_click（ ）
Dim i As Integer，n As Integer
For j=0 to 50
i=i+3
n=n+1
If i＞10 Then Exit For
Nextj
text1=str(n)
End Sub
程序运行时单击命令按钮，文本框中显示的值是（）。
A. 2
B. 3
C. 4
D. 5
[填空题]窗体上有一个文本框控件，名称为txt1，要求每隔一秒在文本框中显示一次当前时间。请填空。
Private Sub Form Load（ ）
Me.TimerInterval=1000
End Sub
Private Sub
Me! txt1=Now（ ）
End Sub
[填空题]把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入另一个磁盘文件，请填空完成程序。
在窗体上建立一个文本框，在属性窗口中把该文本框的MultiLine属性设置为 True，然后编写如下的事件过程：
Prlvate Sub Form_Click（ ）
Open"D:/test1.txt"For Input As # 1
Text1.FontSize＝14
Text1.FontName=“幼圆”
Do While Not EOF(1)
【13】
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text＝ 【14】
Close
Open"D:/test2.txt"For Output As # 1
Print # 1, 【15】
Close
End Sub
[简答题]以下程序的界面有一个按钮button、一个文本区textA和一个文本框textF。程序运行时，在文本区中输人数字序列，单击按钮，则在文本框中显示数字序列的和。以下是要求你编写的actionPerformed(ActionEvent e)方法的部分代码。
public void actionPerformed(ActionEvent e)
if(e.getSource（ ）==button)
String s=textA．getText（ ）；double sum=0；
StringTokenizer fenxi=new StringTokenizer(s，"，/n")；
//请在以下位置编写代码
[单项选择]为了使文本框显示滚动条，除要设置ScrollBars外，还必须设置的属性是
A. AutoSize
B. Alignment
C. Multiline
D. MaxLength
[填空题]要想在文本框中显示垂直滚动条，必须将ScrollBars属性设置为2，同时还应将 【12】 属性设置为True。
[填空题]如果要在文本框中显示垂直滚动条，则必须把 【8】 属性设置为2，同时还应把Multiline属性设置为True。
[填空题]在窗体上画两个文本框，然后编写程序。程序运行后，如果在第一个文本框中输入A、B、 C、D或a、b、c、d，则在第二个文本框中显示EFDH。请完善下列程序。
Private Sub Form_Load（ ）
Show
Text1．Text=" "
Text2．Text=" "
Text1．SetFocus
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)
Text2．Text= 【11】
End Sub
[单项选择]窗体上有一个命令按钮和一个文本框，程序执行后，在文本框中输入12345，单击命令按钮后的输出结果为( )。
Private Sub Command1_Click（ ）
Dim A As Integer,B As Integer
Text1.SelStart=2
Text1.SelLength=2
A=Val(Text1.SelText)
B=Len(Text1.Text)
Print A*B
End Sub
A. 68
B. 115
C. 170
D. 1170
[填空题]要想在文本框中显示垂直滚动条，必须把______属性设置为2，同时还应把Mulfiline属性设置为True。
