下列程序是判断一个整数（>=3)是否为素数，请补充完整。 Dim n As Integer n=InputBox（"请输入一个整数（>=3)") k=Int（Sqr（n)) i=2 swit=0 While i 【7】 Else 【8】 End If Wend If swit=0 Then Print n；"是一个素数。" Else Print n；"不是一个素数。" End If

输入10个整数，输出最大值和最小值 2、输入一个整数，判断其是否为素数 3、已知ABCD ×9=DCBA，求ABCD各是什么数字 下列程序执行时，从键盘上依次输入123和234，则程序的输出结果是 【10】 。 Dim a,b As Integer a=InputBox（"请输入第一个整数") b=InputBox（"请输入第二整数") Print a+b 以下程序的功能是：从键盘任意输入正整数n，并找出大于n的第一个素数。 Private Sub Form_Click（) Dim n As Long, j As Long, m As Long Dim flag As Boolean n=InputBox（"请输入正整数") Do While Not flag （11) flag=True i=2 Do While i＜n And （12) If n 下面程序的作用是用InputBox函数输入一个整数，然后判断能否同时被2，5和7整除，果能则输出该数及平方值。请填空。 Private Sub Command1_Click（) Dim numX As Integer numX = Val （InputBox（"请输入一个整数")) If 【9】 Then Form1．Print 【10】 End If End Sub 以下程序的作用是生成一个如下图的矩阵，该程序不完整，请补充完改程序。 Private Sub Command1_Click（) Dim A（3，3) For M=1 To 3 For N=1 To 3 If N=M Or 【7】 Then A（M，N)=1 Else 【8】 =0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A（M，N) 下面程序运行时，若输入395，则输出结果是（）。（“请输入一个3位整数”） 下列程序的功能是将数组中的奇数相加。给定的程序不完整，请将程序补充完整。Option Base 1 Private Sub form_Click（) Dim k As Integer Dim Total As Integer Dim n n = Array（1, 2, 3, 4, 5, 6, 7, 8, 9, 10) For k = 1 To UBound（n) If 【13】 Then Tota 下面程序的功能是产生10个小于100（不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 Sub PR（) Randomize Dim a For j=1 To 10 a（i)=Int（【 】 ) If 【 】Then k=k+1 Print a（j) Next j Print Print k/10 End Sub 下面程序的功能是产生10个小于100（不含100) 的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 Sub PR（) Randomize Dim a（10) For i=1 To 10 a（i) =Int（[14] ) If [15] Then k=k+1 Print a（j) Next j Print Print k/10 End Sub 下面程序的功能是产生10个小于100（不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 Sub PR（) Randomize Dim a（10) For j=1 To 10 a（i)=Int（【14】 ) If 【15】Then k=k+1 Print a（j) Next j Print Print k/10 End Sub 下面程序的功能是产生10个小于100（不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 SubPR（) Randomize Dim a（10) For j=1 To 10 a（i)=Int（（14) ) If （15) Then k=k+1 Print a（j) Next j Print Print k/10 Fnd Sub 设有一个10个元素的数组，下列程序将该数组的第一个元素与第十个元素交换，第二个元素与第九个元素交换……，第五个元素与第六个元素交换，请补充完该程序。 Private Sub Commnd1_Click（) Dim a（1 To 10)As Integer Dim i As Integer Dim p As Integer Dim t As Integer Dim j As Integer For 在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数据，统计这些数据中素数的个数，并找出所有素数中最小的素数（判断素数的函数已给出）。最后将查找和统计的结果分别显示在标签Label4和Label3中（窗体外观如图所示）。程序不完整，请在指定的位置把程序补充完整。注意：不得修改原有程序和控件的属性。程序结束运行之前，必须至少正确运行一次程序，将统计的结果显示 编写程序：由键盘输入一个整数，判断其能否既被3整除又被5整除。 下面是程序是计算给定函数的值，自变量x，y的值用InputBox函数输入，函数如下： 程序不完整，请填空，将程序的补充完整 Option Explicit Dim x As Single Dim y As Single Dim z As Single Private Sub Command1_Click（) x=Val（InputBox（"x=") ) y=Val（InputBox（"y=") 写一个函数判断一个正整数是否为奇数，在主函数中用scanf输入正整数m，调用函数后，根据函数返回值判断这个正整数是否为奇数，若是则输出“yes”，否则输出“no” 一个完整数控加工程序由_、_和_三部分组成 下面程序的功能是产生10个小于100（不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 Sub PR（) Randomize Dim a（10) For j=1 To 10a（i)=Int（[14] )If [15] Then k=k+1Print a（j) Next J Print Print k/10 End Suh 下列程序段的功能是输入一元二次方程ax2+bx+c=0（a≠0)的3个系数a、b、c，并判断它根的情况，请将程序补充完整。 Dim a As Single,b As Single,c As Single Dim delta As Single a=txtA. Text:b=txtB. Text:c＝txtC. Text delta= 【11】 If delta＞0 ThenlblResult. C 下列程序执行时，从键盘上依次输入123和234，则程序的输出结果是 【9】 。 a=InputBox（"请输入第一个整数") b=InputBox（"请输入第二整数") Print a＋b