在窗体上画1个名称为Command1的命令按钮,然后编写如下程序:
Private Sub Command1_Click()
Dim m As Integer, x As Integer
Dim flag As Boolean
flag = False
n = Val(InputBox("请输入任意1个正整数"))
Do While Not flag
a = 2
flag = ______
Do While flag And a <= Int(Sqr(n))
If n / a = n \ a Then
flag = False
Else
______
End If
Loop
If Not flag Then n = n + 1
Loop
Print ______
End Sub
上述程序的功能是,当在键盘输入任意的1个正整数时,将输出不小于该整数的最小素数。 请填空完善程序。
发布于 2022-05-11 10:17:49
登录后免费查看答案
关注者
0
被浏览
10
1 个回答
推荐阅读
-
在窗体上画1个命令按钮,名称为Command1,然后编写如下程序:Dim Flag As BooleanPrivate Sub Command1_Click()Dim intNum As IntegerintNum=InputBox("请输入:")If Flag ThenPrint f(intNum)End IfEnd SubFunction f(X As Integer)As IntegerIf X<10 ThenY=XElseY=X+10End Iff=YEnd FunctionPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)Flag=TrueEnd Sub运行程序,首先单击窗体,然后单击命令按钮,在输入对话框中输入5,则程序的输出结果为。
2022-05-11 关注 0 浏览13 1答案
-
窗体上有一个名称为Command1的命令按钮,并有如下程序:Private Sub Command1Click( )Dim m As Integer,n As Integerm=InputBox("输入第一个数")nzInputBox("输入第二个数")Do While m<>nDo While m>nm= m-nLoopDo While n>mn=n-mLoopLoopPrint mEnd Sub该程序的功能是( )。
2022-05-11 关注 0 浏览14 1答案
-
如果一个正整数从高位到低位上的数字依次递减,则称其为降序数(如:9632是降序数,而8516则不是降序数)。现编写如下程序,判断输入的正整数是否为降序数。Private Sub Command1 Click( )Dim n As LongDim flag As Booleann=InputBox("输入一个正整数")S=Trim(Str(n))For i=2 To Len(s)If Mid(s,i-1,1)Next iIf i=Len(S)Then flag=True Else flag=FalseIf flag ThenPrint n;"是降序数"ElsePrint n;"不是降序数"End IfEnd Sub运行以上程序,发现有错误,需要对给flag变量赋值的If语句进行修改。以下正确的修改是( )。
2022-05-11 关注 0 浏览11 1答案
-
1+ + + +…….n最大的n。请填空Private Sub Command1__Click()Dim s ,m,n AS Integerm=Val(InputBox(“请输入一个大于100的整数”))n=______s=0Do While sN=n+1S=s+n*nLoopPrint "满足不等式的最大n是" ______End Sub
2022-05-11 关注 0 浏览13 1答案
-
单击命令按钮时,下列程序的运行结果为Private Sub Command1_Click()Print MyFund(20, 18)End SubPublic Function MyFund(m As Integer, n As Integer) As IntegerDo While m <> nDo While m > n: m=m - n: LoopDo While m < n: n=n - m: LoopLoopMyFund=mEnd Function
2022-05-11 关注 0 浏览12 1答案
-
在窗体上画一个名为 Command1 的命令按钮,然后编写如下程序:Private Sub Command1_Click( ) Dim i As Integer Sum=0 n=InputBox("Enter a number") n=Val(n) For i=1 To n Sum=______ Next i Print SumEnd SubFunction fun(t As Integer)As Long p=1 For i=1 To t p=p*i Next i______End Function以上程序的功能是,计算 1!+2!+3!+…+n!,其中n 从键盘输入,请填空。
2022-05-11 关注 0 浏览10 1答案
-
假定有如下事件过程:Private Sub Form_Click()Dim x As Integer, n As Integerx = 1n = 0Do While x < 28x = x * 3n = n + 1LoopPrint x, nEnd Sub程序运行后,单击窗体,输出结果是
2022-05-11 关注 0 浏览12 1答案
-
窗体上有 Command1、Command2 两个命令按钮。现编写以下程序:Option Base 0Dim a( ) As Integer, m As IntegerPrivate Sub Command1_Click( ) m=InputBox("请输入一个正整数") ReDim a(m)End SubPrivate Sub Command2_Click( ) m=InputBox("请输入一个正整数") ReDim a(m)End Sub运行程序时,单击 Command1 后输入整数 10,再单击 Command2 后输入整数 5,则数组 a 中元素的个数是( )。
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim x As Integer,n As Integerx=1n=0Do While x<20x=x*3n=n+1LoopText1.Text=Str(x)Text2.Text=Str(n)End Sub程序运行后,单击命令按钮,在两个文本框中显示的值分别是
2022-05-11 关注 0 浏览8 1答案
-
设有如下程序:Private Sub Form_Click()Dim n As Integer, s As Integern = 8s = 0Dos = s + nn = n - 1Loop While n > 0Print sEnd Sub以上程序的功能是 ______ 。程序运行后,单击窗体,输出结果为 ______ 。
2022-05-11 关注 0 浏览12 1答案