假定有如下的Sub过程：Sub Sub1 （x As Single, y As Single)t=xx = t/yy = t Mod yEnd 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）

  查看最佳答案

• 有程序如下： ORG 2800H BUF DB 67,4,57,34,89,123 START:MOV SI, 04 MOV BX, OFFSET BUF MOV AL, [BX+ SI] CALL SUB1 INT 3 SUB1: PUSHF MOV AH, OOH MOV BL, OAH DIV BL POPF RET该程序运行后，AH= （）AL=（）

  查看最佳答案

• 在Visual FoxPro中，有如下程序：*程序名：TEST．PRG SET TALK OFFPRIVATE X，Y X=”计算机” Y=”等级考试” D0 subl?X+YRETURN*子程序：sub1PROCEDU sub1LOCAL XX=”考试”Y=”系统”X=X+YRETURN执行命令DO TEST后，屏幕显示的结果应是（　　）。

  A . 考试系统 B . 计算机系统 C . 等级考试系统 D . 计算机等级考试

  查看最佳答案

• 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） Dim x As Integer，n As Integer x=1 n=0 DoWhilex＜20 x=x*3 n=n+1 Loop Text1.Text=Str（x） Text2.Text=Str（n） End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是（）

  A . 15和1 B . 27和3 C . 195和3 D . 600和4

  查看最佳答案

• 若有一个过程定义成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

  查看最佳答案

• 窗体的Name属性为Frm1，在窗体模块通用声明处和过程Sub1中分别用PublicKAsInteger，DimKAsInteger声明了两个同名变量K，则在过程Sub1中要访问全局变量K，可采用（）

  A . Frm1.K B . Form1.K C . Form.K D . K

  查看最佳答案

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

  查看最佳答案

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

  查看最佳答案

• 若在应用程序的标准模块、窗体模块和过程 Sub1的说明部分，分别用“Public G as Integer”、“Private G as Integer”、“Dim G as Integer”语句说明了三个同名变量G。如果在过程Sub1中使用赋值语句“G=35”，则该语句是给在______ 说明部分定义的变量G赋值。

  查看最佳答案

• 在窗体上画一个命令按钮，然后编写如下程序：Sub S1（ByVal X AS Integer，ByVal y As Integer) Dim

  在窗体上画一个命令按钮，然后编写如下程序： Sub S1(ByVal X AS Integer，ByVal y As Integer) Dim t As Integer t=x x=y y=t End Sub Private Sub Command1_Click() Dim a As Integer，b As Integer a=10 b=30 S1 a，b Print"a="；a；"b="；b End Sub 程序运行后，单击命令按钮，输出结果是： ______。 A．a=30 b=10 B．a=30 b=30 C．a=10 b=30 D．a=10 b=10

  查看最佳答案

• 编写如下事件过程；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 键和鼠标左键

  查看最佳答案

• 在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Public x As integerPrivate Sub C

  在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As integer Private Sub Command1_Cliek() x=10 Call s1 Call s2 MsgBox x End Sub Private Sub s1 () x = x+20 End Sub Private Sub s2 () Dim x As integer x =x +20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为()。 A．10 B．30 C．40 D．50

  查看最佳答案

• 设有如下通用过程：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键和鼠标右键

  查看最佳答案

• 在窗体中添加一个命令按钮，编写如下程序：Private Sub Sub1（p，m，n)p=p+1：m=m+1：n=n+1Print "sub1：

  在窗体中添加一个命令按钮，编写如下程序： Private Sub Sub1(p，m，n) p=p+1：m=m+1：n=n+1 Print "sub1："；p；m；n End Sub Private Sub Command1_Click() a1=1：b=2：c1=3 Call Sub1(a，b1+3，c1) Print"Main："；a1；b1；c1 End Sub 程序运行后，输出结果为 A．Sub： 2 6 4 Main： 2 6 4 B．Sub： 2 6 4 Main： 2 6 4 C．Sub： 2 6 4 Main： 1 2 3 D．Sub： 2 6 4 Main： 2 2 3

  查看最佳答案

• 设有如下通用过程：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

  查看最佳答案

• 程序执行结果s的值是 【7】 。 Private Sub sub1（Byval p As Integer) p=p*2 End Sub Private Sub Command1_ Click（) Dim i As Integer i=3 Call sub 1 （i) if i＞4 then i=i mod 2 Print cstr（i) End Sub

  查看最佳答案

• 设一个工程由两个窗体组成，其名称分别为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

  查看最佳答案