题目内容

在窗体中有一个命令按钮run35，对应的事件代码如下： Private Sub run35_Enter() Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer For i=1 To 10 num=InputBox("请输入数据:","输入",1) If Int(num/2)=num/2 Then a=a+1 Else B=b+1 End If Next i MsgBox("运行结果:a="&Str(a)&:",b="&Str(b)) End Sub 运行以上事件所完成的功能是

A. 对输入的10个数据求累加和
B. 对输入的10个数据求各自的余数，然后再进行累加
C. 对输入的10个数据分别统计有几个是整数，有几个是非整数
D. 对输入的10个数据分别统计有几个是奇数，有几个是偶数

查看答案

搜索结果不匹配？点我反馈

更多问题

在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() a=75 If a＞60 Then k=1 Elself a＞70 Then k=2 Elself a＞80 Then k=3 Elself a＞90 Then k=4 Endlf MsgBoxk End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是

A. 1
B. 2
C. 3
D. 4

在窗体中使用一个文本框(名为n)接受输入的值，有一个命令按钮run，事件代码如下： Private Sub run_Click() result="" For i=1 To Me! n For j=1 To Me! n result=result+"*" Next j result=result+Chr(13)+Chr(10) Next i MesgBox result End Sub 打开窗体后，如果通过文本框输入的的值为4，单击命令按钮后输出的图型是

A. ****************
B. ****************
C. ****************************
D. ****************

以下程序段运行结束后，变量X的值为 x=2 y=4 Do x=x*y y=y+1 Loop While y＜4

A. 2
B. 4
C. 8
D. 20

Directions: For this part, you are allowed 30 minutes to write a letter to comfort a friend who felt depressed because she couldn’t afford fashionable clothes. You should write at least 120 words but no more than 180 words.