[单选题]

在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:

D.im SW As Boolean

F.unction func(X As Integer)As Integer

If X<20 Then

Y=X

E.lse

Y=20+X

E.nd If

func=Y

E.nd Function

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

SW=False

E.nd Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

SW=True

E.nd Sub

Private Sub Command1_Click()

D.im intNum As Integer

intNum=InputBox("")

If SW Then

Print func(intNum)

E.nd If

E.nd Sub

程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果为

A.输出0

B.输出25

C.输出45

D.无任何输出

参考答案与解析:

相关试题

在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Dim SW

[单选题]在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:D.im SW As BooleanF.unction func(X As Integer) As IntegerIf X<20 ThenY=XE.lseY=20+XE.nd Iffunc=YE.nd FunctionPrivate Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)SW=FalseE.nd SubPdvate

  • 查看答案
  • 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Dim k

    [单选题]在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Dim k As IntegerPrivate Sub form_ Load() k = 15End SubPrivate Sub Command1_ Click()Static b As IntegerDim k As Integer k= k +1 b = b+1 Print k, bEnd Sub程序运行时,两次单击命令按钮Command1后,在窗体上显示的第二行是______。A.1 1B.1 2C.2 1D.2 2

  • 查看答案
  • 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Dim k

    [单选题]在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Dim k As Integer Private Sub Form_Load() k=15 End Sub Private Sub Command1_Click() Static b As Integer b=b+k k=k+1 Print k,b End Sub 程序运行时,两次单击命令按钮Command1后,在窗体上显示的第二行是( )。A.17 31B.15 31C.17 16D.2 1

  • 查看答案
  • 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Dim k

    [单选题]在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:D.im k As IntegerPrivate Sub Form_Load()k=15E.nd SubPrivate Sub Command1_Click()D.im b As Integerb=b+kk=k+1Print k,bE.nd Sub程序运行时,两次单击命令按钮Command1后,在窗体上输出的第二行是( )。A.17 31B.15 31

  • 查看答案
  • 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序 _______

    [单选题]在窗体上画一个名称为Command1的命令按钮,然后编写如下程序 _______。 Dim k As Integer Private Sub Form_Load() k=5 End Sub Private Sub Command Click() Static b As Integer b = b + k k=k+1 Print k,b End Sub 程序运行时,两次单击命令按钮Command1后,在窗体上显示的第二行是 _______。A.7 11B.5 11C.76D.2 1

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private

    [单选题]在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private Sub Command1_Click()F.or I=1 To 2F.or J=1 To IPrint String(I,"Hello");Next JPrintNext IE.nd Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是A.H HH HHB.H HHHHC.HHHHHD.H HH HHHH

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private

    [单选题]在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private Sub Command1_ Click()Dim a As Integer, b As Integerb = 1for a = 1 To 100 if b>= 10 then exit for if b Mod 3 = 1 then b=b+3 End ifNext aPrint aEnd Sub在命令按钮上单击后,窗体上显示的结果是______。A.101B.6C.5D.4

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:Private

    [单选题]在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:Private Sub Command1_ Click()Dim a As Integer, b As Integerdo while b <100 b=b+5 a=a+ b if b >20 then exit doLoopPrint a, bEnd Sub程序运行后,如果甲击命令按钮,则在窗体上显示的内容是______。A.50 20B.75 25C.50 25D.75 20

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private

    [单选题]在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private Sub Command1_ Click() for i = 1 To 4 for j= 0 To i Print Chr$(65 +i) Next j Print Next iEnd Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是______。A.BB CCC DDDD EEEEEB.B CC DDD EEEEC.AA AA CCCC DDDDDD.A BB CCC DDDD

  • 查看答案
  • 在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:Private

    [单选题]在窗体上画一个命令按钮,名称为Command1。然后编写如下程序: Private Sub Command1_Click() Dim a As Integer,b As Integer,c As Integer If a=0 Then x=x-1 Else If b<>0 Then End If End If If c<>0 Then x=3 Else x=4 End If Print x End Sub 程序运行后,单击命令按钮,其输出结果为 ______。A.34B.4C.35D.3

  • 查看答案
  • 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Dim SW