下列程序执行的结果为 x=25:y=20:z=7 Print "S";x+z*y;")"
A.S(47)
B.S(165)
C.S(25+7*20)
D.S(87)
第1题
在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮,背景色变为红色;再单击,背景色变为绿色;再单击,背景色变为蓝色;再单击背景色变为红色……如此循环。单击“结束”按钮,程序运行结束。请填空。 Private Sub cmdChange_Click() If Mark=0 Then 【 】 Mark=1 ElseIf【 】Then Forml.BackColor=vbGreen Mark=2 ElseIf Mark=2 Then Form1.BackColor;vbBlue 【 】 End If End Sub Private Sub cmdExit_Click() End End Sub
请帮忙给出正确答案和分析,谢谢!
第2题
下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。 例如:a=5,n=4时,则Sn=5+55+555+5555。请在空白处填人适当的内容,将程序充完整。 Private Sub Command1_Click() Dim a As Integer,n As Integer,Cout As Integer Dim Sn As Long,Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox("请输入a的值:") 【 】 Do Tn=Tn * 10 + a Sn二Sn + Tn Cout=Cout+1 【 】 Debug.Print a,n,Sn End Sub
请帮忙给出正确答案和分析,谢谢!
第3题
下面程序的作用是用InputBox函数输入一个整数,然后判断能否同时被2,5和7整除,果能则输出该数及平方值。请填空。 Private Sub Command1_Click() Dim numX As Integer numX = Val (InputBox("请输入一个整数")) If【 】Then Form1.Print【 】 End If End Sub
请帮忙给出正确答案和分析,谢谢!
第4题
下面程序运行后,单击命令按钮,输出的结果是【 】 Private Sub Commandl_Click( ) Dim a%(1 To 4) ,b%(2 To 6) ,i%,strl,str2 For i=1 To 4 a(i) =i Next i For i=2 To 6 b(i) =i Next i str1 =YAG(A) str2 =YAG(B) Print"strl";str1;"str2=";str2 End Sub Function YAG (a()As Integer) Dim T,i% t=1 For i=LBound(A)To UBound(A) t=t * a(i) Next i YAG =t End Function
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!