假定有如下的Sub过程：Sub fun(x As Single, y As Single)t = xx = t / yy = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As SingleDim b As Singlea = 6b = 4fun a, bPrint a, bEnd Sub程序运行后，单击命令按钮，输出结果为（ ）。

相似题目

• 有如下函数过程： Function secproc(x As Integer, y As Integer, z As Integer) secproc = 3 * y + z + 2 * x End Function Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 2: b = 3: c = 4 Print secproc(c, b, a) End Sub 该程序的运行结果是（ ）。

  查看最佳答案

• 在窗体上画一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click()Dim S As IntegerS = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 ThenS = S + 1End IfNext iLabel1.Caption = SEnd Sub运行程序，单击窗体，标签中显示的是________。

  查看最佳答案

• 执行下列程序后，输出的结果是： Function Fun1(ByVal a As Integer, b As Integer) As Integer Dim t As Integer t = a - b b = t + a Fun1 = t + b End Function Private Sub Command1_Click() Dim x As Integer x = 10 Print Fun1(Fun1(x, (Fun1(x, x - 1))), x - 1) End Sub

  查看最佳答案

• 在窗体上画一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click()Dim S As IntegerS = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 ThenS = S + 1End IfNext iLabel1.Caption = SEnd Sub运行程序，单击窗体，标签中显示的是________。

  查看最佳答案

• 有如下函数过程：Function secproc(x As Integer, y As Integer, z As Integer)secproc = 3 * y + z + 2 * xEnd FunctionPrivate Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera = 2: b = 3: c = 4Print secproc(c, b, a)End Sub该程序的运行结果是（ ）。

  查看最佳答案

• 求1！+2！+……+10!的程序如下： Private Function s(x As Integer) f=1 For i=1 To x f=f*i Next s=f End Function Private Sub Command1_Click() Dim i As Integer Dim y As Long For i=1 To 10 _____________ Next Print y End Sub

  查看最佳答案

• 程序中有两个过程 Private Sub Fun1(S As String)和Private Sub Fun2(a() As String*6)，在调用过程中用Dim St(6) As String*6定义了一个字符串数组。下面调用语句中正确的是 ______。 ①Call Fun1(St(3)) ②Call Fun2(St) ③Call Fun1(St) ④Call Fun2(St(6))

  查看最佳答案

• 假定有如下的Sub过程：Sub Sub1 （x As Single, y As Single)t=xx = t/yy = t Mod yEnd Sub在窗体

  假定有如下的Sub过程：Sub Sub1 (x As Single, y As Single) t=x x = t/y y = t Mod yEnd Sub 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_ Click() Dim a As Single Dim b As Single a = 5 b = 4 Sub1 a, b Print a; b End Sub 程序运行后，单击命令按钮，输出结果为______。 A．5 4 B．1 1 C．1.2 5.4 D．1.25 1

  查看最佳答案

• 有如下事件过程：Prirate Sub Form_Click（)A$="123": B$="456"x=Val（A$)+Val（B$)Print x\100End S

  有如下事件过程： Prirate Sub Form_Click() A$="123": B$="456" x=Val(A$)+Val(B$) Print x\100 End Sub 程序运行后，单击窗体，则窗体上显示的内容是______。 A．123 B．3 C．5 D．579

  查看最佳答案

• 编写如下事件过程；Private Sub Form_ MouseDown （Button As Integer, Shift As Integer, X As Si

  编写如下事件过程； Private Sub Form_ MouseDown (Button As Integer, Shift As Integer, X As Single, Y As SinglE)If Shift = 6 And Button = 1 Then Print "BBBB" End If End Sub程序运行后，为了在窗体上输出 “BBBB”，应执行的操作为______。 A．同时按下Shift 键和鼠标左键 B．同时Ctrl、Alt 键和鼠标左键 C．同时按下Shift 键和鼠标右键 D．同时按下Ctrl、Alt 键和鼠标左键

  查看最佳答案

• 设有如下通用过程：Public Sub Fun（a（)，ByVal x As Integer)For i=1 To 5 x=x+a（i)NextEnd Sub在

  设有如下通用过程： Public Sub Fun(a()，ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5)As Variant For i=1 To 5 arr(i)= i Next n=10 Call Fun(arr()，n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是 ______。 A．10 B．15 C．25 D．24

  查看最佳答案

• 假定有如下的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

  查看最佳答案

• 编写如下事件过程：Private Sub Form-MouseDown（Button As Integer,Shift As Integer,X As Single

  编写如下事件过程： Private Sub Form-MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Shift=6 And Button=2 Then Print"Hello" End If End Sub 程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下()操作。 A．同时按下Shift键和鼠标左键 B．同时按下Shift键和鼠标右键 C．同时按下Ctrl、Alt键和鼠标左键 D．同时按下Ctrl、Alt键和鼠标右键

  查看最佳答案

• 设有一个命令按钮Command1的事件过程以及一个函数过程。程序如下： Private Sub Command1 Click（） Static x A S Integer x=f(x+5) Cls Print X End Sub Private Function f(x As Integer)As Integer f=x+x End Function 连续单击命令按钮3次，第3次单击命令按钮后，窗体显示的计算结果是（）。

  A.10 B.30 C.60 D.70

  查看最佳答案

• 设有如下通用过程：Public Sub Fun（a（)As Integer,x As Integer) For i=1 To 5 x=x+a（i) Next

  设有如下通用过程： Public Sub Fun(a()As Integer,x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上绘制一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5) As Integer,n AsInteger For i=1 To 5 arr(i)=i+i Next Fun arr,n Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是()。 A．30 B．25 C．20 D．15

  查看最佳答案

• 编写如下事件过程；Private Sub Form_MouseDown（Button As Integer,Shift As Integer,X AS Single

  编写如下事件过程； Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X AS Single， Y As Single) If Shif=6 And Button=2 Then Print"BBBB" End If End Sub 程序运行后，为了在窗体上输出“BBBB”，应执行的操作为______。 A．同时按下Shift键和鼠标左键 B．同时按下Shift键和鼠标右键 C．同时按下Ctrl、Alt键和鼠标左键 D．同时按下Ctrl、Alt键和鼠标右键

  查看最佳答案

• 设有如下通用过程：Public Sub Fun（a（), ByVal x As Integer)For i=1 To 5x=x+a（i)NextEnd Sub在

  设有如下通用过程： Public Sub Fun(a(), ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim art(5)As Variant For i=1 To 5 art(i)=i Next n=10 Call Fun(art(), n) Text1. Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是______。 A．10 B．15 C．25 D．24

  查看最佳答案

• 假定有如下的Sub过程：Sub sfun（x AsSingle，y AsSingle)t=xx=t/yy=t Mod yEnd Sub在窗体上添加一

  假定有如下的Sub过程： Sub sfun(x As Single，y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程： Private Sub Command1 Click() Dim a as single Dim b as single a=5 b=4 sfun a,b MsgBox a & chr(10)+chr(13)&b End Sub 打开窗体运行后，单击命令按钮，消息框的两行输出内容分别为()。 A．1n1 B．1.25和1 C．1.25和4 D．5和4

  查看最佳答案

• 下列程序的功能是计算两个自然数的最大公约数，界面如下图所示。给定的程序不完整，将程序补充完整。 Private Sub Command1_Click（) Dim x As Long， y As Long，i As Long x=Val（Text1．Text) y=Val（Text2．Text) Text3．Text = Str（【13】 ) End Sub Function fun1（a As

  查看最佳答案

• 在窗体上有一个名称为Command1的命令按钮，并有如下事件过程和函数过程： Private Sub Command1_Click（) Dim p as Integer p=m（1)+m（2)+m（3) Print p End Sub Private Function m（n As Integer) As Integer Static s As Integer For k=1 To n s=s+1

  查看最佳答案

• 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，如图5所示，然后编写如下程序： Function Fun（x As Integer, ByVal y As Integer) As Integer x=x+y If x＜0 Then Fun=x Else Fun=y End If End Function Private Sub Command1_Cli

  查看最佳答案

• 在窗体上有1个名称为Command1的命令按钮，并有如下事件过程和函数过程： Private Sub Command1_Click（) Dim p As Integer p=m（1)+m（2)+m（3) Print p End Sub Private Function m（n As Integer)As Integer Static s As Integer Fork=1 To n s=s+1 N

  查看最佳答案

• 有如下函数过程： Function Fun（By Val x As Ingeger，ByVal y As Integer) As Integer DO While …y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click（) Dim

  A．0 B． 25 C． 50 D． 100

  查看最佳答案

• 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下程序： Function Fun（x As Integer, ByValy As Integer)As Integer x=x+y If x＜0 Then Fun=X Else Fun=y End If End Function Private Sub Command1_Click（) Dim

  查看最佳答案