题目内容

在VBA中，错误的循环结构是

A. Do while条件式循环体Loop
B. Do Until条件式循环体Loop
C. Do Until循环体Loop 条件式
Do循环体Loop While条件式

查看答案

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

更多问题

在窗体中有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click() Dim s As Integer S=P(1)+P(2)+P(3)+P(4) debug.Print S End Sub Public Function P(N AS Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+i Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出结果是

A. 15
B. 20
C. 25
D. 35

试题内容在第4张幻灯片上，对图表背景应用“深色木质”纹理。准备打开练习文档(\PowerPoint素材\10.clover.pptx)。注释本题考查对图表的应用能力。在图表工具设计选项卡中可以通过手动更改单个图表元素的布局和样式来进一步自定义布局或样式。也可以通过右键快捷菜单中的格式设置来设置图表的背景样式。

在窗体中有一个命令按钮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