题目内容 (请给出正确答案)
[单选]

编写以下程序段:PrivateSubForm_Click()ForI=1To3PrintString(I,"▼")NextIEndSub其中〈CR〉表示换行和回车当单击窗体时,显示的图形为()

A.▼▼▼▼〈CR〉

B.▼▼▼〈CR〉〉▲▲〈CR〉▼〈CR〉

C.▼▼〈CR〉▲▲▲〈CR〉▼▼▼▼〈CR〉

D.▼〈CR〉▲▲〈CR〉▲▲▲〈CR〉

查看答案
您可能会需要:
更多“编写以下程序段:PrivateSubForm…”相关的问题

第1题

运行下列程序:Private Sub Form_Click( )For i = 3 To 1 Step -1For j = 2 To 1 Step -1Debug

运行下列程序:
Private Sub Form_Click( )
For i = 3 To 1 Step -1
For j = 2 To 1 Step -1
Debug.Print "A"; String(3 - i, "*");
Next j
Next i
End Sub
单击窗体后,则在立即窗口内显示结果是( )。
A.AAA*A**A***
B.AAA*A*A**A**
C.A*A*A*A*A*A*
D.A***

点击查看答案

第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题

下面程序段的运行结果是( )。 Private Sub Form_Click() For I=3 to 1 step-1 Print Spc(10-I); For j=1 to 2*I-1 print"*"; Next j Print Next I End Sub
A.***** *** *
B.* *** *****
C. * *** *****
D. * *** *****

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

第4题

运行下列程序:Private Sub Form_Click( )For i = 1 To 20If fun1(i) Thens = s + 1End IfNext

运行下列程序:
Private Sub Form_Click( )
For i = 1 To 20
If fun1(i) Then
s = s + 1
End If
Next i
Print s
End Sub
Private Function fun1(y) As Boolean
If y Mod 2 <> 0 Then
fun1 = False
Else
fun1 = True
End If
End Function
单击窗体后,则在窗体上显示的结果是( )。
A.110
B.10
C.0
D.20

点击查看答案

第5题

运行下列程序: Private Sub Form. Click() Sum=0 For i=1 To 100 If Mid(CStr(i),1, 1)="1" Then Sum=Sum+1 End If Next i Print Sum End Sub 单击窗体后,在窗体上显示的结果是
A.12
B.13
C.14
D.15

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

第6题

Private Sub Form_Activate( ) For j = 1 to 3 x=3 For i = 1 to 2 x=x+6 Next Next Print x End Sub 程序运行后,窗体上显示的结果为【 】。


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

第7题

请阅读程序: Private Sub Form. Click( ) m=1 For i=4To 1 Step-1 Print Str(m);
m=m+1 For j=1 To i Print"*": Next j Print Next i End Sub 程序运行后,单击窗体,则输出结果是( )。
A.1**** 2*** 3** 4*
B.4**** 3*** 2** 1*
C.**** *** ** *
D.* ** *** ****

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

第8题

设有以下窗体单击事件过程:
Private Sub Form_Click()
a=1
For i=1 To 3
Select Case i
Case 1,3
a=a+1
Case 2,4
a=a+2
End Select
Next i
MsgBox a
End Sub
打开窗体运行后,单击窗体消息框的输出内容应为【 】。


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

第9题

有以下程序:
Private Sub Form_Activate()
For j=1 to 3
x=3
For i=l to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后,窗体上显示的结果为______。


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

第10题

设有如下程序: Private Sub Form. Click( ) Cls a$="1234j6" For i=1 To 6 Print Tab(12-i);________ Next i End Sub 程序运行后,单击窗体,要求结果如图所示,则在______处填入的内容为( )。
A.Left(a$,i)
B.Mid(a$,8-i,i)
C.Right(a$,i)
D.Mid(a$,7,i)

请帮忙给出正确答案和分析,谢谢!
点击查看答案
热门考试 全部 >
找答案
账号:
你好,尊敬的上学吧用户
粘贴 取消
搜索
如搜索结果不匹配,请 联系老师上传试题 获取答案
发送账号至手机
看不清?点击更换
发送
谢谢您的反馈

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

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

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

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

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

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

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