VBtext.doc

1 到100的和 Private Sub Command1_Click() Dim s As Integer, i As Integer s = 0 For i = 1 To 100 s = s + I Next Print s End Sub 1+1/2+1/3+.+1/100的Private Sub Command1_Click() Dim s As Integer, i As Integers = 0For i = 1 To 100s = s + 1 / iNextPrint sEnd Sub1-1/3+1/5-1/7+.+1/99的和Private Sub Command3_Click()Dim s As Single, i As Integer, f As Integer s = 0 f = 1 For i = 1 To 100 Step 2 s = s + f / i f = -fNextPrint sEnd Sub /4=1-1/3+1/5-1/7+.计算的近似值，直到最后一项的绝对值小于10的（-6次方）为止Private Sub Command3_Click()Dim s As Single, i As Single, f As Integer, t As Single s = 0: f = 1: i = 1: t = 1Do While Abs(t) = 0.000001 s = s + t i = i + 2 f = -f t = f / iLoopPrint =; 4 * sEnd Sub百元买百鸡的问题 Private Sub Form_Click() Cls 清除屏幕上的输出信息 Rem (注释) 百元买百鸡的问题 Print 公鸡, 母鸡, 小鸡 For x = 0 To 20 For y = 0 To 33 z = 100 - x y If 5 * x + 3 * y + z / 3 = 100 Then Print x, y, z End If Next y, x End sub 打印输入50100之间所有素数 Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 51 To 100 For j = 2 To i 1 “除了1和i本身” If i Mod j = 0 Then Exit For End If Next j If j = i Then Print i; End IfNextEnd sub用ifthenelse结构和select case 结构编写程序，要求随着不断单击窗体，窗体的标题依次显示为北京市，上海市，天津市，河北省。方法一 Private Sub Form_Click() Static index As Integer index = index + 1 If index = 1 Then Form1 .Caption = 北京市 ElseIf index = 2 Then Form1 .Caption = 上海市 ElseIf index = 3 Then Form1 .Caption = 天津市 ElseIf index = 4 Then Form1 .Caption = 河北省 index = 0 End If End Sub 用ifthenelse结构和select case 结构编写程序，要求随着不断单击窗体，窗体的标题依次显示为北京市，上海市，天津市，河北省。方法二Private Sub Form_Click()Static index As Integerindex = index + 1Select Case index Case 1 Form1 .Caption = 北京市 Case 2 Form1 .Caption = 上海市 Case 3 Form1 .Caption = 天津市” Case 4 Form1 .Caption = 河北省” index = 0 End Select End Sub1+（1+2）+(1+2+3)+(1+2+3+.+n) Private Sub Command1_Click()Dim s As Single, n As Integer, i As Integer, t As Integers = 0t = 0n = InputBox(请输入项数n)For i = 1 To n t = t + i s = s + tNextPrint sEnd Sub 下面程序是输入任意长度的字符串，要求将字符串顺序倒置，例如，将输入的“ASDFGHJKL”变换为“LKJHGFDSA”。阅读程序并填空。 Private Sub command1_Cliek() Dim t$, i%, c$, n% t = InputBox$(输入字符串) Print t n=len(t) For i=1 To int(n/2) c = Mid(t, i, 1) mid(t,i,1)=Mid(t,n-i+1,1) Mid(t,n-i+1,1)=c Next i Print tEnd Sub以下程序用于求从100-1000之间所有3的倍数的数之和，当和大于3000时，停止计算并输出和。Private Sub Command1_Click() Dim i As Integer Dim sum As Integer For i = 100 To 1000 If i mod 3=0 Then sum = sum + i If sum 3000 Then exit for End If Next i Print i, sum End Sub七。计算sum=1+3+5+.+99Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 1 To 100 Step 2sum = sum + iNexttext1.Text = sumEnd Sub该程序求S=a+aa+aaa+.+aaaa.aaa的值，其中a和n的值由用户自己输入。 例如，当a=3，n=4时,s3十33十333十3333。补充程序。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 n t = t + a * 10 (i - 1) s = s+t Next i Print a, n,sEnd Sub随即生成一个一位数字的3*5的矩阵Private Sub Command1_Click() a(i, j) = Int(Rnd * 10) Print a(i, j); Next PrintNextEnd Sub生成8*8的矩阵，对角线是1，其他是0Dim a(1 To 8, 1 To 8) As IntegerDim i As Integer, j As Integer For i = 1 To 8 For i = 1 To 8 For j = 1 To 8 For j = 1 To 8 a(i, j) = 0 Print a(i, j); If i = j Or i + j = 9 Then Next a(i, j) = 1 Print End If Next Next Next End Sub输出5行5列各元素都是1的矩阵Private Sub Command1_Click()Dim a(1 To 5, 1 To 5) As Integer For i = 1 To 5 For j = 1 To 5 （5换成i的时候为下三角矩阵） a(i, j) = 1 Print a(i, j); Next Print NextEnd Sub随即产生一位数字的两个4行5列的矩阵阿a和b,相加结果存入C矩阵中Private Sub Command3_Click()Dim a(1 To 4, 1 To 5) As IntegerDim b(1 To 4, 1 To 5) As IntegerDim c(1 To 4, 1 To 5) As Integer For i = 1 To 4 For i = 1 To 4 For j = 1 To 5 For j = 1 To 5 a(i, j) = Int(Rnd * 10) b(i, j) = Int(Rnd * 10) Print a(i, j); Print b(i, j); Next Next Print Print Next Next For i = 1 To 4 For j = 1 To 5 c(i, j) = a(i, j) + b(i, j) Print c(i, j); Next Print Next（9）输入三个数a,b,c,编写程序使得a=b= b Thenm = a: a = b: b = mEnd IfIf a = c Thenn = a: a = c: c = nEnd IfIf b = c Thenp = b: b = c: c = pEnd IfPrint a= & a; b= & b; c= & cEnd Sub三。编写一个函数，求两个数的最小数Private Sub Form_Load()Dim a%, b%a = Val(InputBox(a=)b = Val(InputBox(b=)If a b ThenPrint abElsePrint a= 0.0001m = m * pp = p + 1n = -ns = s + n / mLoops = Format(s, 0.000000)Print sEnd Sub（4）随机输出一个小写字母Private Sub Command1_Click()Dim a As Stringa = Chr(Int(97 + 26 * Rnd)print (a)End Sub随机输出一个大写字母Private Sub Command1_Click()Dim a As Stringa = Chr(Int(65+26*rnd)Print (a)End Sub圆的周长，圆的面积，圆球体积，圆柱体积，圆球表面积Private Sub Command1_Click()Dim r As Integer, c As Integer, area As Integer, v1 As Integer, v2 As Integer, n As Integerr = InputBox(输入r的值)h = InputBox(输入h的值)c = 3.14159 * rarea = 3.14159 * r 2v1 = 3 / 4 * 3.14159 * r 3v2 = 3.14159 * r 2 * hn = 4 * 3.14159 * rText1.Text = 圆的周长是： + Format(s)Text2.Text = 圆的面积是： + Format(area)Text3.Text = 圆球体积是： + Format(v1)Text4.Text = 圆柱体积是： + Format(v2)Text5.Text = 圆球表面积是： + Format(n)End Sub在窗体上水平输出随机产生的10个两位数的随 1！+2!+3!+.+10! Private Sub Command1_Click()机数，并在下一行输出最大值 Dim s As Single, i As Integer, t As Single Private Sub Command1_Click() s = 0 Dim x As Integer, max As Integer t = 1 max = 0 For i = 1 To 10 For i = 1 To 10 t = t * i x = 10 + Int(Rnd * 90) s = s + t Print x; Next If x max Then Print s max = x End Sub End If Next Print Print 最大值是:; maxEnd Sub（5）定义一个下标上界为10的整形数组，并用随机函数为其赋值（值处于0,100之间），计算数组中所有偶数的和Private Sub Command1_Click()Dim a%(10)Dim i%, s%For i = 0 To 10a(i) = 101 * Rnd()NextFor i = 0 To 10If a(i) Mod 2 = 0 Thens = s + a(i)End IfNextPrint 所有偶数和为：; sEnd Sub (7)用inputbox输入一个年份是否是闰年，若是输出“Yes”若不是输出“No”Private Sub Command1_Click()Dim a As Integera = InputBox(请输入年份)If a Mod 400 = 0 Or a Mod 4 = 0 And a Mod 100 0 ThenMsgBox (Yes)ElseMsgBox (No)End IfEnd Sub（8）输入三个数a,b,c判断是否能够成三角形，若能计算其面积并用msgbox 输出；若不能用msgbox输出“不能构成三角形”Private Sub Command1_Click()Dim a!, b!, c!a = InputBox(a=)b = InputBox(b=)c = InputBox(c=)If a + b c And b + c a And a + c b Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c)MsgBox (s)ElseMsgBox (不能构成三角形)End IfEnd Sub（10）输入一个四位数，分别输出它的个位、十位、百位、千位数字。Private Sub Command1_Click()Dim a%,