Private Sub Form_Click( )
MyDate = #7/21/1997#
Print Format(MyDate, "dddd,mmmm,dd,yyyy")
E．nd Sub
A．21,07,1997
B．21,07,21,1997
C．Monday,July,21,1997
D．Monday,07,21,1997
[单选题]以下程序段运行的结果为()Private Sub Form_Click( )MyTime = #9:21:30 PM#MyDate = #7/21/1997#Print Tab(2); Format(MyDate, "mmmm-yy")Print Tab(2); Format(MyTime, "hh:mm:ss A/P")E．nd SubA．July-97 9:21:30 PB．July-97 09:21:30 PC．07-97 9:21:30 PD．July-97 9:21:30
[单选题]下面程序段的运行结果是( )。 Private Sub Form_Click() For I=3 to 1 step-1 Print Spc(10-I)； For j=1 to 2*I-1 print"*"; Next j Print Next I End SubA．***** *** *B．* *** *****C． * *** *****D． * *** *****
[单选题]下面程序运行结果是( )。 Private Sub Form_Click() Dim x As Single,y As Single x=InputBox("请输入数据25"):y=InputBox("请输入数据10") Print x+y;InputBox("请输入数据25")+InputBox("请输入数据10") End SubA．_35_2510B．25102510C．_35_35_D．2510_35_
[单选题]运行下列程序：Private Sub form_Click( )F．or i = 1 To 4t = t * 10 + is = s + tNext iPrint sE．nd Sub单击窗体后，则输出结果是( )。A．1234B．4321C．1370D．4444
[单选题]运行下列程序：Private Sub Form_Click( )F．or i = 3 To 1 Step -1F．or j = 2 To 1 Step -1D．ebug.Print "A"; String(3 - i, "*");Next jNext iE．nd Sub单击窗体后，则在立即窗口内显示结果是( )。A．AAA*A**A***B．AAA*A*A**A**C．A*A*A*A*A*A*D．A***
[单选题]运行下列程序：Private Sub form_Click( )F．or i = 1 To 2x = 1F．or j = 1 To 3x = 5F．or k = 1 To 4x = x + 2Next kNext jNext iPrint xE．nd Sub单击窗体后，则输出结果是( )。A．5B．13C．25D．48
[单选题]运行下列程序：Private Sub Form_Click( )D．im a As Integera = 1F．or i = 1 To 5C．all fun1(a)Next iPrint aE．nd SubPrivate Sub fun1(x)y = 2D．ox = x + yLoop Until x > 10E．nd Sub单击窗体后，则在窗体上显示的结果是( )。A．5B．1 2 3 4 5C．19D．7
[单选题]运行下列程序：Private Sub Form_Click( )F．or i = 1 To 20If fun1(i) Thens = s + 1E．nd IfNext iPrint sE．nd SubPrivate Function fun1(y) As BooleanIf y Mod 2 <> 0 Thenfun1 = FalseE．lsefun1 = TrueE．nd IfE．nd Function单击窗体后，则在窗体上显示的结果是( )。A．110B．10C．0D．20
[单选题]下面的程序运行结果是( )。 Private Sub Form_Click() I=0 DoUntil0 i=i+1 if i＞10 then Exit Do Loop Printi End SubA．0B．10C．11D．出错
[单选题]下面的程序运行结果是( )。 Private Sub Form_Click() i=0 Do i=i+1 if i＞10 then Exit Do Loop Until i＜10 Print i End SubA．0B．1C．10D．11