数,就是合数。用被测试的数除以从2开始到该数本身的数,如果能除尽(余数为0),则为合数;如果都除不尽(余数均不为0),则为素数。请在划线处将下面过程补充完整: Function Prime(inputvar As Integer)As Integer For i=2 To inputvar-1 If inputvar Mod i=【 】,Then GoTo comfinish End If Next i Prime=inputvar Print "素数" GoTo【 】 comfinish: Prime=inputvar Print"合数" finish: End Function
下列程序的功能是:找出给定的12个数中最大的一个数,然后输出这个数以及经在原来12 option Base
1 Private Sub Form_Click() Dim x x = Array(57,-9, 17,42, -31,46, 11, 8, 6, -4, 3,90) Max=1 For k=2 To 10 Step 1 If x(k) > x(Max) Then ______ End If Next k y=______ Print Max, y End Sub
,就是合数。用被测试的数除以从2开始到该数本身的数,如果能除尽(余数为0),则为合数;如果都除不尽(余数均不为0),则为素数。请在划线处将下面过程补充完整: Function Prime(inputvar As Integer)As Integer For i=2 To inputvar-1 If inputvar Mod i=【 】Then GoTocomfinish End If Next i Prime=inpuvar Print"素数" Go To【 】 comfinish: Prime=inputvar Print"合数" finish: End Function