• 2021-04-14 问题

    运行以下程序,显示的结果为()。Public Sub Sp(...y) Print x, yEnd Sub

    运行以下程序,显示的结果为()。Public Sub Sp(...y) Print x, yEnd Sub

  • 2022-06-01 问题

    下面程序中有错误的语句是:READ*,X A: IF(X<0.0) THEN Y=1.0 B: ELSE IF(X<=10.0) THEN Y=2.0 C: ELSEY=3.0 D: ENDIFENDIFPRINT*,YEND

    下面程序中有错误的语句是:READ*,X A: IF(X<0.0) THEN Y=1.0 B: ELSE IF(X<=10.0) THEN Y=2.0 C: ELSEY=3.0 D: ENDIFENDIFPRINT*,YEND

  • 2022-06-01 问题

    下面程序中有错误的语句是:READ*,X A: IF(X&lt;0.0) THEN Y=1.0 B: ELSE IF(X&lt;=10.0) THEN Y=2.0 C: ELSEY=3.0 D: ENDIFENDIFPRINT*,YEND

    下面程序中有错误的语句是:READ*,X A: IF(X&lt;0.0) THEN Y=1.0 B: ELSE IF(X&lt;=10.0) THEN Y=2.0 C: ELSEY=3.0 D: ENDIFENDIFPRINT*,YEND

  • 2021-04-14 问题

    有程序:DIMENSIONA(2,2)INTEGERA.YY=0D0201=1,2D020J=1,2A(1,J)=I*I+J*JY=Y+A(1,J)20CONTINUEWRITE(*,*)YEND此程序运行的结果()

    有程序:DIMENSIONA(2,2)INTEGERA.YY=0D0201=1,2D020J=1,2A(1,J)=I*I+J*JY=Y+A(1,J)20CONTINUEWRITE(*,*)YEND此程序运行的结果()

  • 2021-04-14 问题

    下面过程运行后显示的结果是()。Private Sub f1(ByVal n%, m%)n = n Mod 10m = m 10End SubPrivate Sub Command1_Click()Dim x%, y%x = 12: y = 34Call f1(x, y)Print x, yEnd Sub

    下面过程运行后显示的结果是()。Private Sub f1(ByVal n%, m%)n = n Mod 10m = m 10End SubPrivate Sub Command1_Click()Dim x%, y%x = 12: y = 34Call f1(x, y)Print x, yEnd Sub

  • 2022-06-27 问题

    下列条件语句中,有语法错误的两个是() A: If x&gt;y Then Print x B: If x&gt;y Then Print x C: If x&gt;y Then Print x End If D: If x&gt;y Thenprint x E: If x&gt;y then Print xElse Print yEnd if

    下列条件语句中,有语法错误的两个是() A: If x&gt;y Then Print x B: If x&gt;y Then Print x C: If x&gt;y Then Print x End If D: If x&gt;y Thenprint x E: If x&gt;y then Print xElse Print yEnd if

  • 2022-06-07 问题

    由文本框 Text1 输出。Private Sub Command0_Click() Dim x As Integer Dim y As Long Me.Text0 = x y = x ^ 3 * 5Me.Text1 = yEnd Sub运行上述程序时,会有错误。错误的语句是 A: Dim x As Integer B: Me.Text0 = x C: Me.Text1 = y D: Dim y As Long

    由文本框 Text1 输出。Private Sub Command0_Click() Dim x As Integer Dim y As Long Me.Text0 = x y = x ^ 3 * 5Me.Text1 = yEnd Sub运行上述程序时,会有错误。错误的语句是 A: Dim x As Integer B: Me.Text0 = x C: Me.Text1 = y D: Dim y As Long

  • 2021-04-14 问题

    中国大学MOOC: 有如下程序:Private Sub Command1_Click() xcase = 1 t = InputBox("请输入一个数:") Select Case t Case Is > 0 y = xcase + 1 Case Is = 0 y = xcase + 2 Case Else y = xcase + 3 End Select Print xcase; yEnd Sub程序运行时,在对话框中输入-1,则显示的结果为( )。

    中国大学MOOC: 有如下程序:Private Sub Command1_Click() xcase = 1 t = InputBox("请输入一个数:") Select Case t Case Is > 0 y = xcase + 1 Case Is = 0 y = xcase + 2 Case Else y = xcase + 3 End Select Print xcase; yEnd Sub程序运行时,在对话框中输入-1,则显示的结果为( )。

  • 2022-06-07 问题

    以下程序的功能是求"x ^ 3 * 5"表达式的值,其中 x 的值由文本框 Text0 输入,运算的结果由文本框 Text1 输出。Private Sub Command0_Click() Dim x As Integer Dim y As Long Me.Text0 = x y = x ^ 3 * 5Me.Text1 = yEnd Sub运行上述程序时,会有错误。错误的语句是 A: Dim x As Integer B: Me.Text0 = x C: Me.Text1 = y D: Dim y As Long

    以下程序的功能是求"x ^ 3 * 5"表达式的值,其中 x 的值由文本框 Text0 输入,运算的结果由文本框 Text1 输出。Private Sub Command0_Click() Dim x As Integer Dim y As Long Me.Text0 = x y = x ^ 3 * 5Me.Text1 = yEnd Sub运行上述程序时,会有错误。错误的语句是 A: Dim x As Integer B: Me.Text0 = x C: Me.Text1 = y D: Dim y As Long

  • 2022-06-07 问题

    以下程序的功能是求"x ^ 2 + 5"表达式的值,其中x的值由文本框Text0输入,运算的结果由文本框Text1输出。Private Sub Command0_Click() Dim x As Integer Dim y As Long Me.Text0 = x y = x * x + 5Me.Text1 = yEnd Sub运行上述程序时,出现了错误,错误的语句是 A: Dim x As Integer B: Me.Text0 = x C: Me.Text1 = y D: Dim y As Long

    以下程序的功能是求"x ^ 2 + 5"表达式的值,其中x的值由文本框Text0输入,运算的结果由文本框Text1输出。Private Sub Command0_Click() Dim x As Integer Dim y As Long Me.Text0 = x y = x * x + 5Me.Text1 = yEnd Sub运行上述程序时,出现了错误,错误的语句是 A: Dim x As Integer B: Me.Text0 = x C: Me.Text1 = y D: Dim y As Long

  • 1 2