(3) pi3的程序
Private Sub Form_Click() Dim c As Double Dim t As Double Dim p As Double Dim q As Double Dim k As Double Dim e As Double c=2 k=1 s=0 t=0 e = 0.00001
(2)pi2的程序 Private Sub Form_Click() Dim t As Integer Dim e As Double Dim s As Double Dim k as Double e = 0.00001: k = 1 Do p=s s = s + (-1) ^ (k - 1) / (2 * k - 1) If Abs(4 * (s - p)) <= e Then Print "pi="; 4 * s, "k="; k t=1 else k=k+1 End If Loop Until t = 1 End Sub
1、菱形 Private Sub Form_Click() For i% = -5 To 5 b% = 6 - Abs(i%) Print Tab(20 - b%); For j = 1 To 2 * b - 1 Print "*"; Next j Print Next i End Sub 2 打印如图 A BB C CD D DEF E EFGH
4、用取串函数打印如下图形 其中a$=“65432123456”
1 212 32123 4321234 543212345 65432123456 543212345 4321234 32123 212
1 程序
Private Sub Form_Click() Dim a As String, i As Integer, b As Integer Dim c As Integer a = "65432123456" For i = -5 To 5 b = 1 + Abs(i) Print Tab(10 + b); c=6-b Print Mid(a, b, 2 * c + 1) Next i End Sub
Do p=c q=0 For j = 1 To k q = Sqr(2 + q) Next j q=2/q c=c*q If Abs(c - p) <= e Then Print "pi="; c, "k="; k + 1 t=t+1 Else k=k+1 End If Loop Until t = 1 End Sub
2)、方法（2） Private Sub Form_Click() For i% = 1 To 5 Print Chr$(i% + 64); Spc(3); For j% = i% ቤተ መጻሕፍቲ ባይዱo 2 * i% - 2 Print Chr(j% + 64); Next j% Print Next i% End Sub
VB复习
1 菱形 2字母图形 3字符图形4字符图形 5 pi的计算 6完备数 7 对调数 89 读文件后排序,再写文件 10 待定减法(穷举)11随机数产生字母 12成绩 统计与排序 13 输出随机数的素数及素数和14 过程法解一元二次方程 15ex 16找出满足条件“个位+十位+=9”之间的数，用冒泡法排序，输出排 序结果，将结果写进顺序文件17随机数模拟3个骰子的情形18 19约瑟夫问 题20y=sin(x)图 21 过程调用 22 列表框编程 23 输入数据到文本、列表、 组合框、图片、标签24 从列表、组合框写数据到文件 25 硬币组合（穷举） 26 加密 27 28统计随机数0~ 9 的个数 29 字符重组 30 行列操作 318-8 32菲波拉数列33守形数34不同进位制数转换 35 找最大数、最小数（过程 编程） 36 S=A!+B!+C! （过程编程） 37 S=1+1/2+1/3+…+1/100 （过程 编程）38 π/4=1-1/3+1/5-1/7+… + (-1)^n-1/( 2n-1) （过程编程）39插入操 作40删除操作 41折半42 二分法解方程 43产生10个不同的随机数 44产 生10个不同的素数
3、打印如图所示的图形
4 444 33333 3333333 222222222 2222222 11111 111
0
Private Sub Form_Click() For i% = 9 To 1 Step -1 b% = Int(i / 2) If i% >= 5 Then c% = 9 - i% Print Tab(i); Else c=i-1 Print Tab(10 - i); End If For j = 1 To 2 * c + 1 If b% > 0 Then Print Format(b%, "#"); Else a$ = b% Print a$ End If Next j Print Next i End Sub
5、计算π的算法
(1)Pi1 的计算 Private Sub Form_Click() Dim e As Double Dim k as double Dim t as integer dim c as double E=.00001 t = 0: k = 1: c = 1 Do p=c If Int(k / 2) = k / 2 Then c = c * k / (k + 1) Else c = c * (k + 1) / k End If If Abs(c * 2 - p * 2) < e Then t=1 Print "pi="; c * 2, "k="; k Else k=k+1 End If Loop Until t = 1 End Sub
1)、字符串法 Private Sub Form_Click() Dim a As String a = "abcdefghijklmnopqrst" a = UCase(a) For i% = 1 To 5 Print Mid(a, i%, 1); Spc(3); If i < 2 Then Print Else Print Mid(a, i%, i% - 1) End If Next i% End Sub