单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base1 Private Sub Command1_Click( ) Dim a As Variant a=Array(1，2，3，4，5) Sum=0 For i=1To 5 Sum=Sum+a(i) Next i x=Sum/5 For i=1 To 5 If a(i)>x Then Print a(i)； Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（）。

A．1 2
B．1 2 3
C．3 4 5
D．4 5

<上一题目录下一题>

热门试题

单项选择题

假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。Model1代码如下：Public x As IntegerPublic y As IntegerSub S1( )x=1S2 End SubSub S2( )y=10Form1．ShowEnd SubModel2的代码如下：Sub Main( )S1End Sub其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是（）。

A．Form1→Model1→Model2
B．Model1→Model2→Form1
C．Model2→Model1→Form1
D．Model2→Form1→Model1

单项选择题

下列程序的执行结果为( )。Ptivate Sub Commandl_Click()Dim FirStr As StringFirStr= abcdef Print Pct (FirStr)End SubPrivate Function Pct(xStr As String)As StringDim tempStr As String,strLen As IntegertempStr= strLen=Len(xStr)i=1Do While i＜=Len(xStr)-3tempStr=tempStr + Mid(xStr，i，l) + Mid(xStr，strLen - i+i ，1)i=i + 1LoopPct=tempStrEnd FunCtion

A．void
B．int
C．new
D．long

相关试题