3.输入一个正整数m（>2），判断m是否为素数，并输出结果。请将程序补充完整。 Private Sub Form_Click() Dim m%, i%, k% m = InputBox("请输入m的值(>2)") k = 1 For i = 【1】To【2】 If 【3】 Then k = 0 Next i If 【4】 Then Print m & "是素数" Else Print m & "不是素数" End If End Sub
举一反三
- 阅读程序在画线处填空。程序功能单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间那个整数， Option Base 1 Private Sub Form_Click() Print "输入的数据是："; For i=1 To 3 a(i)=InputBox("输入数据") Print a(i); Next Print If a(1)a(3) Then m=a(2) ElseIf a(1)>a(3) Then m=__ _ _____ Else m=__ ____ __ End If Print "中间数是：";m End Sub
- 请阅读程序： Private Sub Form_Click() m=1 For i=4 To 1 Step-1 Print str(m); m=m+1 For j=1 To i Print "*"; Next j Print Next i End Sub 程序运行后，单击窗体，则输出结果是______。 A: 1**** 2*** 3** 4* B: 4**** 3*** 2* 1* C: **** *** **** * D: * ** *** ****
- 判断一个数是否为素数。并显示相应提示。如：该数为素数时，显示"素数"；该数为非素数时，显示"非素数"。要求使用For语句来实现，用布尔型变量flag作为该数是否为素数的标志，注意：不得使用Goto语句. Private Sub Command1_Click() Dim flag As Boolean , m As Integer m = Val(InputBox("n:")) flag = True For i = 2 To m - 1 If m Mod i = 0 Then 【1】 : Exit For Next i If flag = True Then Print "素数" Else Print "非素数" End If End Sub
- 下面程序运行时，若输入“Visual Basic Prograrmming”，则在窗体上输出的是( ) Private Sub Command1_Click() Dim count(25)As Integer,ch As String ch=Ucase(InputBox("请输入字母字符串")) For k=1 To Len(ch) n=Asc(Mid(ch,k,1))-Asc("A") If n＞＝0 Then count(n)一count(n)+1 End If Next k m=count(0) For k=1 To 25 If m＜count(k) Then m=count(k) End If Next k Print m End Sub A: 0 B: 1 C: 2 D: 3
- 单击窗体，在窗体上打印数列：2/1 ，3/2 ，5/3 ，8/5 ，13/8 … 的前10项，并求其和，将和保存在变量s中。 Private Sub Form_Click() Dim i%, j%, k%, m As Integer Dim s As Single s = 0 i = 2 'i为分子 j = 1 'j为分母 For k = 1 To 10 s = 【1】 Print i & "/" & j m = j j = i i = 【2】 Next Print s End Sub