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

运行下列程序:Private Sub Form_Click()Dim a As Inte...

运行下列程序:

Private Sub Form_Click()

Dim a As Integer

a = 1

For i = 1 To 5

Call fun1(a)

Next i

Print a

End Sub

Private Sub fun1(x)

y = 2

Do

x = x + y

Loop Until x > 10

End Sub

单击窗体后,则在窗体上显示的结果是()。

A.5

B.1 2 3 4 5

C.19

D.7

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

第1题

以下程序运行时,单击窗体后,在窗体上输出的结果是 ______。 Private SubForm_Click() Dim a As Integer,b As Integer a=10 :b=20 Call ff(a,B)Print a,b End Sub Private Sub ff(x As Integer,y As Integer) x=x+y y=x+y End Sub
A.30 50
B.30 30
C.20 20
D.10 20
点击查看答案

第2题

下列程序段的功能为:单击窗体后,在D盘Temp目录下address.txt 文件中输入“张三,20,Male”。请填空。
Private Sub form_ click()
Dim name As String
Dim age As Integer
Dim sex As String
name = "张三": age = 20: sex = "Male"
Open "D:\temp\CodE.txt" For Append As 1
______1, name, age, sex
______
End Sub


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

第3题

运行下列程序:
Private Sub Form_Click( )
Dim a As Integer
a = 1
For i = 1 To 5
Call fun1(a)
Next i
Print a
End Sub
Private Sub fun1(x)
y = 2
Do
x = x + y
Loop Until x > 10
End Sub
单击窗体后,则在窗体上显示的结果是( )。
A.5
B.1 2 3 4 5
C.19
D.7

点击查看答案

第4题

下列程序 Private Sub Form_Click() Dim a a = Array("天天向上", "天津大学", "天上人间", "程序设计") For i = LBound(a) To UBound(a) If Left(a(i), 1) = "天" Then Print a(i); Next i End Sub 运行时输出的结果是()。
:A. 天天向上
B. 天天向上天津大学天上人间
C. 出错信息
D. 天天向上天津大学天上人间程序设计

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

第5题

设有如下程序:
Private Sub Form. Click( )
Dim ary(1 To 5)As Integer
Dim i As Integer
Dim sum As Integer
For i=1 To 5
ary(i)=i+l
sum=sum+ary(i)
Next i
Print sum
End Sub
程序运行后,单击窗体,则在窗体上显示的是( )。
A.15
B.16
C.20
D.25


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

第6题

当Form_Click事件发生时,程序输出的结果是 ______。 Private Sub Form. Click() Dim a As Integer,b As Integer,c As Integer a=1: b=1 Print a; b Do c=a+b Print c a=b:b=c Loop Until c>=5 End Sub
A.1 1 1
B.2 3 5
C.2 5 7
D.2 3 4

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

第7题

运行下列程序:
Private Sub Form_Click()
Dim sum As Integer
Dim i As Integer
sum = 0
For i =12.4 To3.1 Step -3.8
sum = sum + i
Next i
Debug.Print sum
End Sub
单击窗体后,则在立即窗口上输出结果是()。
A.15
B.- 0.7
C.24
D.0
点击查看答案

第8题

运行下列程序:
Private Sub Command1_Click( )
Dim A(10) As Integer
For i = 1 To 5
A(i) = i
A(i + 5) = i
Next i
For i = 1 To 10
s = s + A(i)
Next i
Debug.Print s
End Sub
单击按钮后,则在立即窗口内显示的结果是( )。
A.5
B.10
C.30
D.出错信息

点击查看答案

第9题

给出窗体单击事件过程:
PRIVATE SUB FORM_CLICK( )
DIM A AS INTEGER
A =VAL( INPUTBOX( "PLEASE INPUT A NUMBER" ))
SELECT CASE A MOD 5
CASE IS<4
W=A+10
CASE IS<2
W=A.2
CASE ELSE
W=A-10
END SELECT
MSGBOX W
END SUB
当运行程序后,设输入的数据分别为14、3、125、21时,消息框显示的内容分别是【 】。


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

第10题

阅读程序:
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
程序运行后,单击窗体,在输入对话框中分别输入三个整数,程序将输出三个数中的中间数,如图所示。请填空。
点击查看答案
热门考试 全部 >
找答案
账号:
你好,尊敬的上学吧用户
粘贴 取消
搜索
如搜索结果不匹配,请 联系老师上传试题 获取答案
发送账号至手机
看不清?点击更换
发送
谢谢您的反馈

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

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

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

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

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

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

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