填空题

运行如下程序段： x=1 y=1 z=1 For j=1 To 3 For k=1 To 3 If j=1 Then x=x+y+z ElseIf j=2 Then x=2*x+2*y十2*z Else x=3*x+3*y+3*z End If Next k Next j x的值应是 【15】 。

【参考答案】

2346
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个命令按钮，然后编写如下程序：Function fun(ByVal num As Long)As LongDim k As Longk=1num=Abs(num)Do While numk=k*(num 10)num=num 10Loopfun=kEnd FunctionPrivate Sub Command1_Click()Dim n As LongDim r As Longn=InputBox(“请输入一个数”)n=CLng(n)r=fun(n)MsgBox rEnd Sub程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为 【14】 。
填空题
在窗体上画一个命令按钮，然后编写如下代码：Private Sub Command1_click()Dim M(10)As IntegerFor k=1 To 10M(k)=12-kNext kx=6MsgboxM(2+M(x))End Sub程序运行后，单击命令按钮，消息框显示的是 【13】 。
相关试题