题目内容

以下程序完成的功能是输入一个数n，并判断它是否为素数，是或不是都通过消息对话框(MsgBox)来给出提示。请将程序补充完整。 Private Sub Cemmand1_Click() n = InputBox (“请输入一个整数”) k = Int(Sqr(n)) i = 2 Flag = 0 do while i＜= k And Flag = 0 if【】 = 0 then Flag = 1 Else i= i+ 1 End if Loop if【】then MsgBox “这是一个素数!”，vbOKOnly，“提示” Else MsgBox “这不是一个素数!”，vbOKOnly，“提示” End if End Sub

查看答案

搜索结果不匹配？点我反馈

更多问题

假设参照物的成本比率用U来表示，其交易价格为Po，重置成本为Ro，这有()

A. U=×100%
B. U=×100%
C. U=×100%
D. U=×100%

以下程序用来建立一个5×5矩阵，该矩阵两条对角线上的元素为1，其余元素为0，请补充完该程序。该程序运行结果如下图所示。 Private Sub form. Click() Dim s(5, 5)As Integer for N =1 To 5 for M = 1 To 5 if【】Or【】then S(N, M)=1 Else S(N. M)= 0 End if Next M Next N for N =1 To 5 for【】 Picture1. Print Tab(M *3); s(N, M); Next M Print Next N End Sub

以下是一个判断一元二次方程ax2+bx+c=0根的方程的程序，请补充该程序。提示：？当a＜＞0时有两个根．设delta=b2-4ac，当delta＞0时，有两个不同的实根．当delta=0时，有两个相同的实根。当delta＜0时，有两个不同的虚根。？当a=0，b＜＞0时，有一个根。？当a=0、b=0时，方程无意义。 Private Sub Command1_Click() Dim a As Single Dim b As Single Dim c As Single Dim sb As Single Dim xb As Single Dim re As Single a = InputBox (“请输入a的值”) c = InputBox(“请输入c的值”) if【】then delta = b ^2- 4 * a * c re = -b/(2 * a) if【】then sb = Sqr (delta)/(2 * a) Print “方程有两个实根” Elseif delta = 0 then Print “方程有两个相等实根” Else xb = Sqr(- delta)/(2 * a) Print “方程有两个虚要” End if Else if【】then ygz = - b / c Print “方程仅有一个根” Else print “方程无意义” End if End if End Sub

若已知参照物的成本比率U值，就可根据裤评估对象的重置成本R来确定被评估车辆的评估值P为()

A. P=U？R
B. P=
C. P=
D. P