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

题目

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

Private Sub Command1_Click()

num=Val(Text1.Text)

If 【8】 Then

Print num

Else

Text1.Text=""

【9】

End If

End Sub


相似考题
参考答案和解析
正确答案:
正确答案:  1.(num Mod 6 = 2 And num Mod 5 = 3) 2.(Text1.SetFocus)  
更多“在有下面一个程序段从文本框中输入数据,如果该数据满足条件,除以6余2,除以5余3,则输出, ”相关问题
  • 第1题:

    三位数的自然数N满足:除以6余3,除以5余3,除以4也余3,则符合条件的自然数N有几个?()

    A.8 B.9 C.15 D.16

     


    C。解析:6、5、4的最小公倍数是60,由于这个三位数除以6、5、4所得余数都为3,则这个数可写成60n+3的形式,且n为整数时,这个数是一个三位数,满足100≤60n+3≤999,解得2≤n≤16,即符合题意的数共有16-2+1=15个。

  • 第2题:

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


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

  • 第3题:

    三位数的自然数 N 满足:除以 6 余 3,除以 5 余 3,除以 4 也余 3,则符合条件的自然数 N 有几个:

    A8
    B9
    C15
    D16


    答案:C
    解析:

  • 第4题:

    三位数的自然数N满足:除以6余3,除以5余3,除以4也余3,则符合条件的自然数N有几个?

    A.8

    B.9

    C.15

    D.16


    正确答案:C
    [答案] C。[解析] 6,5、4的最小公倍数是60,由于这个三位数除以6.5、4所得余数都为3,则这个数可写成60n+3的形式,且n为整数时,这个数是一个三位数,满足100≤60n+3≤999,解得2≤n≤16,即符合题意的数共有16-2+1=15个。

  • 第5题:

    三位数的自然数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项。