题目内容 (请给出正确答案)

运行下列程序:Private Sub Form_Click()a = 3t = Inpu...

运行下列程序:

Private Sub Form_Click()

a = 3

t = InputBox("请输入一个整数")

Select Case t

Case Is > 0

b = a + l

Case Is = 0

b = a + 2

Case Else

b = a + 5

End Select

Print a; b

End Sub

从键盘输入5,在窗体上显示的结果是()。

A.1 5

B.3 3

C.1 1

D.5 5

查看答案
您可能会需要:
更多“运行下列程序:Private Sub Form…”相关的问题

第1题

运行下列程序:
Private Sub form_Click()
t = Val(InputBox("请输入一个数:"))
x = t - 1
Select Case t
Case 1 To 10
y = 4 * t
Case Is > 10
y = 3 * t
Case Else
y = 2 * t
End Select
Print x; y
End Sub
运行时,从键盘输入4,输出的结果是()。
A.3 16
B.4 4
C.3 4
D.4 10
点击查看答案

第2题

运行下列程序:
Private Sub form_Click( )
For i = 1 To 2
x = 1
For j = 1 To 3
x = 5
For k = 1 To 4
x = x + 2
Next k
Next j
Next i
Print x
End Sub
单击窗体后,则输出结果是( )。
A.5
B.13
C.25
D.48

点击查看答案

第3题

阅读下列程序。
Option Base 1
Private Sub Form. Click()
Dim x(3,3)
For j=l to 3
For k=l to 3
If j=k then x(j,k)=l
If j<>k then x(j,k)=k
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(x() )
For j=1 to 3
For k=1 to 3
Print x(j,k);
Next k
Next j
End Sub
运行程序时,输出结果为【 】


请帮忙给出正确答案和分析,谢谢!
点击查看答案

第4题

单击窗口时,下列程序代码的执行结果为 Private Sub Form_Click( ) Text1 End Sub Private Sub Text(x As Integer) x=x*3+1 if x<6 Then call Text(x) End if x=x*2+1 Print x; End Sub
A.27 55
B.11 35
C.22 45
D.24 51

请帮忙给出正确答案和分析,谢谢!
点击查看答案

第5题

阅读程序:
Option Base 1
Private Sub Form_Click()
Dim a(3)As Integer
Print "输入的数据是:";
For i = 1 To 3
a(i)=InputBox("输入数据")
Print a(i);
Next
Print
If a(1)
t = a(1)
a(1)= a(2)
a(2)= ________
End If
If a(2)>a(3)Then
m = a(2)
ElseIf a(1)>a(3)Then
m = ________
Else
m = ________
End If
Print "中间数是:";m
End Sub
程序运行后,单击窗体,在输入对话框中分别输入三个整数,程序将输出三个数中的中间数,如图所示。请填空。
点击查看答案

第6题

'下面的程序运行时,单击窗体后,窗体上显示的结果是( )。
Private Sub Form_Click(B )
Dim a(1 To 5)As Integer
a(1)= 2: a(2)= 3: a(3)= 1: a(4)= 5: a(5)= 4
n = 5
For i = 1 To n - 1
Min = i
For j = i + 1 To n
If a(j)< a(Min)Then Min = j
Next j
t = a(i): a(i)= a(Min): a(Min)= t
Next i
For i = 1 To n
Print a(i);
Next i
End Sub
A. 2 3 1 5 4
B. 1 2 3 4 5
C. 9 8 7 6 5
D. 5 5 5 5 5
点击查看答案

第7题

下面程序运行时,单击窗体后,窗体上显示的结果是( )。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End Sub
A.3
B.9
C.5
D.6

请帮忙给出正确答案和分析,谢谢!
点击查看答案

第8题

'下面的程序运行时,单击窗体后,窗体上显示的结果是(B )。
Private Sub Form_Click(B )
Dim a(1 To 5)As Integer
a(1)= 2: a(2)= 3: a(3)= 1: a(4)= 5: a(5)= 4
n = 5
For i = 1 To n - 1
Min = i
For j = i + 1 To n
If a(j)< a(Min)Then Min = j
Next j
t = a(i): a(i)= a(Min): a(Min)= t
Next i
For i = 1 To n
Print a(i);
Next i
End Sub
A. 2 3 1 5 4
B. 1 2 3 4 5
C. 9 8 7 6 5
D. 5 5 5 5 5
点击查看答案

第9题

运行下列程序,窗体中的显示结果是:( )。
OptionCompare Database
Dim X AsInteger
PrivateSub Form_Load
x=3
EndSubPrivate Sub Commandll_click
Static aAs Integer
Dim b AsInteger
b=x^2
funl x,b
funl x.b
MsgBox”x=‘’&x
End Sub
Subfunl(ByRef Y As Integer,ByVal z AS Integer)
y=y+z
z=y-z
End Sub
A.x=3
B.x=2
C.x=21
D.x=12


请帮忙给出正确答案和分析,谢谢!
点击查看答案

第10题

假定有如下事件过程: Private Sub Form. Click() Dim x As Integer, n As Integer x=1 n=0 Do While x<28 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后,单击窗体,输出结果是______。
A.81 4
B.56 3
C.28 1
D.243 5
点击查看答案
热门考试 全部 >
找答案
账号:
你好,尊敬的上学吧用户
粘贴 取消
搜索
如搜索结果不匹配,请 联系老师上传试题 获取答案
发送账号至手机
看不清?点击更换
发送
谢谢您的反馈

您认为本题答案有误,我们将认真、仔细核查,
如果您知道正确答案,欢迎您来纠错

警告:系统检测到您的账号存在安全风险

为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!

微信搜一搜
上学吧
点击打开微信
警告:系统检测到您的账号存在安全风险
抱歉,您的账号因涉嫌违反上学吧会员政策被冻结。您可在“上学吧”微信公众号中的“官网服务”-“账号解封申请”申请解封,或联系客服
微信搜一搜
上学吧
点击打开微信
温馨提示

您的免费查看次数已用完,

需要开通会员才能继续使用。

马上开通会员 我已开通会员,登录会员账号继续查看答案
重置密码
确认修改