• 2021-04-14
    假定有如下的Sub过程:
    Subfun(xAsSingle,yAsSingle)
    t=x
    x=t/y
    y=tMody
    EndSub
    在窗体上画一个命令按钮,然后编写如下事件过程:
    PrivateSubCommand1_Click()
    DimaAsSingle
    DimbAsSingle
    a=6
    b=4
    funa,b
    Printa,b
    EndSub
    程序运行后,单击命令按钮,输出结果为()。
  • 1.52

    内容

    • 0

      在窗体上画一个命令按钮<其名称为Command1),然后编写如下事件过程: Private Sub Command1 Click() For i=1 T04 If i=1 Thenx=i If i<=4 Then x=x+1 Print x Next i End Sub 程序运行后,单击命令按钮;其输出结果为 ______。 A: A) 1 2 3 4 B: B) 2 3 4 5 C: C) 2 3 4 4 D: D) 3 4 5 6

    • 1

      设有如下通用过程:PublicFunctionf(xAsInteger)DimyAsIntegerx=30y=8f=x*yEndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程PrivateSubCommand1_Click()StaticxAsIntegerx=15y=6y=f(x)Printx;yEndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是_____。

    • 2

      在窗体上添加一个命令按钮Command1,然后编写如下事件过程: Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x End Sub 程序运行后,单击命令按钮,显示结果为( )。

    • 3

      在窗体上画一个命令按钮,然后编写如下单击命令按钮事件过程:[br][/br]optionbase0[br][/br]PrivateSubCommand1_Click()[br][/br]dimaasvariant[br][/br]a=array(1,2,3,4,5,6)[br][/br]...[br][/br]EndSub[br][/br]程序运行时,如果单击命令按钮,则a(2)的值为_________________. A: 1 B: 2 C: 3 D: 4

    • 4

      在窗体中添加一个命令按钮 Command1 , 并编写如下程序 : Private Sub Command1_Click() x = InputBox(x) If x ^ 2 = 9 Then y = x If x ^ 2 < 9 Then y = 1 / x If x ^ 2 > 9 Then y = x ^ 2 + 1 Print y End Sub 程序运行时,单击命令按钮,在 InputBox 中输入 3 ,然后单击“确定”按钮,程序的运行结果为( )。