题目内容（请给出正确答案）

[主观题]

若有以下程序，当程序运行后，单击命令按钮，则输出的结果为（)。Private Sub Command1_Click（)Dim a%

若有以下程序，当程序运行后，单击命令按钮，则输出的结果为()。 Private Sub Command1_Click() Dim a%(1 To 4), b%(3 To 6), i%, s1#, s2# For i= 1 To 4 a(i) = i Next i For i=3 To 6 b(i) = i Next i s1 = Factorial (A) s2 = Factorial (B) Print "s1="; s1; "s2="; s2 End Sub Function Factorial(a() As Integer) Dim t#, i% t=1 For i = LBound(A)To UBound(A) t = t * a(i) Next i Factorial = t End Function

A．s1=360 s2=24

B．s1=24 s2=360

C．s1=24 s2=24

D．s1=360 s2=360

提问人：网友hf041018028 发布时间：2022-01-06

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“若有以下程序，当程序运行后，单击命令按钮，则输出的结果为（)…”相关的问题

第1题

以下程序段：Functionjishu1(x!,eps#)AsDoubleDimn%,s#,t#n=1:s=0:t=1DoWhile(Abs(t)＞=eps)s=s+tt=t*x/nn=n+1Loopjishu1=sEndFunctionSubjishu2(s#,x!,eps#)Dimn%,t#n=1:s=0:t=1DoWhile(Abs(t)＞=eps)s=s+tt=t*x/nn=n+1LoopEndSubPrivateSubCommand1_Click()Dimf1#,f2#f1=jishu1(2#, 0.000001)Calljishu2(f2,2#,0.000001)Print"f1=";f1,"f2=";f2EndSub对程序说法正确的是()

A.计算jishu1是调用子过程，而计算jishu2是调用函数

B.当程序运行单击命令按钮后，窗体中显示的f1和f2的结果不相同

C.当程序运行单击命令按钮后，窗体中显示的f1和f2的结果相同

D.以上说法都不正确

点击查看答案

第2题

运行下面的程序，单击命令按钮后，当输入分别为123和456时，输出结果为 ______。Private Sub Command

运行下面的程序，单击命令按钮后，当输入分别为123和456时，输出结果为 ______。 Private Sub Command1_Click() a=InputBox("请输入一个数字:") b=Val(InputBox("请再输入一个数字：")) PrInt a+b End Sub

A．123

B．456

C．123123

D．579

点击查看答案

第3题

假定建立了一个工程，该工程包括两个窗体，其名称分别为Form1和Form2，启动窗体为Form1。在Form1上画

一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示Form2，请在空白处将程序补充完整。

Private Sub Command1_Click()

______

form2．______

End Sub

点击查看答案

第4题

若有如下的函数过程：Function Func2（a As Integer, b As Integer)As IntegerStatic m As Integer

若有如下的函数过程： Function Func2(a As Integer, b As Integer)As Integer Static m As Integer, i As Integer m=0 i=2 a=i+m+1 b=i+a+b Func2 = m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim p As Integer, k As Integer, m As Integer k=4 m=1 p = Func2(k, m) Print k; m p = Func2(k, m) Print k; m End Sub 程序运行后，单击命令按钮，输出结果为()。

A．3 6＜CR＞3 6

B．3 6＜CR＞3 11

C．3 11＜CR＞3 6

D．3 11＜CR＞3 11

点击查看答案

第5题

假定建立了一个工程，该工程包括两个窗体，其名称分别为Form1和Fom2，启动窗体为Form1。在Form1上面

画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示Form2，请在【】和【】处将程序补充完整。 Private Sub Command1_Click() 【】 form2【】 End Sub

点击查看答案

第6题

在窗体上画一个名称为Timer1的计时器、一个名称为Command1的命令按钮和一个名称为Labell的标签。程

序如下： Private Sub Command1_Click() Timer1．Enabled=True Timer1．Interval=1000 End Sub Private Sub Timerl_timer() Labell．Caption=Time End Sub 当运行程序后，单击命令按钮，将在标签中显示的内容为

A．Time

B．True

C．1000

D．10：06：55

点击查看答案

第7题

以下程序运行后，单击命令按钮，窗体显示的结果是 ______。Private Function p1（x As Integer，y As

以下程序运行后，单击命令按钮，窗体显示的结果是 ______。 Private Function p1(x As Integer，y As Integel，z As Integer) p1=2*x+y+3*z End Function Private Function p2(x As Integer，y As Integer，z As Integer) p2=p1(2，y，x)+x End Function Private SubCommandl_Click() Dim a As Integer Dim b As Integer Dim c As Integer a=2:b=3:c=4 Print p2(c，b，A)

End Sub

A．19

B．21

C．22

D．23

点击查看答案

第8题

设窗体上有text1文本框和Command1命令按钮，并有以下程序：Private Sub Command1_Click（) Temp$=””

设窗体上有text1文本框和Command1命令按钮，并有以下程序：

Private Sub Command1_Click()

Temp$=””

For k=1 to len(text1)

Ch$=mid(text1,k,1)

If not found(temp,ch)then

Temp=temp&【13】

End If

Next k

Text1=【14】

End Sub

Private function found(str as string,ch as string)as Boolean

For k=1 to len(str)

If ch=mid(str,k,1)then

Found=【15】

Exit function

Next k

Found=false

End function

运行时，在文本框中输入若干英文字母，然后单击命令按钮，则可以删去文本框中所有重复的字母，例如，若文本框中原有字符串为“abcddbbc”则单击命令按钮后文本框中字符串为“abcd”,其中函数found的功能是判断字符串str中是否有字符ch，若有，函数返回true，否则返回false。请填空

点击查看答案

第9题

以下MyReplace函数的功能是将一个字符串(保存在变量S中)中的子字符串(保存在变量OldS中)用新的字符串(保存在变量NewS中)代替，编写以下程序：PublicFunctionMyReplace(s$,OldS$,NewS$)AsStringDimc%,lenOldS%lenOldS=Len(OldS)c=InStr(s,OldS)DoWhilec＞0s=Left(s,c-1)+NewS+Mid(s,c+lenOldS)c=InStr(s,olds)LoopMyReplace=sEndFunctionPrivateSubCommand1_Click()dimold,newasstringold=inputbox("请输入要替换的字符")new=inputbox("请输入替换后新的字符")PrintMyReplace("VisualBasic程序设计教程5.0版",old,new)EndSub当程序运行单击命令按钮后先后分别输入" 5.0"和" 6.0"，程序的运行结果为()

A."VisualBasic程序设计教程5.0版"

B."VisualBasic程序设计教程6.0版"

C."VisualBasic程序设计教程6版"

D."VisualBasic程序设计教程"

点击查看答案

第10题

在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Co

mmand2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。

编写如下程序：

Private Sub Form_Load（）

Timer1.Enabled=False

End Sub