单选题
窗体上有一个名为Commandl的命令按钮，并有如下程序：
窗体上有一个名为Commandl的命令按钮，并有如下程序：
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 8
b = 12
Print fun(a, b); a; b
End Sub
Private Function Fun(ByVal a As Integer, b As Integer) As Integer
a = a Mod 5
b = b \ 5
Fun = a
End Function
程序运行时，单击命令按钮，则输出结果是（ ）。
发布于 2022-05-11 10:17:47
登录后免费查看答案
关注者
0
被浏览
15
1 个回答
推荐阅读
-
窗体上有一个名为Command1的命令按钮，并有如下程序：Private Sub Corqmand1_Click（ ）Dim a As Integer，b As Integera=8b=12Print Fun(a，b)；a；bEnd SubPrivate Function Fun(ByVal a As Integer，b AS Integer)As Integera=a Mod 5b=b＼5Fun=aEnd Function程序运行时，单击命令按钮，则输出结果是（ ）。
2022-05-11 关注 0 浏览15 1答案
-
在窗体上画一个命令按钮(名称为Command1)，并编写下列代码：Function Fun1(ByVa1 a As Integer，b As Integer)As IntegerDim t As Integert=a-bb=t+aFun1=t+bEnd FunctionPrivate Sub Command1Click（ ）Dim X As Integerx=10Print Fun1(Vun1(X，(Fun1(x，x-1)))，x-1)End Sub程序运行后，单击命令按钮，输出结果是（ ）。
2022-05-11 关注 0 浏览28 1答案
-
在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：Function M(x As Integer,y As Integer)As IntegerM=IIf(x>y,x,y)End FunctionPrivate Sub command1_Click()Dim a As Integer,b As Integera=100b=200Print M(a,b)End Sub 程序运行后，单击命令按钮，输出结果为______ 。
2022-05-11 关注 0 浏览19 1答案
-
阅读下列程序：Private Sub Command1_Click()Dim i As Integer, k As Integerk=2For i=1 To 3Print H(k) ;Next iEnd SubFunction H(j As Integer)a=0Static ba=a + 1b=b + 1H=a*b + jEnd Function程序运行后，单击命令按钮输出结果是
2022-05-11 关注 0 浏览18 1答案
-
在窗体上画一个命令按钮（名称为Command1），并编写如下代码：Function Funl (ByVal a As Integer, b As Integer) As IntegerDim t As Integert=a-bb=t+aFunl=t+bEnd FunctionPrivate Sub Command1_Click()Dim x As Integerx=10Print Funl (Funl (x, (Funl (x, x-1))), x-1)End Sub程序运行后，单击命令按钮，输出结果是（ ）。
2022-05-11 关注 0 浏览16 1答案
-
在窗体上画一个命令按钮（名称为Co mmand1），并编写下列代码：Function Funl （ByVal a As Integer ，b As Integer）As IntegerDi mt As Integer t ＝a－bb ＝t ＋aFunl ＝t ＋bEnd FunctionPrivate Sub Co mmand1＿Click（）Di mx As Integerx＝10Print Funl（Funl（x，（Funl（x，x－1））），x－1）End Sub程序运行后，单击命令按钮，输出结果是（ ）。
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function fun(ByVal m As Integer)If m Mod 2 = 0 Thenfun = 2Elsefun = 1End IfEnd FunctionPrivate Sub Command1_Click()Dim i As Integer, s As Integers = 0For i = 1 To 5s = s + fun(i)NextPrint sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是（ ）。
2022-05-11 关注 0 浏览9 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答案
-
单击命令按钮时，下列程序段的执行结果是（ ）。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答案
-
设有如下程序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答案
