题目内容（请给出正确答案）

[主观题]

下面程序运行时，单击窗体后，窗体上显示的结果是（)。Private Sub Form_Click（)Dim I As IntegerDim

下面程序运行时，单击窗体后，窗体上显示的结果是()。 Private Sub Form_Click() Dim I As Integer Dim sum As Long sum=0 For I=10 To 16 If I Mod 3=0 OrI Mod 5=0 Then sum=sum+I End If Next I Print sum End Sub

A．10

B．12

C．37

D．22

提问人：网友wk11766988 发布时间：2022-01-07

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“下面程序运行时，单击窗体后，窗体上显示的结果是（)。Priv…”相关的问题

第1题

写出下面程序的运行结果 private sub form_click() m=0 do m=m+1 if m>10 then exit do loop until m<10 print m end>

点击查看答案

第2题

'下面的程序运行时,单击窗体后,窗体上显示的结果是(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

点击查看答案

第3题

若在程序中要显示自定义的窗体Form2，下列方法错误的是____________。

A、Dim fm2 As New Form2 ShowDialog()

B、Form2.ShowDialog()

C、Form2.Show()

D、Dim fm2 As New Form2 fm2.Show()

E、Dim fm2 As New Form2 fm2.ShowDialog()

点击查看答案

第4题

执行下面的程序，单击窗体后窗体消息框内显示结果是()。 PRIVATE SUB FORM_CLICK() DIM STR AS STRING, K AS INTEGER STR="AB" FOR K = LEN(STR) TO 1 STEP -1 STR=STR&CHR(ASC(MID(STR, K, 1)) +K) NEXT K MSGBOX STR END SUB

A．ABCE

B．ABCD

C．ABDB

D．ABFB

点击查看答案

第5题

下面程序段执行后，t的值为_________。 Dim i, t As Integer t = 0 For i = 1 To 60 Step 3 If i Mod 5 = 0 Then t = t + 1 End If Next

A、12

B、20

C、15

D、4

点击查看答案

第6题

运行下列程序，输入数据8、9、3、0后， Dim sum As Integer，m As Integer 　　sum＝0 　　Do 　　　　m＝InputBox("输入m") 　　　　sum＝sum＋m 　　Loop Until m＝0 　　MsgBox sum Sum结果？

A、20

B、22

C、21

D、24

点击查看答案

第7题

为某个窗体编写如下事件，单击窗体，消息框显示的结果为【】。

Private Sub Form_Click()

Dim k As Integer ,n As Integer ,m As Integer

n=10:m=1:k=1

Do While k＜=n

m=m*2

k=k+1

Loop

MsgBox m

End Sub

点击查看答案

第8题

程序段如下，程序运行后消息框显示的结果是______。 Dim x%, y%, z%, t% x = 38 : y = 50 : z = 46 If x > y Then t = x : x = y : y = t If x > z Then t = x : x = z : z = t If y > z Then t = y : y = z : z = t MsgBox(y)

A、38

B、50

C、46

D、不确定

点击查看答案

第9题

某个窗体已编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为【】。

Private Sub Form_Click()

Dim k As Integer,n As Integer，m As Integer

n=10：m=1：k=1

Do While k＜=n

m=m*2

k=k+1

Loop

MsgBox m

End Sub

点击查看答案

第10题

某个窗体己编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为【】。

Private Sub Form_Click()

Dim k as Integer， n as Integer，m as Integer

n=10 ：m=1 : k=1

Do While k＜=n

m=m*2

k=k+1

Loop

MsgBox m

End Sub

点击查看答案

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

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

微信搜一搜

简答题

点击打开微信

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

抱歉，您的账号因涉嫌违反简答题购买须知被冻结。您可在“简答题”微信公众号中的“官网服务”-“账号解封申请”申请解封，或联系客服。

微信搜一搜

简答题

点击打开微信