2015VB编程汇总2栏(含答案)(2)

Unload Me End Sub

19.编写程序，要求随着不断单击命令按钮

Command1，窗体的标题依次显示为：今天是星期一→今天是星期二→今天是星期三→今天是星期四→今天是星期五→今天是星期六→今天是星期日。

Private Sub Command1_Click() Static n As Integer n = n + 1 Select Case n Case 1

Form26.Caption = \今天是星期一\ Case 2

Form26.Caption = \今天是星期二\ Case 3

Form26.Caption = \今天是星期三\ Case 4

Form26.Caption = \今天是星期四\ Case 5

Form26.Caption = \今天是星期五\ Case 6

Form26.Caption = \今天是星期六\ Case 7

Form26.Caption = \今天是星期日\ n = 0 End Select End Sub

三．循环结构

1. 求300到1000之间的所有被8整除的数据之和。

Private Sub Form_Click()

Dim i As Integer, s As Long For i = 300 To 1000

If i Mod 8 = 0 Then s = s + i Next

Print \到1000之间的所有被8整除的数据之和:\End Sub

2..编程计算从200到1000之间的所有4的倍数之和。 Private Sub Form_Click()

Dim i As Integer, s As Long For i = 200 To 1000

If i Mod 4 = 0 Then s = s + i Next

Print \到1000之间的所有4的倍数之和:\End Sub

3.在窗体上输出自然数1,2,3,4,5 Private Sub Form_Click() Dim i As Integer For i = 1 To 5 Print i; Next End Sub

4.求T=10!

Private Sub Form_Click()

Dim i As Integer, t As Long t = 1

For i = 1 To 10 t = t * i Next

Print \End Sub

5.求和：s=1+2+3+??+100 Private Sub Form_Click()

Dim i As Integer, s As Integer For i = 1 To 100 s = s + i Next

Print \ End Sub

6.求和 s=1+2+4+8+??+1024

Private Sub Form_Click()

Dim i As Integer, s As Integer For i = 0 To 10 s = s + 2 ^ i Next

Print \ End Sub

7.输入n的值，求s，s=1×2×3+2×3×4+?+n×(n+1)×(n+2)

Private Sub Form_Click()

Dim i As Integer, n As Integer, s As Integer n = InputBox(\请输入n\ For i = 1 To n

s = s + i * (i + 1) * (i + 2) Next

Print \n & \n & \ End Sub

8.求和 s=1*1+2*2+3*3+??+100*100 Private Sub Form_Click()

Dim i As Integer, s As Long For i = 1 To 100

s = s + i * i Next

Print \ End Sub

9.求和 s=1+1*2+2*3+3*4+??+99*100 Private Sub Form_Click()

Dim i As Integer, s As Long s = 1

For i = 1 To 99

s = s + i * (i + 1) Next

Print \ End Sub

10.求和 s=10000-1-2-3-??-100 Private Sub Form_Click()

Dim s As Integer, i As Integer s = 10000

For i = 1 To 100 Step 1 s = s - i Next Print s End Sub

11.求和 s=1-2+3-4+5-6+??+99-100 方法一：

Private Sub Command1_Click() Dim s As Integer, i As Integer, t As Integer s = 0 t = -1

For i = 1 To 100 t = t * -1

s = s + t * i Next Print s End Sub 方法二：

Private Sub Command2_Click() Dim s As Integer, i As Integer, t As Integer s = 0

For i = 1 To 100

s = s + (-1) ^ (i - 1) * i Next Print s End Sub

12.和：s=1+3+5+??+99 Private Sub Form_Click()

Dim i As Integer, s As Integer s = 0

For i = 1 To 99 Step 2 s = s + i Next Print s End Sub

13.求和：s=2+4+6??+100

Private Sub Form_Click()

Dim i As Integer, s As Integer s = 0

For i = 2 To 100 Step 2 s = s + i Next Print s End Sub

14.找出未来100年中所有闰年的年份 Private Sub Form_Click()

Dim i As Integer, n As Integer n = Year(Date)

For i = n To n + 100

If i Mod 4 = 0 And i Mod 100 <> 0 Or i Mod 400 = 0 Then Print i End If Next End Sub

15.输入一个自然数数，判断其是否为素数，如果是，则输出“该数是素数”，否则输出“该数不是素数”

Private Sub Form_Click()

Dim n As Integer, i As Integer n = InputBox(\请输入数据n\ For i = 2 To n - 1

If n Mod i = 0 Then Exit For End If Next

If i = n Then

Print n & \是素数\ Else

Print n & \不是素数\ End If End Sub

16.输出数列：1 1 2 3 5 8 13 21??的前20项

Private Sub Form_Click()

Dim i As Integer, f1 As Integer, f2 As Integer f1 = 1 f2 = 1

For i = 1 To 10 Print f1, f2 f1 = f1 + f2 f2 = f2 + f1 Next End Sub

17.输入一批数据，当输入-99999时结束，统计输入数据的个数

Private Sub Form_Click() Cls

Dim n As Integer, x n = 0 Do

x = InputBox(\请输入数据，-99999结束输入\

If x = -99999 Then Exit Do End If n = n + 1 Print x Loop

Print \您输入的数据个数为：\End Sub

18.假设有一张0.5mm厚, 足够大的纸，那么至少对折多少次，其厚度可超过珠穆朗玛峰的高度（8848.13m）

Private Sub Form_Click()

Dim h As Single, n As Integer n = 0

h = 0.0005

Do While h <= 8848.13 h = 2 * h n = n + 1 Loop Print n Print h End Sub

19.设计利用窗体打印乘法九九表的程序 Private Sub Form_Click()

Dim i As Integer, j As Integer Print Tab(30); \乘法九九表\ For i = 1 To 9 For j = 1 To i

Print Tab((j - 1) * 8); i & \& \ Next Print Next End Sub

20.求s=6+66+666+?+6666666666(10个6) 使用单循环方法一：

Private Sub Command1_Click()

Dim i As Integer, s As Double, t As Double s = 0 t = 0

For i = 1 To 10 t = t * 10 + 6 s = s + t Next Print s End Sub

使用单循环方法二：

Private Sub Command2_Click()

Dim i As Integer, s As Double, t As Double s = 0 t = 0

For i = 1 To 10

t = 6 * 10 ^ (i - 1) + t s = s + t

Next Print s End Sub

使用双循环方法三：

Private Sub Command3_Click()

Dim i As Integer, j As Integer, s As Double, t As Double s = 0

For i = 1 To 10 t = 0

For j = 0 To i - 1 t = 6 * 10 ^ j + t Next

s = s + t Next Print s End Sub

21.求s=a+aa+aaa+?+aaa?aaa(n个a),其中a和n的值由用户自己输入。例如，当a=3,n=4时，S=3+33+333+3333。 使用单循环方法一：

Private Sub Command1_Click()

Dim i As Integer, s As Double, t As Double Dim a As Integer, n As Integer a = InputBox(\请输入a的值\ n = InputBox(\请输入n的值\ s = 0 t = 0

For i = 1 To n t = t * 10 + a s = s + t Next Print s End Sub

使用单循环方法二：

Private Sub Command2_Click()

Dim i As Integer, s As Double, t As Double Dim a As Integer, n As Integer a = InputBox(\请输入a的值\ n = InputBox(\请输入n的值\ s = 0 t = 0

For i = 1 To n

t = a * 10 ^ (i - 1) + t s = s + t Next Print s End Sub 使用单循环方法三：

Private Sub Command3_Click() Dim i As Integer, j As Integer, s As Double, t As Double

Dim a As Integer, n As Integer a = InputBox(\请输入a的值\ n = InputBox(\请输入n的值\ s = 0

For i = 1 To n t = 0

For j = 0 To i - 1 t = a * 10 ^ j + t Next

s = s + t Next Print s End Sub

22.在窗体上输出上三角的九九乘法表。 Private Sub Form_Click()

Dim i As Integer, j As Integer Print Tab(30); \乘法九九表\ For i = 1 To 9 For j = i To 9

Print Tab((j - 1) * 8); i & \& \ Next Print Next End Sub

23.在窗体的单击事件过程中，编写程序计算1！+2！+3！+ ? +15! 方法一单循环：

Private Sub Command1_Click()

Dim i As Integer, s As Double, t As Double s = 0 t = 1

For i = 1 To 15 t = t * i s = s + t Next Print s End Sub

方法二双循环：

Private Sub Command2_Click() Dim i As Integer, j As Integer, s As Double, t As Double s = 0

For i = 1 To 15 t = 1

For j = 1 To i t = t * j Next

s = s + t Next Print s End Sub

24.编写程序，在窗体上输出由1、2、3、4、5这五个数字组成的所有可能的两位数，并统计它们的个数。

Private Sub Form_Click()

Dim i As Integer, j As Integer Dim n As Integer n = 0

For i = 1 To 5 For j = 1 To 5

Print i * 10 + j; n = n + 1 Next Print Next Print \、2、3、4、5组成的所有可能两位数有\个\End Sub

25.编写程序，将26个字母逆序输出。 方法一：

Private Sub Command1_Click()

Dim i As Integer, x As String, t As String Dim n As Integer

x = \ Print x n = Len(x)

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

Mid(x, i, 1) = Mid(x, n + 1 - i, 1) Mid(x, n + 1 - i, 1) = t Next Print x End Sub 方法二：

Private Sub Command2_Click()

Dim i As Integer, x As String, y As String Dim n As Integer, t As String x = \ Print x n = Len(x) y = \

For i = n To 1 Step -1 t = Mid(x, i, 1) y = y + t Next Print y End Sub

27.编写程序，将字符串\山高人为峰\按逆序\峰为人高山\输出。

Private Sub Command1_Click()

Dim i As Integer, x As String, t As String Dim n As Integer

x = InputBox(\请输入字符串：如“山高人为峰”\ Print x n = Len(x)

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

Mid(x, i, 1) = Mid(x, n + 1 - i, 1) Mid(x, n + 1 - i, 1) = t Next Print x End Sub

28. 编写一个程序，用户连续输入N个值，直到输入非数值数据为止。最后输出其中最大的一个数。

Private Sub Form_Click()

Dim x As Variant, max As Single

x = InputBox(\请输入数据，非数值数据将结束输入\

If IsNumeric(x) Then Print x max = x Else

MsgBox \您输入了非数值数据，结束输入\ Exit Sub End If Do

x = InputBox(\请输入数据，非数值数据将结束输入\

If IsNumeric(x) Then Print x

If x > max Then max = x End If

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库2015VB编程汇总2栏(含答案)(2)在线全文阅读。