填空题
有如下程序：
有如下程序：
private sub form_click()
n=10
i=0
do
i=i+n
n=n-2
loop while n>2
print i
end sub
程序运行后，单击窗体，输出结果为______ 。
发布于 2022-05-11 10:18:18
登录后免费查看答案
关注者
0
被浏览
21
1 个回答
推荐阅读
-
设有如下程序：Private Sub Form_Click()Dim n As Integer, s As Integern = 8s = 0Dos = s + nn = n - 1Loop While n > 0Print sEnd Sub以上程序的功能是 ______ 。程序运行后，单击窗体，输出结果为 ______ 。
2022-05-11 关注 0 浏览12 1答案
-
有如下程序：Private Sub Form_Click()Dim i As Integer, sum As Integersum = 0For i = 2 To 10If i Mod 2 <> 0 And i Mod 3 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub程序运行后，单击窗体，输出结果为
2022-05-11 关注 0 浏览53 1答案
-
设有如下程序：Private Sub Form Click（ ）Dim s As Long，f As LongDim n As Integer，i As Integerf=1n=4For i=1 To nf=f*is=s+fNext iPrint sEnd Sub程序运行后，单击窗体，输出结果是（ ）。
2022-05-11 关注 0 浏览17 1答案
-
假定有如下事件过程：Private Sub Form_Click()Dim x As Integer, n As Integerx = 1n = 0Do While x < 28x = x * 3n = n + 1LoopPrint x, nEnd Sub程序运行后，单击窗体，输出结果是
2022-05-11 关注 0 浏览12 1答案
-
下列程序段的运行结果是（ ）。Sub sele（ ）Di mn As Integeri ＝21：n ＝3Do While i ＞ni ＝i －nLoopPrint iEnd Sub
2022-05-11 关注 0 浏览14 1答案
-
设有如下程序Option Base 1Private Sub Command1_Click()Dim a(10) As IntegerDim n As Integern=InputBox("输入数据")If n<10 ThenCall GetArray(a,n)End IfEnd SubPrivate Sub GetArray(b() As Integer,n As Integer)Dim c(10) As Integerj=0For i=1 To nb(i)=CInt(Rnd()*100)If b(i)/2=b(i)\2 Thenj=j+1c(j)=b(i)End IfNextPrint jEnd Sub以下叙述中错误的是
2022-05-11 关注 0 浏览19 1答案
-
单击命令按钮时，下列程序的运行结果为Private Sub Command1_Click()Print MyFund(20, 18)End SubPublic Function MyFund(m As Integer, n As Integer) As IntegerDo While m <> nDo While m > n: m=m - n: LoopDo While m < n: n=n - m: LoopLoopMyFund=mEnd Function
2022-05-11 关注 0 浏览12 1答案
-
设有如下程序Private Sub search(a() As Variant, ByVal key As Variant, index%)Dim I%For I = LBound(a) To UBound(a)If key = a(I) Thenindex = IExit SubEnd IfNext Iindex = -1End SubPrivate Sub Form_Load()ShowDim b() As VariantDim n As Integerb = Array(1, 3, 5, 7, 9, 11, 13, 15)Call search(b, 11, n)Print nEnd Sub程序运行后，输出结果是______ 。
2022-05-11 关注 0 浏览19 1答案
-
有以下程序：main(){ int i，n=0：for(i=2；i<5；i++){ do{ if(i％3) continue：n++：}while(!i)；n++：}printf("n=％d＼n"，n)；}程序执行后输出结果是( )。
2022-05-11 关注 0 浏览30 1答案
-
设有如下程序：Option Base lPrivate Sub Form＿Click（）Di ma（5）As Stri ng ，i As IntegerFor i ＝1To 5a（i）＝Chr（Asc（＂A＂）＋i）Call f（a，i）Next iEnd SubSub f（ta（）As Stri ng ，n As Integer）Di mi As IntegerFor i ＝1To nPrint ta（i）；Next i PrintEnd Sub对上述程序，以下叙述中正确的是（ ）。
2022-05-11 关注 0 浏览14 1答案
