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

相似题目

• 假定以定义了一个过程sub add(a as single, b as single)，则正确的调用语句是（）

  A . add B . calladd（2*x，sin（1，57）） C . calladdx，y D . calladd（12，12，x）

  查看最佳答案

• 若有一个过程定义成Public Sub W1（ByVal x As Integer，y As Integer），调用过程的正确形式是（）

  A . W1（x，3） B . Call W1 3，x C . Call W1（x，3） D . W1 3，x

  查看最佳答案

• 有如下函数过程： 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 该程序的运行结果是（ ）。

  查看最佳答案

• 假定有如下的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程序运行后，单击命令按钮，输出结果为（ ）。

  查看最佳答案

• 在窗体上画一个名称为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运行程序，单击窗体，标签中显示的是________。

  查看最佳答案

• 在窗体上画一个名称为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

  查看最佳答案

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

  查看最佳答案

• 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Public Enum S a=4 b=3 End Enum Private Sub Command1 Click（） Dim x As Integer x=a If x＞=3 Then MsgBox"Pass!" End Sub 运行程序，其结果是（）。

  A.运行错误．因为Enum定义有错 B.运行错误．因为x=a类型不匹配 C.运行正常结束，不显示任何信息 D.运行正常．显示内容为“Pass!”的信息框

  查看最佳答案

• 编写如下事件过程：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

  查看最佳答案

• 在窗体上有一个名称为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

  查看最佳答案

• 设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下： Private Sub Command1_Click（) Dim a As Integer a=10 Call g（Form2，a) End Sub Private Sub g（f As Form, X As Integer) y=IIf（x＞,10,

  A．Forml的Caption属性值为100 B．Form2的Caption属性值为-100 C．Form1的Caption属性值为-100 D．Form2的Caption属性值为100

  查看最佳答案

• 在窗体上有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，然后编写如下事件过程： Private Sub Command1_Click（) aS="National Computer Rank Examination" n=Len（a$) s=0 For i=1 To nb$=Mid（as,i,1)If b$="n"Then s=s+1End If Next i Print S End Sub 程序运行后

  查看最佳答案