VB6.0课后题及常见操作题代码

第四章

1、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过inputbox 函数输入数据，在窗体上显示和及平均值。

Dim a as single

For i=1 to 4

a=inputbox（“请输入一个数：”，“数据输入”）

sum=sum+a

n=n+1

avg=sum/n

next i

print “和是：”,sum

print “平均值是：”，avg

2、编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。

Dim a as variant

Fontsize=20

a=inputbox（“请输入姓名：”，“数据输入”）

print “姓名：”；a

a=inputbox（“请输入年龄：”，“数据输入”）

print “年龄：”；a

a=inputbox（“请输入通信地址：”，“数据输入”）

print “通信地址：”；a

a=inputbox（“请输入邮政编码：”，“数据输入”）

print “邮政编码：”；a

a=inputbox（“请输入电话：”，“数据输入”）

print “电话：”；a

3．a=5，b=2.5，c=7.8，编程序计算：

y=（πab）/（a+bc）

程序：

Dim a as single，b as single，c as single

a=5

b=2.5

c=7.8

pi=3.14

y=（pi*a*b）/（a+b*c）

print “结果是：”;y

4、输入以秒为单位表示的时间，编写程序，将其转换为几日几时几秒。

Dim a as long，d as integer ，h as integer，s as integer

a=inputbox（“请输入秒数：”，“数据输入”）

d=int（a/86400）

h=int（（a-d*86400）/3600）

s=a-d*86400-h*3600

print d；“日”；h；“时”；s；“秒”

5、自由落体位移公式为：s=gt2/2+v0t

其中v0为初始速度，g为重力加速度，t为经历的时间，编写程序，求位移量s。设

v0=4.8m/s，t=0.5s，g=9.81m/s2，在程序中把g定义为符号常量，用inputbox函数输入v0和t两个变量的值。

Dim v as single，t as single，s as single

g=9.81

v= inputbox（“请输入初始速度：”，“数据输入”）

v=val（v）

t=inputbox（“请输入经历的时间：”，“数据输入”）

t=val（t）

s=g*t*t/2+v*t

print “位移量是：”;s

6．编程计算并输出S的值:s=2+4+6+8+…+100

dim i,s as integer

s=0

for i=2 to 100 step 2

s=s+i

next

print s

7、给定三角形的3条边长，计算三角形的面积。编写程序：首先判断给出的3条边能否构成三角形，如可以构成，则计算并输出三角形的面积，否则要求重新输入。当输入-1时结束程序。

Dim a as single；b as single；c as single

Start:

a = inputbox(“请输入第一条边长-1结束：”,”数据输入”)

a=val（a）

if a=-1 then

end

end if

b=inputbox（“请输入第二条边长”，“数据输入”）

b=val（b）

c=inputbox（“请输入第三条边长”，“数据输入”）

c=val（c）

if a+b<=c or a+c<=b or b+c<=a then

msgbox（“您输入的三条边长不能构成三角形，请重新输入！”）

goto start

else

l=（a+b+c）/2

s=sqr（l*（l-a）*（l-b）*（l-c））

end if

print “三角形的面积为：”；s

8、税务部门征收所得税，规定如下：

（1）收入在200元以内，免征

（2）收入在200-400元内，超过200元的部分纳税3%

（3）收入超过400元的部分，纳税4%

（4）当收入达5000元或超过时，将4%税金改为5%

编写程序实现上述操作。

Dim x as single，y as single

x=inputbox（“请输入收入！”，“数据输入”）

x=val（x）

if x<=200 then

y=0

elseif x>200 and x<400 then

y=(x-200)*0.03

elseif x>=400 and x<5000 then

y=(x-400)*0.04+200*0.03

elseif x>=5000 then

y=(x-400)*0.05+200*0.03

end if

print “需要纳税的金额为：”;y

9、假定有一下每周工作安排：

星期一、三：讲计算机课

星期二、四：讲程序设计课

星期五：进修英语

星期六：政治学习

星期日：休息

试编写一个程序，对上述工作日程进行检索。程序运行后，要求输入一周里的某一天，程序将输出这一天的工作安排。在输入时用0-6分别代表星期日到星期六，如果输入0-6

之外的数，则程序结束运行。

Dim x as integer

x=inputbox（“请输入一个整数进行检索：”，“数据输入”）

select case x

case 0

y=“休息”

case 1

y=“讲计算机课”

case 2

y=“讲程序设计课”

case 3

y=“将计算机课”

case 4

y=“将程序设计课”

case 5

y=“进修英语”

case 6

y=“政治学习”

case else

end

end select

print y

10。vb数字金字塔1 121 12321一直到9

Private Sub Form_Click()

Dim a(1 To 9) As Integer

For j = 1 To 9

a(j) = j

Next j

For i = 1 To 9

Print Tab(30 - i * 3);

For j = 1 To 2 * i - 1

If j > i Then

Print a(2 * i - j);

Else

Print a(j);

End If

Next j

Next i

End Sub

11．勾股定理中三个数的关系是a*a+b*b=c*c。编写程序，输出30以内满足上述关系的整数组合。例如3，4，5就是一个满足要求的整数组合

Private Sub Command1_Click()

Dim Max As Integer, I As Integer, J As Integer, K

Max = 30

For I = 3 To Max - 2

For J = I + 1 To Max - 1

K = Sqr(I ^ 2 + J ^ 2)

If K = Int(K) And K <= Max Then Print I, J, K

Next

Next

End Sub

12．如果一个数的因子之和等于这个数的本身，则称这样的数为“完全数”。例如，整数28的因子为1，2，4，7，14，其和1+2+4+7+14=28，因此28是一个完全数，编写一个程序，从键盘上输入整数M和N，求出M和N之间的所有的完全数

form load()

'int i,j,m,n,sum

m =inputbox("输入最小正整数")

n =inputbox ("输入最大正整数")

for j=m to n

sum=0

for i=1 to j

if (j mod i=0) and (i <>j ) then sum=sum i

next

if j=sum then print sum & " 是完全数"

next

print "查找完毕"

beep

end sub

13．从键盘上输入一个学生的学号和考试成绩，然后输出该学生的学号和考试成绩，并根据成绩按下面的规定输出对该学生的评语：

成绩 80～100 60～79 50～59 40～49 0～39

评语 very good good fair poor fail

(所需控件：三个标签,两个文本框，一个命令按扭)

Private Sub Command1_Click()

Dim s$, a$, mark!

s = Text1.Text

mark = Val(Text2.Text)

Select Case mark

Case Is < 40

a = "fail"

Case Is < 50

a = "poor"

Case Is < 60

a = "fair"

Case Is < 80

a = "good"

Case 80 To 100

a = "very good"

End Select

Print "学号：" & s & vbCrLf & "成绩评定为" & a

End Sub

14．一个两位的正整数，如将它的个位数字与十位数字对调，则产生另一个正整数，我们把后者叫做前者的对调数。如给定一个两位的正整数，请找到另一个两位的正整数，值得这两个整数之和等于他们各自的对调数之和，例如，12+32=21+23.编写程序，输入一个两位的正整数，把具有这种特征的每一对两位正整数都找出来

Private Sub Command1_Click()

Dim a As String

Dim i As Long

a = InputBox("输入一个两位的正整数:")

If Val(a) <= 0 Or Val(a) >= 100 Then

MsgBox "输入不合法"

Exit Sub

End If

For i = 1 To 99

If Val(a) + i = Val(getDuiTiao(a)) + getDuiTiao(CStr(i)) Then

Debug.Print i

End If

Next

End Sub

Private Function getDuiTiao(ByVal vStr As String) As String

Dim strTmp As String

strTmp = Right(CStr(vStr), 1) & Left(CStr(vStr), 1)

getDuiTiao = strTmp

End Function

|

14、编写程序，打印出“杨辉三角”图形。

For i=1 to 9

Print tab（30-i*3）;

For j = 1 to i

Print j;

Next j

For j= i-1 to 1 step -1

Print j;

Next j

Print

Next i

第五章

1.从键盘上输入20个整数，并放入一个一维数组中，然后将其前10个元素与后10个元素对换，即：第1个元素与第20个元素互换，第2个元素与第19个元素互换……第10个元素与第11个元素互换。分别输出数组原来各元素的值和对换后各元素的值。

Option Base 1

Private Sub Form_Click()

arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20)

Print "原来数组："

For i = 1 To 20

Print arr(i);

Next i

Print

For i = 1 To 10

For j = 11 To 20

t = arr(i)

arr(i) = arr(j)

arr(j) = t

Next j

Next i

Print "对换后数组："

For i = 1 To 20

Print arr(i);

Next i

End Sub

2．VB编写程序，建立并输出一个10*10的矩阵，该矩阵两条对角线元素为1，其余元素均为0

Private Sub Form_Click()

Dim a(1 To 10, 1 To 10) As Integer

For i = 1 To 10

For j = 1 To 10

a(i, j) = 0

If i = j Then a(i, j) = 1

If i + j = 11 Then a(i, j) = 1

Print a(i, j); " ";

Next j

Print

Next i

End Sub

3.VB设计：有个n*m的矩阵，各元素值由键盘输入，求全部元素的平均值，并输出高于平均值的元素及它们的行列号

Private Sub Form_Click()

Dim a!(1 to n, 1 to m)

Dim aver!

Dim sum!

For i = 0 To n

For j = 0 To m

a(i, j) = InputBox("请输入第" & i + 1 & "行" & "第" & j + 1 & "列的数字") sum = sum + a(i, j)

Next j

Next i

aver = sum /nm

Print "平均数为" & aver

Print "大于平均值的数有："

For i = 0 To n

For j = 0 To m

If a(i, j) > aver Then

Print a(i, j), "第" & i + 1 & "行" & "第" & j + 1 & "列"

End If

Next j

Next i

End Sub

6．随机生成两个3*3的矩阵A和B，将矩阵A和B相加存放在矩阵C中，单击窗体时在3个Picture图形框中分别输出这三个矩阵

private sub form_click()

dim a(2,2),b(2,2),c(2,2),i,j

randomize

for i=0 to 2

for j=0 to 2

a(i,j)=int(rnd*10)

picture1.print a(i,j),

b(i,j)=int(rnd*10)

picture2.print b(i,j),

c(i,j)=a(i,j)+b(i,j)

picture3.print c(i,j),

next

picture1.print

picture2.print

picture3.print

next

end sub

7．设某班共10名学生，为了评定某门课程的奖学金，按规定超过全班平均成绩10%者发给一等奖，超过全班成绩5%者发个二等奖。输出应获奖学金的学生名单（包括名字，学好，成绩，奖学金

type strc

no as integer '定义学号为数值型

xm as string

cj as single ‘定义成绩为单精度型

jl as string ‘定义奖学金类型

end type

dim stu(1 to 10) as strc，ave as single

for i= 1 to 10

stu(i).no=i

stu(i).xm=val(inputbox("请输入" & i “个学生的姓名 "))

stu(i).cj=val(inputbox("请输入" & i “个学生的成绩 "))

ave=ave+stu(i).cj

stu(i).jl=""

next i

ave=ave/10 : ave2=ave *1.1 : ave3 =ave3*1.05

for i= 1 to 10

if stu(i).cj >=ave2 then

stu(i).jl="一等奖学金"

elseif stu(i).cj >=ave3 then

stu(i).jl="二等奖学金"

else

stu(i).jl="未获奖"

endif

print stu(i).no & stu(i).xm & stu(i).cj & stu(i).jl

next i

9.设有如下两组数据。

（1）2，8，7，6，4，28，70，25

（2）79，27，32，41，57，66，

编写一个程序，把上面两组数据分别读入两个数组中，然后把两个数组中对应下标的元素相加，即2+79，8+27，……，25+66，并把相应的结果放入第三个数组中，最后输出第三个数组的值。

Option Base 1

Private Sub Form_Click()

Dim A, B, C(8) As Integer

A = Array(2, 8, 7, 6, 4, 28, 70, 25)

B = Array(79, 27, 32, 41, 57, 66)

For i = 1 To 8

C(i) = A(i) + B(i)

Next i

Print "第一个数组为：";

For i = 1 To 8

Print A(i);

Next i

Print

Print "第二个数组为：";

For i = 1 To 6

Print B(i);

Next i

Print

Print "第三个数组为：";

For i = 1 To 8

Print C(i);

Next i

Print

End Sub

10编写程序，把下面的数据输入到一个二维数组中：

25 36 78 13

12 26 88 93

75 18 22 32

56 44 36 58

然后执行以下操作：

1）输出矩阵两个对角线上的数；

2）分别输出各行和各列的和。

3）交换第一行和第三行的位置。

4）交换第二行和第四行的位置。

5）输出处理后的数组。

Dim a(4, 4), b(4, 4) As Integer

For i = 0 To 3

For j = 0 To 3

a(i, j) = Val(InputBox("请输入第" & i + 1 & "行第" & j + 1 & "列的数")) Next j

Next i

Print "原始数据"

For i = 0 To 3

Print a(i, 0) & " " & a(i, 1) & " " & a(i, 2) & " " & a(i, 3) & "和" & Val(a(i, 0) + a(i, 1) + a(i, 2) + a(i, 3))

Next i

Print " 和和和和"

For j = 0 To 3

Print " "; Val(a(0, j) + a(1, j) + a(2, j) + a(3, j));

Next j

Print

'对角线

For i = 0 To 3

Print Tab(i * 2); a(i, i)

Next i

Print

For i = 0 To 3

Print Tab((3 - i) * 2); a(i, 3 - i)

Next i

Print

'调整

For j = 0 To 3

b(2, j) = a(0, j) '第一行和第三行

b(0, j) = a(2, j)

b(1, j) = a(3, j)

b(3, j) = a(1, j)

Next j

Print "调整后数据"

For i = 0 To 3

Print b(i, 0) & " " & b(i, 1) & " " & b(i, 2) & " " & b(i, 3)

Next i

11．设有如下人员名册：

姓名性别年龄文化程度籍贯

张得功男 24 大学本科河北

李得胜男 30 高中毕业北京

王丽女 25 研究生山东

……

试编写一个程序，对该名册进行检索。程序运行后，只要在键盘上输入一个人名，就可以在屏幕上显示出这个人的情况。

例如，输入“张得功”，则显示：张得功男 24 大学本科河北

要求：

（1）使用动态数组，输入的人数可以根据实际情况改变。

（2）当检索名册中不存在的人名时，输出相应的信息。

（3）每次检索结束后，询问是否继续检索，根据输入的信息确定是否结束程序。

dim arr() '//定义数组

Adodc1.RecordSource = "select * from 数据表 where 1=1 and 姓名=" & text1.text Adodc1.Refresh

i_count = Adodc1.Recordset.RecordCount

'/////取出数据库中满足条件的数据记录，并且计算记录条数

if i_count=0 then

msgbox "查找人员不存在",64,"提示信息"

else

redim arr(i_count) '//重新定义数组，使符合动态数目

............'//这里对取得数据进行显示处理

end if

Dim Msg, Response

Msg = "确认退出?"

Response = MsgBox(Msg, vbQuestion + vbYesNo, "提示")

Select Case Response

Case vbYes

'//退出

Case vbNo

'//继续

End Select

12.某单位开运动会，共有10人参加男子100米短跑，运动员和成绩如下：

207号 14.5秒 077号 15.1秒

156号 14.2秒 231号 14.7秒

453号 15.2秒 276号 13.9秒

096号 15.7秒 122号 13.7秒

339号 14.9秒 302号 14.5秒

编写程序，按成绩排出名次，并按如下格式输出：

名次运动员成绩

1 ...... ....

2 ...... ....

3 ...... ....

.. ...... ....

10 ...... ....

在Form1中加入一个Command控件，粘贴入以下代码：

Dim i As Integer, j As Integer

Dim n As Integer, m As Integer

Dim w(9, 1) As Double

Private Sub Command1_Click()

Dim a1 As Double, a2 As Double

a1 = 0

a2 = 0

For i = 1 To 10

For j = 0 To 9 - i

If w(j, 1) > w(j + 1, 1) Then

a1 = w(j, 0)

a2 = w(j, 1)

w(j, 0) = w(j + 1, 0)

w(j, 1) = w(j + 1, 1)

w(j + 1, 0) = a1

w(j + 1, 1) = a2

End If

Next j

Next i

For i = 0 To 9

Print w(i, 0)

Next

Print "名次" & " 运动员" & " 成绩"

For i = 0 To 9

Print " " & i + 1 & " " & Format(w(i, 0), "000") & " " & w(i, 1) Next

End Sub

Private Sub Form_Load()

For i = 0 To 9

w(i, 0) = InputBox("请输入第" & i + 1 & "运动员的编号")

w(i, 1) = InputBox("请输入第" & i + 1 & "运动员的成绩")

Next

Command1.Caption = "名次排列"

End Sub

13.杨辉三角形每一行是(x+y)的n次方的展开式的各项系数。例如第一行系数是1；第二行1，1；第三行1，2，1……请编写程序输出n=10的杨辉三角形

Option Base 1

Private Sub Command1_Click()

Dim a() As Double

m = InputBox("请输入行数 ", "输入", 0)

ReDim a(m, m) As Double

For i = 1 To m

a(i, 1) = 1

For j = 1 To m

a(j, j) = 1

If j >= 2 And j <= i - 1 Then

a(i, j) = a(i - 1, j - 1) + a(i - 1, j)

End If

Next j

Next i

For i = 1 To m

For j = 1 To m

If i >= j Then

Print Tab(j * 4); Str(a(i, j));

End If

Next j

Print

Next i

End Sub

第六章

1．编写一个求3个数中最大值和最小值的VB程序,然后用这个过程分别求5个数和7个数的最大最小值.

dim ss

num=val(inputbox ("输入要求的数的个数"))

dim a(1 to num)

for i=1 to num

a(i)=texti.text

next

for m=num to 2

for n=1 to m-1

if a(n)>=a(n+1) then

ss=a(n+1)

a(n+1)=a(n)

a(n)=ss

end if

next

print "MAX:" & a(num)

print "MIN:" & a(1)

2.编写程序，求S=A!+B!+C!,阶乘的计算分别用Sub过程和Function过程两种方法来实现

方法一：（以前方法）

Option Base 1

Private Sub form_Click()

Dim a(), s()

Dim sum#, str$

Dim m%

m = Val(InputBox("输入要计算几个阶乘的数")): If m <= 0 Then MsgBox "请输入>=1的正数": Exit Sub

ReDim a(1 To m)

ReDim s(1 To m)

For i = 1 To m

a(i) = Val(InputBox("输入第" & i & "个需要计算阶乘的数")): If n < 0 Then Exit For

Next i

For i = 1 To m

s(i) = 1

For j = 1 To a(i)

s(i) = s(i) * j

Next j

Print a(i); "的阶乘数为："; s(i)

Next i

For i = 1 To m

sum = s(i) + sum

Next i

For i = 1 To m

If i = m Then

str = str & a(i) & "!"

Else

str = str & a(i) & "!" & "+"

End If

Next i

Print Tab(3); "所求的"; m; "个数的阶乘和为："; str; "="; sum

End Sub

方法二：（sub过程1）

Sub sub1(x As Long)

Dim m%, i%

m = 1

For i = 1 To x

m = m * i

Next

x = m

End Sub

Private Sub Form_Click()

Dim a&, b&, c&, i%, s#

a = InputBox("1")

b = InputBox("2")

c = InputBox("3")

sub1 a

sub1 b

sub1 c

s = a + b + c

Print s

End Sub

3.编写一个过程，以整形作为形参。当该参数为奇数时输出false,当该参数为偶数时输出true

function getFT(val)

if(val mod 2=0) then

getFT="true"

else

getFT="false"

end if

end function

4.设a为一个整数,如果能使a=xxa成立,则称a为"守形数".例如5=25,25=625,则5和25都是守形数.试编写一个Function过程Automorphic,其形参为一正整数,判断其是否为守形数,然后用该过程查找1到1000内的所有守形数.

法一函数

Private Sub Cd1_Click()

Dim a As Long

For a = 1 To 1000

Y = SS(a)

If Y <> 0 Then Print a; "—"; Y

Next a

End Sub

Function SS(X As Long)

X1 = Trim(Str(X * X))

X2 = Trim(Str(X))

L = Len(X2)

If Right(X1, L) = X2 Then SS = X * X

End Function

法二子程序

Private Sub Cd2_Click()

Dim a As Long

For a = 1 To 1000

Call SX(a)

Next a

End Sub

Sub SX(X As Long)

X1 = Trim(Str(X * X))

X2 = Trim(Str(X))

L = Len(X2)

If Right(X1, L) = X2 Then Print X; "—"; X * X

End Sub

5.编写求解一元二次vb方程ax2+bx+c=0的过程，要求a，b，c及解x1，x2都以参数传递的方式与主程序交换数据，输入a，b，c和输出x1，x2的操作放在主程序中Private Sub Command1_Click()

Dim a As Single

Dim b As Single

Dim c As Single

Dim x1 As Single

Dim x2 As Single

Dim f As Double

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

d = b ^ 2 - 4 * a * c

If a = 0 Then

MsgBox ("二次相系数不得为零")

ElseIf d < 0 Then

MsgBox ("无解")

Else

f = Sqr(d)

x1 = (f - b) / (2 * a)

x2 = (-b - f) / (2 * a)

Text4.Text = x1

Text5.Text = x2

End If

End Sub

6.编写任意数的立方的函数，然后求1-20的立方

Private Sub Command1_Click()

Dim I As Integer

For I = 1 To 20

Print I & "的3次方=" & xxx(I)Next

End Sub

Function xxx(I As Integer) As Double

xxx = I * I * I

End Function

7.用VB编写一个输入0--6数字,显示汉字对照输出星期的Function过程

建立一个form1

Option Explicit

Dim A As Byte, B As String

Private Sub Form_Load()

Form1.AutoRedraw = True

Do

B = InputBox("输入数字(0-6):", "输入", 0)

If Val(B) > -1 And Val(B) < 7 Or Len(B) = 1 Then Exit Do Loop

A = Val(B)

Select Case A

Case 0

B = "星期日"

Case 1

B = "星期一"

Case 2

B = "星期二"

Case 3

B = "星期三"

Case 4

B = "星期四"

Case 5

B = "星期五"

Case 6

B = "星期六"

End Select

Print B

End Sub

输入一个正整数编程判断奇数还是偶数Private Sub Command1_Click()

Dim a As String

Dim n As Long

a = InputBox("输入一个正整数", "输入") n = CLng(a)

If n Mod 2 = 0 Then

Print n; "是偶数"

Else

Print n; "是奇数"

End If

End Sub

VB输入一个正整数编程判断奇数还是偶数Private Sub Command1_Click()

Dim a As String

Dim n As Long

a = InputBox("输入一个正整数", "输入") n = CLng(a)

If n Mod 2 = 0 Then

Print n; "是偶数"

Else

Print n; "是奇数"

End If

End Sub

计算1+2.。。。+100

Private Sub Command1_Click()

Sum = 0

For i = 1 To 100

Sum = Sum + i

Next i

Print "1+2+3+……+100="; Sum

End Sub

编写每周工作安排。

Private Sub Command4_Click()

Dim x%

x = InputBox("请输入星期（0-6）")

Select Case x

Case 1, 3

Print "今天是星期"; x, "讲计算机课"

Case 2, 4

Print "今天是星期"; x, "讲程序设计课"

Case 5

Print "今天是星期"; x, "进修英语"

Case 6

Print "今天是星期"; x, "政治学习"

Case 0

Print "今天是星期日", "休息"

Case Else

End

End Select

End Sub

输入10个学生的成绩，找出最高分，并求最高分是第几位同学。Dim b(10) As Integer

Private Sub Command1_Click()

Const n = 10

Max = 0: k = 0

For i = 1 To n

b(i) = InputBox("请输入第" & i & "个同学的成绩", 求最高分) If b(i) > Max Then

Max = b(i)

End If

Next i

Print "最高分是第" & i & "个同学,其成绩是：" & Max

End Sub

7二维数组的输出。

Dim s(3, 2) As Integer

Private Sub Form_Click()

For i = 0 To 3

Print Tab(5);

For j = 0 To 2

s(i, j) = i * 2 + j + 1

Print s(i, j);

Next j

Print

Next i

End Sub

比较5个数的大小。

Dim S(5) As Integer

Private Sub Form_Click()

Const n = 5

For i = 1 To n

S(i) = InputBox("请输入第" & i & "个数", 数据排序)

Next i

For i = 1 To n - 1

Min = i

For j = i + 1 To n

If S(j) < S(Min) Then Min = j

Next j

t = S(i)

S(i) = S(Min)

Next i

For i = 1 To 5

Print S(i)

Next i

End Sub

抽数排大小

Private Sub Command1_Click()

Dim Data() As String, MaxNum As Integer, Temp As Integer, StepVal As Integer, i As Integer, i2 As Integer

Dim TempStr As String

Data() = Split(Text1.Text, ",")

StepVal = UBound(Data()) - 1

For i = 0 To StepVal

For t = 0 To i

If Val(Data(t)) < Val(Data(i + 1)) Then

MaxNum = Data(i + 1)

Data(i + 1) = Data(t) '

Data(t) = MaxNum

End If

Next

Next

For i2 = 0 To UBound(Data())

TempStr = TempStr & IIf(TempStr = "", "", ",") & Data(i2)

Next

Text2.Text = TempStr

MsgBox "Ok!"

End Sub

Private Sub Command2_Click()

Dim Data() As String, MaxNum As Integer, Temp As Integer, StepVal As Integer, i As Integer, i2 As Integer

Data() = Split(Text1.Text, ",")

StepVal = UBound(Data()) - 1

For i = 0 To StepVal

For t = 0 To i

If Val(Data(t)) < Val(Data(i + 1)) Then

MaxNum = Data(t)

ElseIf Val(Data(t)) > Val(Data(i + 1)) Then

MaxNum = Data(i + 1)

Data(i + 1) = Data(t)

Data(t) = MaxNum

ElseIf Data(t) = Data(i + 1) Then

End If

Next

Next

Text2.Text = ""

For i2 = 0 To UBound(Data())

Text2.Text = Text2.Text & "," & Data(i2)

Next

MsG.EndTime

End Sub

Private Sub Command3_Click()

Dim i As Integer, s As Integer

s = Val(Text3.Text)

Text1.Text = ""

For i = 0 To s

Text1.Text = Text1.Text & IIf(Text1.Text = "", "", ",") & Int(Rnd * 1000)

Next

End Sub

1、求100以内的素数。

Private Sub Form_Click()