itgle.com

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

题目

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

Private Sub Commandl_Click()

x=Val(Text1.Text)

If [9] Then

PrintX

Else

Text1.Text=""

[10]

End If

End Sub


相似考题
参考答案和解析
正确答案:xMod4=1 AndxMod5=2Tex(1.SetFocus
xMod4=1 AndxMod5=2,Tex(1.SetFocus
更多“有下面一个程序段,从文本框中输人数据,如果该数据满足条件“除以4余1,除以5余 2”,则输出,否则,将 ”相关问题
  • 第1题:

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


    正确答案:x Mod 4=1 And x Mod 5=2,Text1.SetFocus
    【解析】题目要求程序满足的条件是“除以4余1,除以5余2”,这个条件中包含了一个逻辑并和两个求模运算。其中,逻辑并运算符用“And”表示,取余运算符用Mod表示,因此,程序中的if条件应是“x Mod 4=1 Andx Mod 5=2”;SetFocus方法是将焦点移至指定的控件或窗体。

  • 第2题:

    以下程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除文本框的内容。请填空。


    正确答案:
    XMod4=1AndXMod5=2Text1.SetFocus【解析】题目要求程序满足的条件是“除以4余1,除以5余2”,这个条件中包含了一个逻辑并和两个求模运算。其中,逻辑并运算符用“And”表示,取余运算符用Mod表示,因此。程序中的“条件应是“XMod4=1AndXMod5=2”:SetFocus方法是将焦点移至指定的控件或窗体。

  • 第3题:

    三位数的自然数P满足:除以7余2,除以6余2,余以5也余2,则符合条件的自然
    数P有 ( )。
    A.2个 B.3个 C.4个 D.5个


    答案:C
    解析:
    由题目可知,三位数P-2即可被7、6、5整除,7、6、5的最小公倍数为210,则其他满足条件的数必为210的整数倍,且可保证为三位数,即420,630,840,那么P即为212,422,632,842,所以答案为C项。

  • 第4题:

    以下程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”的条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除 文本框的内容,在横线处应填写( )。

    A. x%4=1 And x%5=2

    B. x%4=1 Or x%5=2

    C. x Mod 4=1 And x Mod 5=2

    D. x Mod 4=1 Orx Mod 5=2


    正确答案:C
    c)    【解析】本题考查条件表达式的描述和如何获得焦点。题中的两个条件“除以4余1,除以5余2”关系为并列关系,可以表示为“x Mod 4=1 And X Mod 5=2”。

  • 第5题:

    a除以5余1,b除以5余4,如果3a >b,那么3a-b除以5余几?

    A. 1
    B. 2
    C. 3
    D. 4

    答案:D
    解析:
    假设法,假设a=6,b=9,3a-b=18-9=9,故答案为D。