单项选择题

在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序：
Option Base 1
Dim e As Integer，d As Integer
d=0
c=6
X=Array(2，4，6，8，10，12)
For i=1 To 6
If X(i)＞c Then
d=d+X(i)
c=X(i)
Else
d=d-c
Eles If
Next i
Print d
End Sub
程序运行后，单击命令按钮，则在窗体上输出的内容为( )。

A．10
B．12
C．16
D．20

<上一题目录下一题>

热门试题

单项选择题

有下列函数过程： Function Func2(a As Integer, b As Integer)As Integer Static m As Integer，i AS Integer m=0 i=2 a=i+m+1 b=i+a+b Func2=m End Function 在窗体上画一个命令按钮，然后编写下列事件过程： Private Sub Command1_Chck() Dim P As Integer, k As Integer, m As Integer k=4 m=1 P=Func2(k，m) Print k；m P=Func2(km) Print k=m End Sub 程序运行后，单击命令按钮，输出结果是( )。

A．3 6＜CR＞3 6
B．3 6＜CR＞3 11
C．3 11＜CR＞3 6
D．3 11＜CR＞3 11

单项选择题

在窗体上有一个文本框，其名称为Text1，编写下列事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str AS String str=Chr(KevAscii) KevAscii=ASC(UCase(str)) Text1. Text=String(2，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则在文本框Text3中显示的内容为( )。

A．aaa
B．AAA
C．AA
D．aa

相关试题