单选题
在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
Private Sub Command1_Click()
n = Val(Text1.Text)
If n\2 = n/2 Then
f = f1(n)
Else
f = f2(n)
End If
Print f; n
End Sub
Public Function f1(ByRef x)
x=x*x
f1=x+x
End Function
Public Function f2(ByVal x)
x=x*x
f2=x+x+x
End Function
程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是
发布于 2022-05-11 10:19:58
登录后免费查看答案
关注者
0
被浏览
17
1 个回答
推荐阅读
-
在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：Private Sub Command1_Click()Dim a(10)As IntegerDim x As IntegerFor i=1 To 10a(i)=8+iNextx=2Print a(f(x)+x)End SubFunction f(x As Integer)x=x+3f=xEnd Function程序运行后，单击命令按钮，输出结果为。
2022-05-11 关注 0 浏览13 1答案
-
在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Private Sub Command1_Click()Dim x As IntegerStatic y As Integerx=10y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序运行后，单击命令按钮，在窗体上显示的内容是
2022-05-11 关注 0 浏览17 1答案
-
在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integer,n As Integerx=1n=0Do While x<20x=x*3n=n+1LoopText1.Text=Str(x)Text2.Text=Str(n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是
2022-05-11 关注 0 浏览8 1答案
-
设有如下通用过程：Public Function f（x As Integer）Di my As Integerx＝20y ＝2f ＝x＊yEnd Function在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下事件过程：Private Sub Co mmand1＿Click（）Static x As Integerx＝10y ＝5y ＝f（x）Print x；yEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
2022-05-11 关注 0 浏览11 1答案
-
设有一个命令按钮Command1的事件过程以及一个函数过程。程序如下：Private Sub Command1 Click（ ）Static x A S Integerx=f(x+5)ClsPrint XEnd SubPrivate Function f(x As Integer)As Integerf=x+xEnd Function连续单击命令按钮3次，第3次单击命令按钮后，窗体显示的计算结果是（ ）。
2022-05-11 关注 0 浏览27 1答案
-
在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1)，然后编写如下事件过程：Private Sub Command1_Click()x=Val(Text1.Text)Select Case xCase 1，3y=x*xCase Is>=10，Is<=-10y=xCase -10 To 10y=-xEnd SelectEnd Sub程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是。
2022-05-11 关注 0 浏览19 1答案
-
在窗体上画两个文本框（名称分别为Textl和Text2）和一个命令按钮（名称为Command1），然后编写如下事件过程：Private Sub Command1_Click()x=0Do While x<50x=(x+2) * (x+3)n=n+1LoopTextl.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。
2022-05-11 关注 0 浏览13 1答案
-
设有如下通用过程：Public Sub Fun(a() As Integer, x As Integer)For i = 1 To 5x = x + a(i)NextEnd Sub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click()Dim arr(5) As Integer, n As IntegerFor i = 1 To 5arr(i) = i + iNextFun arr, nText1.Text = Str(n)End Sub程序运行后，单击命令按钮，则在文本框中显示的内容是（ ）。
2022-05-11 关注 0 浏览8 1答案
-
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x = 0n = InputBox("")For i = 1 To nFor j = 1 To ix = x + 1Next jNext iPrint xEnd Sub程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是
2022-05-11 关注 0 浏览20 1答案
-
在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为Co mmand1），然后编写下列事件过程：Private Sub Co mmand1＿Click（）x＝0DO While x＜50x＝（x＋2）＊（x＋3）n ＝n ＋lLoopText1．Text ＝Str（n）Text2．Text ＝Str（x）End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。
2022-05-11 关注 0 浏览10 1答案
