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

[主观题]

假定有如下的Sub过程： Sub S（x As Single，y As Single) t=x x=t/y y=t Mod

假定有如下的Sub过程： Sub S(x As Single，y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 S a，b Print a，b End Sub 程序运行后，单击命令按钮，输出结果为 ______。

A．5 4

B．1 1

C．1.25 4

D．1.25 1

查看答案

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

您可能会需要：

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

安装优题宝APP，拍照搜题省时又省心！

更多“假定有如下的Sub过程： Sub S（x As Single…”相关的问题

第1题

假定有如下的Sub过程：Sub S（x As Single，y As Single)t=xx=t/yy=t Mod y End Sub在窗体上画一个

假定有如下的Sub过程： Sub S(x As Single，y As Single) t=x x=t/y y=t Mod y End Sub在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 S a，b Print a，b End Sub程序运行后，单击命令按钮，输出结果为______ 。

A．5 4

B．1 1

C．1.25 4

D．1.25 1

点击查看答案

第2题

假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次

显示鼠标光标的15个属性。请在划线处将程序补充完整。 Private Sub Form_Click() Static x As Integer Cls Print "Mousepointer Property is now"; x Form1.【】=x x=x+1 If x=15 Then x=0 End Sub

点击查看答案

第3题

设有如下程序 Private Sub Fom1_Click（) Dim s As Integer，b As Intege

设有如下程序 Private Sub Fom1_Click() Dim s As Integer，b As Integer a=20：b=50 p1 a，b p2 a，b p3 a，b Print"a="；a，"b=";b End Sub Sub pl(x As Integer，ByValy As Integer) x=x+10 y=y+20 End Sub Sub p2(ByVal x As Integer，y As Integer) x=x+10 y=y+20 End Sub Sub p3(ByVal x As Integer，ByValy As Integer) x=x+10 y=y+20 End Sub 该程序运行后，单击窗体，则在窗体上显示的内容是：a=【】和b=【】。

点击查看答案

第4题

一个窗体单击事件过程如下：Private Sub Form_Click（) X = Val（Tex

一个窗体单击事件过程如下：

Private Sub Form_Click()

X = Val(Text1.Text):Y = Val(Text2.Text)

If X = 0 Or Y = 0 Then Print "不在任何象限内": Exit Sub

If X ＞ 0 And Y ＞ 0 Then Print "IN A"

If X ＞ 0 And Y ＜ 0 Then Print "IN D"

If X ＜ 0 And Y ＞ 0 Then Print "IN B"

If X ＜ 0 And Y ＜ 0 Then Print "IN C"

End Sub

点击查看答案

第5题

窗体中有一个命令按钮Command1，其Click事件过程如下。 PriVate Sub Coranland1_Click（) For i=1 To 4 x=

窗体中有一个命令按钮Command1，其Click事件过程如下。

PriVate Sub Coranland1_Click()

For i=1 To 4

x=3

For j=2 To 3

x=3

For k=1 To 2

x=x+2

Next k

Next j

Next i

MsgBox x

End Sub

窗体运行后，单击命令按钮，消息框输出的结果是______。

点击查看答案

第6题

在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()Dim x As Integerx = V

在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click（)Dim x As Integerx = V

在窗体上画一个文本框，然后编写如下事件过程：

Private Sub Form_Click()

Dim x As Integer

x = Val(InputBox("请输入一个整数"))

Print x + Text1.Text

End Sub

程序运行时，在文本框中输入12，然后单击窗体，在输入对话框中输入34，单击"确定"按钮后，在窗体上显示的内容为______。

A.46

B.123

C.3412

D.1234

点击查看答案

第7题

下列这个Sub过程的功能是：统计字符串中“a”的个数，请在空白处填上合适的代码，将程序补充完整。 Pr

ivate Sub numCount() Dim num As Integer s$="software And hardware" num=Len(s$) For i=1 To hum b$=______ If b$ = "a" Then x=x + 1 Next i Print "x="; x End Sub

点击查看答案

第8题

在窗体上画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click（)Di

在窗体上画一个命令按钮，然后编写如下事件过程：

Option Base 1

Private Sub Command1_Click()

Dima As Variant

a=Array(1，2，3，4)

j=1

Fori=4 To 1 Step-1

s=s+a(i)*j

j=j*10

Next i

Print s

End Sub

运行上面的程序，单击命令按钮，其输出结果是()。

A、4321

B、12

C、34

D、1234

点击查看答案

第9题

窗体下面有一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（) x=0 Do Until

窗体下面有一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x = -1 a=InputBox("请输入第一个数字a的值") a=Val(a) b=InputBox("请输入第二个数字b的值") b=Val(b) x=InputBox("请输入第三个数字x的值") x=Val(x) a=a+b+x Loop Print a End Sub 在程序运行后，单击命令按钮，在对话框中分别输入5，4，8，5，8，-1，输出结果为______。

点击查看答案

第10题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1＿Clic

k() Dim a As Integer，s As Integer a＝8 s＝1 Do S=s+a a=a-1 Loop While a＜=0 Prim s，a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．7 9

B．34 0

C．9 7

D．死循环

点击查看答案