Private Sub Command1_Click()
Print Format$(123,456, "###,##%")
E.nd Sub
A.123.46%
B.123.45%
C.123.456%
D.12345.6%
[单选题]编写如下事件过程和函数过程: Private Sub Command1_Click() Dim num(1 To 6) As Single num(1)=103: num(2)=190: num(3)=0 hum(4)=32:num(5)=-56: num(6)=100 Print Print p2(6,num()) End Sub Private Function p2(ByVal n As Integer, number() As Single) As Integer p2=number(1
[单选题]下列事件过程运行后输出结果是 Private Sub Command1_Click() Print Format$(123,456,"###,##%") End SubA.123.46%B.123.45%C.123.456%D.12345.6%
[单选题]下列事件过程运行后输出结果是 Private Sub Command1_Click() Print Formats(123,456,"###,##%") End SubA.123.46%B.123.45%C.123.456%D.12345.6%
[单选题](32)运行下列程序,结果是Private Sub Command32_Click()f0=1:f1=1:k=1D.o While k<=5f=f0+f1f0=f1f1=fk=k+1LoopMsgBox "f="&fE.nd SubA.)f=5B.)f=7C.)f=8D.)f=13
[单选题](35)某人编写了下面的程序Private Sub Command1_Click( )D.im a As Integer, b As Integera=InputBox("请输入整数")b=InputBox("请输入整数")pro apro bC.all pro(a+b)E.nd SubPrivate Sub pro(n As Integer)While (n>0)Print n Mod 10;n=n/10WendPrintE.nd Sub此程序功能是:输入 2 个正整数,反序输出
[单选题]下面程序运行后的输出结果是______。Private Sub Command1_ Click ( ) for j = 1 To 10 if j Mod 3 <> 0 then a =a+j/3 Next j Print aEnd SubA.20B.10C.3D.9
[单选题](25)下面程序的执行结果是Private Sub Command 1 Click()a=10F.or k=1 To 5 Step-1a=a-kNext kPrint a; kE.nd SubA.)-5 6B.)-5 -5C.)10 0D.)10 1
[单选题]若在某窗体模块中有如下事件过程: Privam Sub Command1_Click(Index As Integer) ...... End Sub 则以下叙述中正确的是______。A.此事件过程与不带参数的事件过程没有区别B.有—个名称为Command1的窗体,单击此窗体则执行此事件过程C.有一个名称为Command1的控件数组,数组中有多个不同类型控件D.有—今名称为Command1的控件数组,数组中有多个相同类型控件
[单选题]有如下事件程序,运行该程序后输出结果是Private Sub Command33_Click()D.im X As Integer,y As Integerx=1:Y=0D.o Until y<=25y=y+X*XX=X+1 ‘Loop ’ 。MsgBox“x一”&X&,“y=”&yE.nd SubA.x=1,y=0B.x=4,y=25C.x=5,y=30D.输出其他结果
[单选题]执行下面的程序段,x的值为 。private Sub Command1_Click()For i=1 To 5 a=a+iNext iX=Val(i)msgBox xEnd SubA.5 B.6 C.7 D.8