更多"在窗体中使用一个文本框(名为n)接受输入的值,有一个命令按钮run,事"的相关试题:
[单项选择]在窗体中使用一个文本框(名为n)接受输入的值,有一个命令按钮run,事件代码如下:
Private Sub run_Click( )
result=""
For i=1 To Me!n
For j=1 To Me!n
result=result+"*"
Next j
result=result+Chr(13)+Chr(10)
Next i
MsgBox result
End Sub
打开窗体后,如果通过文本框输入的值为4,单击命令按钮后输出的图形是( )。
A. * * * *
B. *
C. * * * *
D. * * * *
[单项选择]在窗体中使用一个文本框(名为n)接受输入的值,有一个命令按钮run,事件代码如下:
Private Sub run_click( )
result =""
For i=1 TO Me! n
For j=1 TO Me! n
result = result+"*"
Next j
Result=result+Chr(13)+Chr(10)
Next i
MsgBox result
End Sub
打开窗体后,如果通过文本框输入的值为4,单击命令按钮后输出的图形是( )。
A. * * * *
B. *
C. * * * *
D. * * * *
[单项选择]窗体上有名称为Commandl的命令按钮和名称为Text1的文本框( )。 Private Sub Commandl Click( ) Text1.Text=“程序设计” Text1.SetFocus End Sub Private Sub Text1 GotFocus( ) Text1.Text=“等级考试” End Sub 运行以上程序,单击命令按钮后( )。
A. 文本框中显示的是“程序设计”,且焦点在文本框中
B. 文本框中显示的是“等级考试”,且焦点在文本框中
C. 文本框中显示的是“程序设计”,且焦点在命令按钮上
D. 文本框中显示的是“等级考试”,且焦点在命令按钮上
[填空题]在窗体文本框Text1中输入“456ABC”后,立即窗口上输出的结果是______。
Private Sub Text1 KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 97 To 122
Debug.Print UCase(Chr(KeyAscii));
Case 65 To 90
Debug.Print LCase(Chr(KeyAscii));
Case 48 To 57
Debug.Print Chr(KeyAscii);
Case Else
KeyAscii=0
End Select
End Sub
[填空题]在窗体文本框Text1中输入“456Abc”后,窗口上立即输出的结果是______。
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 37 To 122
Debug.Print Ucase(Chr(KeyAscii));
Case 65 To 90
Debug.Print Lcase(Chr(KeyAscii));
Case 48 to 57
Debug.Print Cbr(KeyAscii);
Case Else
KeyAscii=0
End Select
End Sub
[填空题]在窗体中使用一个文本框(名为num1)接受输入值,有一个命令按钮run13,事件代码如下:
Private Sub run13_Click( )
If Me!num1>=60 Then
result="及格"
ElselfMe!num1>=70 Then
result="通过"
Elself Me!numl>=85 Then
result="合格"
End If
MsgBox result
EndSub
打开窗体后,若通过文本框输入的值为85,单击命令按钮,输出结果是 【13】 。
[填空题]下列程序用于在带垂直滚动条的文本框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
[填空题]在窗体中使用一个文本框(名为num)接收输入值,有一个命令按钮run,单击事件代码如下。
Private Sub run_Click( )
If Me!num>=60 Then
result="及格"
ElseIf Me!num>=70 Then
result="中等"
ElseIf Me!num>=85 Then
result="优秀"
End If
MsgBox result
End Sub
打开窗体后,若在文本框中输入的值为85,单击命令按钮,输出的结果是______。
[单项选择]在窗体中有一个命令按钮run35,对应的事件代码如下:
Private Sub run35_Enter( )
Dim nLlm As Integer
Dim a As Integer
Dim h As Integer
Dim i As Integer
For i=1 To 10
num=InputBox("请输入数据:","输入",1)
If Int(num/2)=num/2 Then
a=a+1
Else
B=b+1
End If
Next I
MsgBox("运行结果:a="& Str(a)&:",b=" &Str(b))
End Sub
运行以上事件所完成的功能是( )。
A. 对输入的10个数据求累加和
B. 对输入的10个数据求各自的余数,然后再进行累加
C. 对输入的10个数据分别统计有几个是整数,有几个是非整数
D. 对输入的10个数据分别统计有几个是奇数,有几个是偶数
[填空题]为了显示一个窗体,所使用的方法为 【13】 ;为了隐藏一个窗体,所使用的方法为 【14】 。
[填空题]为了显示一个窗体,所使用的方法为 【8】 ;而为了隐藏一个窗体,所使用的方法为 【9】 。
[单项选择]如果要从子窗体的最后一个字段移到主窗体的下一个字段或到主窗体下一个记录的第一个字段,可以按
A. Tab键
B. Shift键
C. Ctrl键
D. Ctrl+Tab键