1求以下VB题的答案的啊!3、编程输入10名短跑运动员的姓名及其100米跑成绩,输出最好成绩的运动员姓名及其成绩,再显示低于平均成绩的所有运动员姓名及其成绩.4、素数(质数)是一个正整数,除了1和它本身之外,不能被其它任何正整数整除.编程:求出1到1000间的所有素数,并将这些素数显示在列表框中.当用户输入的数不是...
Private Sub Command1_Click()Dim a a = 1000 '从1000开始找 Do a = a + 1 If isprime(a) Then '调用isprime()函数过程判断a是否素数 Text1.Text = Text1.Text & " " & a End If Loop Until a > 1100 End Sub '下面这个函数是用来判别一个数是否是素数的 Private Function isprime...
'例子需控件：Command1、Text1 Private Sub Command1_Click()Dim a() As Long, nStr As String 'Call FindSuShu(18, 100, a, 5) '查找大于17的5个素数存入数组a Call FindSuShu(1, 1000, a) '查找1到1000之间的所有个素数 '显示到 Text1 For I = LBound(a) To UBound(a)nStr = ...
Next j If j = i Then isprime = True '当循环进行到最后 也没跳出时 即i没有可以整除的因子时（即i是素数时），输出i End If End Function Private Sub Command1_Click()Dim i For i = 100 To 1000 If isprime(i) And isprime(i + 2) Then Print i; i + 2 End If Next End S...
Private Sub Command1_Click()Print "100到1000之间最大的四个素数:"For i = 1000 To 100 Step -1 yes = True For j = 2 To Sqr(i)If i Mod j = 0 Then yes = False: Exit For Next j If yes Then Print i k = k + 1 If k = 4 Then Exit For End If Next i End Sub...
Public Function 生成100到1000的随机数()Randomize Timer 生成100到1000的随机数 = Int(900 * Rnd) + 100 End Function Function 判断素数(ByVal n As Long) As Boolean Dim i As Long For i = 2 To Sqr(n)If n Mod i = 0 Then 判断素数 = False Exit Function End If Next 判断素数...
1、求100~1000之间所有3的倍数之和,当和大于3000时,停止计算并输出和.2、输出100-200之间不能被3整除但能被5整除的数.3、+2!+3!+…+n!4、对于输入的整数x,判断是否为素数. 相关知识点: 试题来源: 解析1.dim i ,sum as integersum=0for i=100 to 1000...
请教 求从1000到..Private Sub Command1_Click() Dim i%, x%, k% For i = 1000 To 1100 For x = 2 To Sqr(i) If i M