运行下列程序，输入数据8, 9, 3, 0后，窗体中显示结果是Private Sub Form _click（）Dim sum AsInteger,m As Integersum=0Dom=InputBox（“输入m”）sum=sum+mLoop Until m=0MsgBox sumEnd Sub

试卷相关题目

• 1窗体中有命令按钮run34,对应的事件代码如下：Private Sub run34_Enter（）Dim num As Integer,a As Integer,b As Integer,i As IntegerFor i=1 To 10num=InputBox（“请输入数据：”,“输入”）If Int（num/2）=num/2 Thena=a+1Elseb=b+1End IfNext iMsgBox（“运行结果：a=”&Str（a）&“,b=”&Str（b））End Sub运行以上事件过程，所完成的功能是

  A.对输入的10个数据求累加和

  B.对输入的10个数据求各自的余数，然后再进行累加

  C.对输入的10个数据分别统计奇数和偶数的个数

  D.对输入的10个数据分别统计整数和非整数的个数

  开始考试点击查看答案
• 2窗体有命令按钮Commandl和文本框Textl,对应的事件代码如下：Private Sub Commandl_Click（  ）For  i=1  To  4x=3For j=1 To 3For k=1 To 2x=x+3Next kNext jNext iText1 .Value=Str（x）End Sub运行以上事件过程，文本框中的输出是

  A.6

  B.12

  C.18

  D.21

  开始考试点击查看答案
• 3窗体中有命令按钮Commandl和文本框Text1,事件过程如下：Function result（ByVal x As Integer）As BooleanIf ×Mod 2=0 Thenresult=TrueElseresult=FalseEnd IfEnd FunctionPrivate Sub Commandl_Click（）x=Val（InputBox（“请输入一个整数”））If______ ThenText1=Str（x）&“是偶数.”ElseText1=Str（x）&“是奇数.”End  IfEnd Sub运行程序，单击命令按钮，输入19,在Text1中会显示“19是奇数”.那么在程序的空白处应填写

  A.result（x）=“偶数”

  B.result（x）

  C.resuIt（x）=“奇数”

  D.NOT result（x）

  开始考试点击查看答案
• 4窗体中有命令按钮Commandl,事件过程如下：Public Function f（x As Integer） As IntegerDim y As Integerx=20y=2f=x*yEnd FunctionPrivate Sub Commandl_Click（）Dim y As IntegerStatic x As Integerx=10y=5y=f（x）Debug .Print x;yEnd Sub运行程序，单击命令按钮，则立即窗口中显示的内容是

  A.10 5

  B.10 40

  C.20 5

  D.20 40

  开始考试点击查看答案
• 5下列能够交换变量X和Y值的程序段是

  A.Y=X:X=Y

  B.Z=X:Y=Z:X=Y

  C.Z=X:X=Y:Y=Z

  D.Z=X:W=Y:Y=Z:X=Y

  开始考试点击查看答案