单选题
窗体上有一个名称Text1的文本框，一个名称为Co mmand1的命令按钮。窗体文件的程序如下：
窗体上有一个名称Text1的文本框，一个名称为Co mmand1的命令按钮。窗体文件的程序如下：
Private Type x
a As Integer
b As Integer
End Type
Private Sub Co mmand1＿Click（）
Di my As x y ．a＝InputBox（＂＂）
If y ．a＼2＝y ．a／2Then
y ．b ＝y ．a＊y ．a Else
y ．b ＝Fi x（y ．a／2）
End If
Text1．Text ＝y ．b
End Sub
对以上程序，下列叙述中错误的是（ ）。
发布于 2022-05-11 10:00:29
登录后免费查看答案
关注者
0
被浏览
12
1 个回答
推荐阅读
-
窗体上有一个名称Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：Private Type x a As Integer b AS IntegerEnd TypePrivate Sub Command1_Click() Dim y As x y.a = InputBox(“”) If y.a\2=y.a/2 Then y.b=y.a*y.a Else y.b = Fix(y.a/2) End If Text1.Text=y.bEnd Sub对以上程序，下列叙述中错误的是
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个名称为Co mmand1的命令按钮，再画两个名称分别为Labell、Label2的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Co mmand1＿Click（）X＝5：Y ＝3Call proc（x，y）Labell ．Caption ＝xLabel2．Caption ＝yEnd SubPrivate Sub proc（a As Integer ，ByVal b As Integer）X＝a＊aY ＝b ＋bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是（ ）。
2022-05-11 关注 0 浏览11 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答案
-
单击命令按钮时，下列程序段的执行结果是（ ）。Private Sub Commandl Click（）Di ma As Integer ，b As Integer ，c As Integera＝2：b ＝4：c ＝6Call Sl（a，b）Print ＂a＝＂；a；＂b ＝＂；b ；＂c ＝＂；cCall S2（a，b）Print ＂a＝＂；a；＂b ＝＂；b ；＂c ＝＂；c ；End SubPrivate Sub S1（x As Integer ，Y As Integer）Di mc As Integerx＝2＊x：y ＝y ＋2：c ＝x＋yEnd SubSub S2（x As Integer ，ByVal Y As Integer）Di me As Integer x＝2＊x：Y ＝Y ＋2：e ＝x＋yEnd Sub
2022-05-11 关注 0 浏览31 1答案
-
窗体上有两个文本框Textl、Text2以及一个命令按钮Commandl ，编写下列程序：Di mY As IntegerPrivate Sub Commandl＿Click（）Di m X As Integerx＝2Textl ．Text ＝p2（p1（X），Y）Text2．Text ＝pl（x）End SubPrivate Function pl（X As Integer）As Integerx＋x＋y∶y ＝x＋ypl ＝x＋yEnd FunctionPrivate Function p2（X As Integer ，Y As Integer）As Integerp2＝2＊x＋yEnd Function当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为（ ）。
2022-05-11 关注 0 浏览9 1答案
-
单击按钮时，以下程序运行后的输出结果是（ ）。Private Sub proc1（x As Integer ，y As Integer ，z As Integer）x＝3＊zy ＝2＊zz ＝x＋yEnd SubPrivate Sub Co mmand1＿Click（）Di mx As Integer ，y As Integer ，z As Integerx＝1：y ＝2：z ＝3Call proc1（x，x，z）Print x；x；z Call proc1（x，y ，y）Print x；y ；yEnd Sub
2022-05-11 关注 0 浏览26 1答案
-
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：Private Sub Command1_Click()Dim x,y,z As Integerx=5y=7z=0Text1.text=“”Call P1(x,y,z)Text1.Text=Str(x)End SubSub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)c=a+bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是
2022-05-11 关注 0 浏览17 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答案
-
设有如下程序Private Sub Form_Click()Dim a As Integer, b As Integera = 20: b = 50p1 a, bp2 a, bp3 a, bPrint "a="; a, "b="; bEnd SubSub p1(x As Integer, ByVal y As Integer)x = x + 10y = y + 20End SubSub p2(ByVal x As Integer, y As Integer)x = x + 10y = y + 20End SubSub p3(ByVal x As Integer, ByVal y As Integer)x = x + 10y = y + 20End Sub该程序运行后，单击窗体，则在窗体上显示的内容是：a = ______ 和 b = ______ 。
2022-05-11 关注 0 浏览14 1答案
-
单击命令按钮时，下列程序段的执行结果是（ ）。Private Sub Command1 Click（ ）Dim a As Integer，b As Integer，C As Integera=2：b=4：c=6Call S1(a．b)Print"a="；a；"b="；b；"c="；cCall S2(a，b)Print"a="；a；"b="；b；"c="；c；End SubPrivate Sub S1(X．As Integer，Y As Integer)Dim C As Integerx=2*X：y=y+2：c=x+yEnd SubSub S2(x As Integer，ByVal Y As Integer)Dim e As Integerx=2*x：Y=Y+2：e=x+yEnd Sub
2022-05-11 关注 0 浏览27 1答案
