[单项选择]在窗体上添加一个文本框Text1，然后编写下列Load事件过程，则程序运行结果是( )。

Private Sub Form_Load（　）

Text1.Text=""

Text1.SetFocus

For k=1 To 5

t=t*k

Next k

Text1.Text=t

End Sub
A. 在文本框中显示120
B. 文本框中仍为空
C. 在文本框中显示1
D. 出错

更多"在窗体上添加一个文本框Text1，然后编写下列Load事件过程，则程序"的相关试题:

[单项选择]在窗体上添加一个文本框，名为text1，然后编写如下的load事件过程，则程序的运行结果是______ 。
private sub form_ load
text1.text=“”
text1.setfocus
for k=1 to 5
t=t*k
next k
text1.text=t
end sub
A. 在文本框中显示120
B. 文本框中仍为空
C. 在文本框中显示1
D. 出错

查看答案

[单项选择]在窗体上添加文本框Text1，然后编写下列程序：
Private Sub Form_Load（　）
Text1.Text=" "
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Char=Chr(KeyAscii+1)
KeyAscii=Asc(Ucase(Char))
End Sub
Private Sub Command1_Click（　）
Print Text1.Text
End Sub
程序运行后，在文本框中依次输入1、2、3、a、b、c，单击命令按钮，则窗体上显示的内容是
A. 23BCD
B. ABC
C. !@#ABC
D. 123abc

查看答案

[单项选择]在窗体上添加—个文本框，名为Text1，然后编写如下的Load事件过程，则程序的运行结果是
Private Sub Form_Load( )
Text1.Text=””
Text1.Setfocus
t=1
For k=10 To 6 Step-2
t=t*k
Next k
Text1.Text=t
End Sub
A. 在文本框中显示120
B. 文本框仍为空
C. 在文本框中显示480
D. 出错

查看答案

[单项选择]设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load（　） Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_Mouse Up (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程序设计

查看答案

[单项选择]要改变窗体上文本框控件的数据源，应设置的属性是
A. 记录源
B. 控件来源
C. 筛选查询
D. 默认值

查看答案

[单项选择]窗体上有一个名称为Command1的命令按钮，一个名称为Text1的文本框。编写如下程序：
Private Sub Command1_Click（　）
Dim x As Integer
x = Val( InputBox ("输入数据") )
Text1 = Str( x + fun(x) + fun(x) )
End Sub
Private Function fun(ByRef n As Integer)
If n Mod 3 = 0 Then
n=n+n
Else
n=n*n
End If
fun=n
End Function
对于上述程序，以下叙述中错误的是( )。
A. 语句fun=n有错，因为n是整型，fun没有定义类型
B. 运行程序，输入值为5时，文本框中显示655
C. 运行程序，输入值为6时，文本框中显示42
D. ByRef表示参数按址传递

查看答案

[单项选择]要改变窗体上文本框控件的输出内容，应设置的属性是( )。
A. 标题
B. 查询条件
C. 控件来源
D. 记录源

查看答案

[单项选择]窗体上添加一个文本框Text1，编写下列代码：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode+51 ＆KeyCode)
End Sub
程序运行时，在文本框中输入“ab”，则在窗体上输出为( )。
A. F65
B. F65
C. G66
D. G65

查看答案

[单项选择]

设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：
Private Sub Command1_Click（　）
x!=Val(Text1. Text)
Select Case x
Case Is＜-10, Is＞=20
Print "输入错误"
Case Is＜0
Print 20-x
Case Is＜10
Print 20
Case Is＜=20
Print x+10
End Select
End Sub
程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（）。

A. 5
B. 20
C. 25
D. 输入错误

查看答案

[填空题]在窗体上添加一个文本框控件Info，画一个命令按钮，当单击命令按钮显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和可执行文件(．exe)，然后在文本控件中显示保存的文件名。　　Private Sub Command1_Click( ) 　　　　CommonDialog1．Filter=【】　　　　CommonDialog1．FilterIndex=【】　　　　CommonDialog1．ShowSave 　　　　Info．Text=【】　　End Sub

查看答案

我来回答:

提交