写出下面程序的运行结果(10分)
1. Private Sub Command1_Click()
x = 0
n = InputBox("")
For i = 1 To n
For j = 1 To i
x = x + 1
Next j
Next i
Print x
End Sub
程序运行后,单击命令按钮,如果输入5,则在窗体上显示的内容是:
2.
Option base 1
Private sub subp(b() As Integer)
for i=1 to 4
b(i)=2*i
next i
End Function
Private Sub Command1_Click()
Dim a() as integer
a(1)=5
a(2)=6
a(3)=7
a(4)=8
subp a()
for i= 1 to 4
print a(i)
next i
End Sub1. 15 2. 2
4
6
8
2018年全国计算机等级考试调整方案
[考试动态]2017年11月20日全国计算机等级考试计算机基础及Photoshop应用试题答案汇总(6套)
[Photoshop应用]2017年2月3日全国计算机等级考试四级数据库系统工程师试题及答案汇总(22套)
[数据库工程师]2017年2月2日全国计算机一级考试模拟试题及答案300题
[WPS Office应用]2017年1月22日2017年3月全国计算机等级考试报名时间及报名入口汇总
[考试动态]2017年1月3日