vb选择 - 图文

If 5*a+3*b+c/3=【3】 Then

Print a, b, c 'a公鸡数、b母鸡数、c小鸡数 End If Next b next a

End Sub 20 c 100

13.以下程序用于判断文本框text1中输入的n是否是素数，请补充程序。 Private Sub Command1_Click( ) n=Val(Text1.Text) For i=2 To 【1】

If 【2】 Then Exit For Next i

If 【3】> Sqr(n) Then msgbox n & \是素数\ else

msgbox n & \不是素数\ endif

End Sub sqr(n) n mod i=0 I

14. 以下程序用于求从100-1000之间所有3的倍数的数之和，当和大于3000时，停止计算并输出和。

Private Sub Command1_Click() Dim i As Integer Dim sum As Integer For i = 100 To 【1】 If 【2】 Then sum = sum + i

If sum > 3000 Then 【3】 End If Next i

Print i, sum End Sub

1000 i mod 3=0 exit for

15.本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生n个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Textl、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。 Private Sub Command1_Click() Randomize

n = CInt(Text1.Text) a = 0 b = 0

For i = 1 To 【1】

r = Int(Rnd * 2) If r = 【2】 Then a = a + 1 Else b = b+1 End If Next

Text2.Text = a

Text3.Text = 【3】 End Sub n 1 b

16.下面程序是输入任意长度的字符串，要求将字符串顺序倒臵，例如，将输入的“ASDFGHJKL”变换为“LKJHGFDSA”。阅读程序并填空。 Private Sub command1_Cliek() Dim t$, i%, c$, n%

t = InputBox$(\输入字符串\ Print t n=【1】

For i=1 To int(n/2) c = Mid(t, i, 1)

【2】=Mid(t,n-i+1,1) Mid(t,n-i+1,1)=【3】 Next i Print t End Sub

len(t) Mid(t,i,1) c

17.下面程序的功能是找出被3除余数为1的最小的10个正整数。阅读程序并填空。

Private Sub Command1_Click() Dim m As Integer, n As Integer m =0 n =0 Do

n = n + 1

If 【1】 Then Print n m = 【2】 End If

Loop while 【3】<10 End Sub

n mod 3=1 m+1 m 18.设有如下程序:

Private Sub Command1_Click() Dim sum As Double, x As Double

sum = 0 n = 0

For i = 1 To 【1】 x = n / i n = 【2】

sum = sum + 【3】 Next

Print sum End Sub

该程序通过For循环计算一个表达式1/2+2/3+3/4+4/5 的值，补充程序。 5 n+1 x

19.设有如下程序:

Private Sub Command1_Click() Dim n As Integer, s As Long n = 【1】 Do

s = s + n n = 【2】

if n>100 Then 【3】 Loop Print s End Sub

该程序计算1～100的总和，补充程序。 1 n+1 exit do 20.设有如下程序:

Private Sub Command1_Click() i = 1

Do While i <= 【1】 【2】= s + i^i i = 【3】 Loop

Print \ End Sub

该程序计算多项式1^1+2^2+3^3+...+10^10的值，补充程序。 10 s i+1

21.设有如下程序:

Private Sub Command1_Click()

Dim a As Integer, n As Integer, s As Double, t As Double n = InputBox(\请输入n\ a = InputBox(\请输入a\ For i = 1 To 【1】

【2】 = t + a * 10 ^ (i - 1) s = 【3】 Next i

Print a, n,s End Sub

该程序求S=a+aa+aaa+...+aaaa...aaa的值，其中a和n的值由用户自己输入。 例如，当a=3，n=4时,s＝3十33十333十3333。补充程序。 n t s+t

22.“水仙花数”是一个3位数，其各位数字立方和等于该数本身（例如371=3^3+7^3+1^3）。以下程序是在窗体上输出所有的“水仙花数”，请补充程序。

Private Sub Form_Click() For i = 【1】 To 999 a1 = i \\ 100

a2 = (i - a1 * 100) \\ 10

【2】=i - a1 * 100 - a2 * 10

If a1 ^ 3 + a2 ^ 3 + a3 ^ 3 =【3】 Then Print i End If Next

End Sub 100 a3 I

23.利用文本框text1输入一个数，如果是正数，输出其平方根，否则输出其平方，结果的输出用文本框text2，请将程序补充完整。 Private Sub Command1_Click() dim n as Integer 【1】=text1.text

if n>【2】 then text2.text=【3】 else text2.text=n*n End Sub n 0 sqr(n)

24.计算:1+1/1!+1/2!+1/3!+…+1/10!，请将程序补充完整。 Private Sub Command1_Click() sum=1:t=【1】 For i=1 to 【2】 t=t*i

sum=sum+【3】 next i

Print \ End Sub 1 10 t

25. 计算:1-1/2+1/3-1/4+…+1/99-1/100，请将程序补充完整。 Private Sub Command1_Click() dim i As Integer, t As Integer dim sum As Single sum=0: t=【1】 for i=1 to 【2】 t=t*(-1)