单项选择题
阅读程序:
Option Base 1
Private Sub Form Click()
Dim arr,Sum
Sum= 0
arr=Array(1,3,5,7,9,11,13,15,17,19)
For i=1 To 10
If arr(i)/3=arr(i)\3 Then
Sum=Sum+arr(i)
End If
Next i
Print Sum
End Sub
程序运行后,单击窗体,输出结果为
A.13
B.14
C.27
D.15
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
设有如下程序: Private Sub Command1_Click() Dim Sum As Double, x As Double sum=0 n = 0 For i= 1 To 5 x = n i n = n + 1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值,这个表达式是
A.1+1/2+2/3+3/4+4/5
B.1+1/2+2/3+3/4
C.1/2+2/3+3/4+4/5
D.1+1/2+1/3+1/4+1/5
点击查看答案&解析
单项选择题
在窗体上画两个单选按钮,名称分别为Option1、Option2,标题分别为“宋体”和“黑体”:一个复选框,名称为Checkl,标题为“粗体”;一个文本框,名称为Text1,Text属性为“改变文字字体”。要求程序运行时,“宋体”单选按钮和“粗体”复选框被选中(窗体外观如下图),则能够实现上述要求的语句序列是
点击查看答案&解析
相关试题
如图所示,在列表框List1中已经有若干人的...
程序是一个窗体双击事件代码,窗体的名称是...
设有如下程序: Private Sub Form_Clic...
假定建立了一个工程,该工程包括两个窗体,...
在菜单编辑器中建立了一个菜单,名为pmenu...