vb习题1文档格式.docx

1、Private Sub Command3_Click（）End2、 选择排序法Option ExplicitOption Base 1Dim a（10） As Integer, t As IntegerDim i As Integer, j As IntegerRandomizeFor i = 1 To 10a（i） = Int（Rnd * 100） + 1Text1 = Text1 & Str（a（i）For i = 1 To 9For j = i + 1 To 10If a（i） a（j） Thent = a（i）a（i） = a（j）a（j） = tNext jText2 = Text2

2、 &3、 冒泡排序法Private Sub Form_Click（）Dim a（5） As Double Dim i, j As Integer 给数组赋值 For i = 1 To 5 temp = InputBox（ 请输入 + Str（i） + 个数字, 输入） If IsNumeric（temp） Then是数字就将数字赋值给数组 a（i） = temp Else不是数字就将数组置0 a（i） = 0 End If Next i排序 For i = 1 To 4 For j = 1 To 5 - i If a（j） a（j + 1） Then temp = a（j） a（j） = a（

3、j + 1） a（j + 1） = temp Next j Print Str（a（1） + + Str（a（2） + + Str（a（3） + + Str（a（4） + + Str（a（5）4、 判断一个数是不是素数Dim i As IntegerDim j As IntegerDim x As Integerx = Val（InputBox（请输入一个自然数：输入提示）For i = 2 To x - 1If x Mod i = 0 Then Exit ForIf i = x Then 此处若i的值变为x则说明所以上面的循环全被执行完Print x &是素数不是素数若ix则说明循环的中途x

4、就能被除尽了5、 求水仙花数Dim i As Integer, a As Integer, b As Integer, c As Integer, st As StringFor a = 1 To 9 For b = 0 To 9 For c = 0 To 9 i = a * 100 + b * 10 + c If i = a 3 + b 3 + c 3 Then st = i & = & a &3 + b & c &3 Print st Next c Next bNext a6、 显示系统时间Private Sub Form_Load（）Dim s As String, n As Integ

5、ern = Weekday（Now, 2）If n = 7 Thens = 日ElseIf n = 6 Then s = 六ElseIf n = 5 Then s = 五ElseIf n = 4 Then s = 四ElseIf n = 3 Then s = 三ElseIf n = 2 Then s = 二 ElseIf n = 1 Then s = 一 Label1.Caption = 今天是 Year（Now） &年 Month（Now） &月 Day（Now） & 日星期 s Label2.Caption = Time（）7、 求三个数的最小公倍数Dim a As Integer, b

6、As IntegerDim l As Long, c As Integera = Text1b = Text2c = Text3l = lcm（lcm（a, b）, c）Text4 = lPrivate Function lcm（ByVal x As Integer, ByVal y As Integer）Dim m As Long, flg As Booleanflg = FalseDo Until flgm = m + xIf m Mod y = 0 Thenflg = TrueLooplcm = mEnd Function8、求三个数的最大公约数Private Function maxg

7、ongyueshu（a, b）Dim min, max, i As LongIf a 20 Then p = p - 20 n = n + a（p） If n max Then max = n w = i Text2 = max Picture1.Print w &- w + 412、求一个随机数组每一行每一列的和 6-5Dim a（5, 5） As Integer For j = 1 To 5 a（i, j） = Int（9 * Rnd） + 1 Picture1.Print a（i, j）; Picture1.Print s = 0 s = s + a（i, j） Str（s） Str（s

8、） & Chr（13） & Chr（10） Picture1.ClsPrivate Sub Command5_Click（）13、统计字母个数 p113Dim st As String, t As IntegerDim a（0 To 25） As IntegerDim i As Integer, js As IntegerDim ch As String * 1, l As Integerst = Text1.Textl = Len（st）For i = 1 To lch = Mid（st, i, 1）If ch = A And ch azFor i = 0 To 25If a（i） 0 Th

9、enjs = js + 1 Chr（i + Asc（） &: Str（a（i） &End ifIf js Mod 5 = 0 Then14、求阶乘 n = InputBox（输入自然数 JieCheng n 1 Then For j = n To 2 Step -1 Print j &* Print 1= Print JieCheng（n）Private Function JieCheng（ByVal i&） As Long JieCheng = i * JieCheng（i - 1） JieCheng = 115、找出最长单词Print longest（Text1）; 在窗体上打印出最长的单

10、词Function longest（S As String） As StringDim p（） As String, n As IntegerS = Replace（S, vbCrLf, p = Split（S, For i = 0 To UBound（p）If Len（p（i） Len（p（n） Then n = iNextlongest = p（n）16.qiuzhishuyinziDim a As IntegerDim k As IntegerDim f As BooleanFor i = 1 To a If a Mod i = 0 Then 判断为因子后执行判断素数 For k = 2 To i - 1 If i Mod k = 0 Then 判断不是素数后 Exit For 结束当前循环 Next If Not f Then Print Str（i） 否则输出该素数因子 f = False