[试题]

有下面一个程序段,从文本框中输入数据,如果该数据满足条件,除以4余1,除以5余2,则输出,否则,将焦点定位在文本框中,并清除文本框的内容。

Private Sub Command1_Click()

x=Val(Text1.Text)

If (6) Then

Print x

E.lse

Text1.Text=""

(7)

E.nd If

E.nd Sub

参考答案与解析:

相关试题

有下面一个程序段,从文本框中输人数据,如果该数据满足条件“除以4余1,除以5余

[试题]有下面一个程序段,从文本框中输人数据,如果该数据满足条件“除以4余1,除以5余 2”,则输出,否则,将焦点定位在文本框中,并清除文本框的内容。Private Sub Commandl_Click()x=Val(Text1.Text)If [9] ThenPrintXE.lseText1.Text=""[10]E.nd IfE.nd Sub

  • 查看答案
  • 在有下面一个程序段从文本框中输入数据,如果该数据满足条件,除以6余2,除以5余3

    [试题]在有下面一个程序段从文本框中输入数据,如果该数据满足条件,除以6余2,除以5余3,则输出,否则,将焦点定位在文本框中,并清除文本框的内容。Private Sub Command1_Click()num=Val(Text1.Text)If (8) ThenPrint numE.lseText1.Text=""(9)E.nd IfE.nd Sub

  • 查看答案
  • 以下程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余

    [单选题]以下程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”的条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除 文本框的内容,在横线处应填写( )。A. x%4=1 And x%5=2B. x%4=1 Or x%5=2C. x Mod 4=1 And x Mod 5=2D. x Mod 4=1 Orx Mod 5=2

  • 查看答案
  • (7)下列程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除

    [试题](7)下列程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除文本框的内容。请填空。 Private Sub Command1_Click() x=Val(Text1.Text) IfThen Print x Else ________ Text1.Text="" End If End Sub

  • 查看答案
  • 一个数除以5余3,除以3余2,除以4余1.求该数的最小值53。

    [判断题] 一个数除以5余3,除以3余2,除以4余1.求该数的最小值53。A . 正确B . 错误

  • 查看答案
  • a除以5余1,b除以5余4,如果3a>b,那么3a-b除以5余几?(  )

    [单选题]a除以5余1,b除以5余4,如果3a>b,那么3a-b除以5余几?(  )A.1B.2C.3D.4

  • 查看答案
  • a除以5余1,b除以5余4,如果3a>b,那么3a-b除以5余几?(  )

    [单选题]a除以5余1,b除以5余4,如果3a>b,那么3a-b除以5余几?(  )A.1B.2C.3D.4

  • 查看答案
  • a除以5余1,b除以5余4,如果3a>b,那么3a-b除以5余几?(  )

    [单选题]a除以5余1,b除以5余4,如果3a>b,那么3a-b除以5余几?(  )A.1B.2C.3D.4

  • 查看答案
  • a除以5余1,b除以5余4,如果3a>b,那么3a-b除以5余几?(  )

    [单选题]a除以5余1,b除以5余4,如果3a>b,那么3a-b除以5余几?(  )A.1B.2C.3D.4

  • 查看答案
  • a除以5余1,b除以5余4,如果3a>b,那么3a-b除以5余几?(  )

    [单选题]a除以5余1,b除以5余4,如果3a>b,那么3a-b除以5余几?(  )A.1B.2C.3D.4

  • 查看答案
  • 有下面一个程序段,从文本框中输入数据,如果该数据满足条件,除以4余1,除以5余2