（ 11 ）下列程序的功能是找出被 5 、 7 除，余数为 1 的最小的 5 个正整数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。Private Sub Form_Click()Dim Ncount %, n%n = n + 1If 【 11 】 ThenDebug.Print nNcount =Ncount + 1End IfLoop Until Ncont = 5End Sub

题目

（ 11 ）下列程序的功能是找出被 5 、 7 除，余数为 1 的最小的 5 个正整数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。

Private Sub Form_Click()

Dim Ncount %, n%

n = n + 1

If 【 11 】 Then

Debug.Print n

Ncount =Ncount + 1

End If

Loop Until Ncont = 5

End Sub

相似考题

1.下面程序的功能是找出给定的10个数中最大的一个数，最后输出这个数以及它在原来 10个数中的位置。请在下划线处填入适当的内容，将程序补充完整。Option Base 1Private SubForm_Cfick()Dim Xx=Array(23，-5,17,38，-31,46,11，8，5，-4)Max=1k=110 k=k+1ifx(k)＞x(max)then[13]End if

2.下面程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数。请在‘空白处填入适当语句将程序补充完整。Private Sub Form_Click()sum＝0For i＝1 To 1000If______Thensum＝sum+iEnd IfNext iMsgBox sumEnd Sub

3.下列程序功能为：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请在程序空白处填入适当内容使程序完整。Sub PrintOut()Dim a As Integera = MsgBox("输出结果?", vblnformation + vbYesNo, "提示：")If a = ______ ThenPrint "Myresult"End IfEnd Sub

4.面程序的功能是找出能够被13、23、43除余数分别为1、2、3的最小的两位正整数。请填空。Private Sub Form_Click()Dim i As Integer,j As Integerj=0j=43+3Doj=j+1if ______ thenprint ji=i+1end ifLoop ________End Sub

参考答案和解析
正确答案：
更多“( 11 )下列程序的功能是找出被 5 、 7 除,余数为 1 的最小的 5 个正整数。请在程序空白处填入适当 ”相关问题

  • 第1题：

    下列程序的功能是求方程：x2+y2=1000的所有整数解。请在空白处填入适当的语句，使程序完成指定的功能。

    Private Sub Command 1_Click()

    Dim x as intege,y as integer

    For x=-34 To 34

    For y=-34 To 34

    If______Then

    Debug．print x，Y

    End If

    Next y

    Next x

    End Sub


    正确答案：(x*x+y*y)=1000
    (x*x+y*y)=1000 解析：此处即为判断条件，此题中要求找到满足方程x2+y2=1000的x、y值，此处即应为x2+y2=1000的程序写法。

  • 第2题：

    在窗体中添加一命令按钮，(其Name属性为Commmld1)，然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数，并统计其中5的倍数所占比例。

    请在空白处填入适当的内容，将程序补充完整。

    Private Sub Command1 Click()

    Dim a(100)

    For j=1 To 100

    a(j)=Int(______)

    If a(j)______5=0 Then______

    Print a (j)；

    Next i

    Print

    Print k/100

    End Sub


    正确答案：(999*RnD)+1Modk=k+1
    (999*RnD)+1,Mod,k=k+1 解析：本题综合考查Visual Basic内部函数、For循环等知识点。根据题意，For j循环用来为数组a(100)赋值，所赋之值为Rnd随机产生。由于需要产生100个小于1000的正整数，故第一处空白填：(999(RnD)+1。注意，该处不能写成： (1000(RnD)，因为它有可能产生一个小于1的小数，此时会被Int函数转换为0，如此就违反了题目中关于正整数的要求。
    If语句判断数组中5的倍数，故第二处空白填： Mod。表示取模。
    由于要计算出5的倍数所占的比例，故每判断出一个5的倍数，便令一个变量加1，观察Print k/100可以得出该变量为k。故第三处空白填：k=k+1。

  • 第3题：

    找出被3、5、7除，余数均为1的最小的5个正整数。 Private Sub Command1_Click（) Dim countn%, n% n =1: countn = 0 Do n= n + 1 If Then Print n countn = countn + 1 End If Loop until count n=5 End Sub

    A．n mod 3=1 And n mod 5=1 And n mod 7=1

    B．n mod 3=1 or n mod 5=1 or n mod 7=1

    C．n 3=1 And n 5=1 And n 7=1

    D．n 3=1 or n 5=1 or n 7=1


    n mod 3=1 And n mod 5=1 And n mod 7=1until count n=5

  • 第4题：

    下列程序为求Sn=a+aa+aaa+……+aa…a(n个a)，其中a为一个随机数产生的1～9(包括1、 9)中的一个正整数，n是一个随机数产生的5～10(包括5、10)中的一个正整数，请在空格处填入适当的内容，将程序补充完整。

    Private Sub Form_CUCk()

    Dima As Integer,n As Intege,S As Double，Sn As Double

    a=Fix(9*Rnd)+1

    n=Pix(6*Rnd)+5

    Sn=0

    S=0

    Fori


    正确答案：nSn=Sn+s
    n,Sn=Sn+s

  • 第5题：

    试题10

    下列程序段的功能是求1到100的累加和。请在空白处填入适当的语句，使程序完成指定的功能。

    Dim s As Single ， m As Single

    s=0

    m=1

    do while ____【10】___

    s=s+m

    m=m+1

    Loop


    正确答案：
    试题10分析
    题目的要求是求1到100的累加，s用来存累加和，m是累加项，条件是不超过100。
    试题10答案
      m<=100

相关内容