题目详情
当前位置:首页 > 职业培训考试
题目详情:
发布时间:2024-05-24 03:22:15

[单项选择]在窗体中使用一个文本框(名为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,事"的相关试题:

[单项选择]在窗体中使用一个文本框(名为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+"*" Nextj result=result+Chr(13)+Chr(10) Next i MsgBox result End Sub 打开窗体后,如果通过文本框输入的值为4,单击命令按钮后输出的图型是( )。:
[单项选择]在窗体中使用一个文本框(名为n)接受输入的值,有一个命令按钮run,事件代码
如下:
Private Sub run_Click( )
result=" "
For i=l To Me!n
For j=l 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. * * * * * * * * * * * * * * * *
[填空题]在窗体中使用一个文本框(名为numl)接受输入值,有一个命令按钮run13,事件代码如下:
Private sub run13 Click( )
If Me! num1>=60 Then
result="及格"
Else If Me! numl>=70 Then
result="通过"
Else if Me!mum1>=85 Then
result="合格"
End If
MsgBox result
End Sub
打开窗体后,若通过文本框输入的值为85,单击命令按钮,输出结果是______。
[填空题]在窗体中使用一个文本框(名为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】
[单项选择]在窗体中使用一个文本框(名称为num1)接受输入值,有一个命令按钮run13,事件 代码如下: Private Sub run13_Click( )  If Me!num1>=60 Then   result="及格"  Else If Me!num1>=70 Then   result="通过"  Else If Me!num1>=80 Then   result="合格"  End If  MsgBOx result End Sub 打开窗体后,若通过文本框输入的值为85,单击命令按钮,输出结果是
A. 及格
B. 通过
C. 合格
D. 其他
[填空题]在窗体中使用一个文本框(名为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】
[填空题]在窗体中使用一个文本框(名为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,单击命令按钮,输出的结果是______。
[填空题]在窗体上画一个名称为run1的命令按钮和一个名称为num1的文本框并接受输入值,然后编写如下事件过程:
Private Sub run1_Click( )
If Me! num1>=60 Then
result="及格"
Else If Me! num1>=70 Then
result="通过"
Else If Me! num1>=85 Then
result="优秀"
End If
(14)
End Sub
请将程序空白处补充完整,程序运行后,通过文本框输入一个值,输入的值为86,则单击命令按钮,输出结果是 (15)

[单项选择]在窗体上画一个名称为Commandl的命令按钮。有下列程序: Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(45,27,34,24,91,37,11,67,82,63) For i = 1 To 9 For i = i + 1 To 10 If a(i)> a(j)Then a1 = a(i) a(i) = a(j) a(j) = a1 End If Next j Next i For i = 1 To 10 Print a(i) Next i End Sub 程序运行后,单击命令按钮,则窗体上第2行和第3行显示的内容是
A. 27和34
B. 34和24
C. 45和63
D. 24和27
[填空题]在窗体中使用一个文本框(名为x)接受输入值,有一个命令按钮test,事件代码如下:
Private Sub text_Click( )
y=0
For i=0 To Me! x
y=y+2*i+1
Next i
MsgBox y
End Sub
打开窗体后,若通过文本框输入值为3,单击命令按钮,输出的结果是______。
[单项选择]在窗体中有一个命令按钮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个数据分别统计有几个是奇数,有几个是偶数
[单项选择]在窗体中有一个命令按钮run1,对应的事件代码如下:
Private Sub run1_Enter( )
Dim hum As Integer
Dim a As Integer
Dim b As Integer
Dim i As Intege
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个数据分别统计有几个是奇数,有几个是偶数

我来回答:

购买搜题卡查看答案
[会员特权] 开通VIP, 查看 全部题目答案
[会员特权] 享免全部广告特权
推荐91天
¥36.8
¥80元
31天
¥20.8
¥40元
365天
¥88.8
¥188元
请选择支付方式
  • 微信支付
  • 支付宝支付
点击支付即表示同意并接受了《购买须知》
立即支付 系统将自动为您注册账号
请使用微信扫码支付

订单号:

请不要关闭本页面,支付完成后请点击【支付完成】按钮
恭喜您,购买搜题卡成功
重要提示:请拍照或截图保存账号密码!
我要搜题网官网:https://www.woyaosouti.com
我已记住账号密码