网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
（ 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
参考答案
更多 “ （ 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 ” 相关考题
考题
下面程序的功能是找出给定的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
考题
面程序的功能是找出能够被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
考题
下面程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数。请在‘空白处填入适当语句将程序补充完整。Private Sub Form_Click()sum＝0For i＝1 To 1000If______Thensum＝sum+iEnd IfNext iMsgBox sumEnd Sub
考题
下列程序功能为：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请在程序空白处填入适当内容使程序完整。Sub PrintOut()Dim a As Integera = MsgBox("输出结果?", vblnformation + vbYesNo, "提示：")If a = ______ ThenPrint "Myresult"End IfEnd Sub
考题
下列程序的功能是求方程：x2+y2=1000的所有整数解。请在空白处填入适当的语句，使程序完成指定的功能。Private Sub Command 1_Click()Dim x as intege,y as integerFor x=-34 To 34For y=-34 To 34If______ThenDebug．print x，YEnd IfNext yNext xEnd Sub
考题
下列程序为求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 Doublea=Fix(9*Rnd)+1n=Pix(6*Rnd)+5Sn=0S=0Fori
考题
在窗体中添加一命令按钮，(其Name属性为Commmld1)，然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数，并统计其中5的倍数所占比例。请在空白处填入适当的内容，将程序补充完整。Private Sub Command1 Click()Dim a(100)For j=1 To 100a(j)=Int(______)If a(j)______5=0 Then______Print a (j)；Next iPrintPrint k/100End Sub
考题
试题10下列程序段的功能是求1到100的累加和。请在空白处填入适当的语句，使程序完成指定的功能。Dim s As Single ， m As Singles=0m=1do while ____【10】___s=s+mm=m+1Loop
考题
找出被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 SubA．n mod 3=1 And n mod 5=1 And n mod 7=1B．n mod 3=1 or n mod 5=1 or n mod 7=1C．n 3=1 And n 5=1 And n 7=1D．n 3=1 or n 5=1 or n 7=1
热门标签
最新试卷