程序设计 - 图文

程序设计 1、'【程序设计】

'-------------------------------------------------

'题目：(事件)单击窗体。

' (响应)求1!+2!+3!+4!+5!并将结果输出到窗体上。 ' 结果存入变量S中

'------------------------------------------------- Private Sub Form_Click() Dim s As Integer s = 0

'********* Program ************ Dim i,j As Integer j = 1

For i = 1 To 5 J = j * i

S = s + j Next i Print s

'********** End ***************** YZJ (s) End Sub

2、'【程序设计】

'-------------------------------------------------

'题目：判断一个数是否是素数。

'------------------------------------------------- Private Function Prime(ByVal m As Integer) As Boolean '********** Program ********* Dim i%

For i = 2 to m-1

If (m mod i) = 0 then Prime = false End if Exit for Next i

Prime = true

'********** End ************* End Function

Private Sub Form_Load() Dim m, i As Integer Show

m = Val(InputBox(\请输入一个数\ If Prime(m) = True Then Print \该数是素数\ Else

Print \该数不是素数\ End If WWJT

End Sub

3、'【程序设计】

'-------------------------------------------------

'题目：编写函数fun，函数的功能是：求1~1000以内能 '同时被m、n整除的数的总和并显示。如： 'm为15，n为11时，显示\'存储总和的变量必须为Sum '要求使用For语句来实现。

'------------------------------------------------- '注意： 请在指定的事件内编写代码 ' 代码只能写在两行标识之间 ' 不得修改已有代码

'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 '-------------------------------------------------

Private Function fun(m As Integer, n As Integer) As Long Dim Sum As Long

'**********Program********** Dim i% Sum = 0

For i = 1 to 1000

If i mod m = 0 and i mod n =0 then Sum = sum + i End if Next i

'********** End ********** End Function

Private Sub Form_Load() Show

Print fun(15, 11) NJIT_VB End Sub(

4、事件)单击窗体。

' (响应)生成一个一维数组(10个数组元素依次为： ' 15、23、72、43、96、23、3、65、88、17)， ' 写程序求出这个数组中的最大值、最小值和平 ' 均值，并输出在窗体上。

' 将最大值，最小值，平均值分别存入变量 ' Max,Min,Aver中

'------------------------------------------------- Private Sub Form_Click()

Dim max, min, aver As Integer

'*********** Program ********** Dim a(9) as integer Dim i,s as integer A(0) = 15 A(1)=23 A(2)=72 A(3)=43 A(4)=96 A(5)=23 A(6）=3 A(7)=65 A(8)=88 A(9)=17 Max=a(0) Min=a(0) S=0

For i = 0 to 9

If a(i) >max then Max = a(i） End if

If a(i)

S =s + a(i) Next i

Aver= int(s/10)

Print (Cstr(max)） Print (Cstr(min)） Print (Cstr(aver)）

'********** End ************** Call YZJ(max, min, aver)

End Sub 4、

5、【程序设计】

'-------------------------------------------------

'题目：(事件)双击窗体。

' (响应)写程序解决百钱买百鸡问题：公鸡3元1只， ' 母鸡5元1只，小鸡一元3只，怎样用100元买 ' 100只鸡。要求每类鸡至少买1只。 ' 把每种买法输出到窗体上。 ' 将买法总数存放在变量N中

'------------------------------------------------- Private Sub Form_dblClick() Dim n As Integer n = 0

'******** Program ******* Dim i,j,k As Integer For i = 1 To 20 For j = 1 To 33 For k = 3 To 100

If ((k Mod 3) = 0) And ((i * 5 + j * 3 + k / 3) = 100) And ((i + j + k) = 100) Then

Print (CStr(i)) Print (CStr(j)) Print (CStr(k)) n = n + 1 End If Next k Next j Next i

'************ End ***********

YZJ (n) End Sub

6、'-------------------------------------------------

'【程序设计】

'-------------------------------------------------

'题目：(事件)单击窗体。

' (响应)求1+2+3+??+100的值，并把结果输出在窗体上。 ' 结果存入变量SUM中

'------------------------------------------------- Private Sub Form_Click() Dim sum As Integer

'******* Program ************ Dim i%

For i = 1 to 100 Sum =sum + i Next i

Print sum

'******** End **************

YZJ (sum) End Sub

7、'题目：(事件)单击窗体。

' (响应)输出斐波那契数列1,1,2,3,5,8,13...第20个 ' 数的值

' 即 f1=1 (n=1) ' f2=1 (n=2)

' fn=f(n-1)+f(n-2)(n≥3)

' 使用for...next语句完成程序，并将结果 ' 存入变量sum中

'------------------------------------------------- Private Sub Form_Click()

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

**************** Program **************

dim i as integer for i=1 to 9 f1=f1+f2 f2=f2+f1 next i print f2 sum=f2

'*************** End ************************* Call YZJ(sum) End Sub

8、'题目：(事件)双击窗体。

' (响应)求s=1+1×2+1×2×3+?+1×2×3×?×10， ' 并将结果存到变量S中

'------------------------------------------------- Private Sub Form_dblClick() Dim s As Long

'******** Program ******* Dim i, j As Integer Dim k As Long k = 1 s = 0

For i = 1 To 10 For j = 1 To i k = k * j Next j

s = s + k k = 1 Next i

Print (CStr(s))

'********* End ************ YZJ (s) End Sub

9、'题目：有一根长度为321米的钢材，要将它截取为两种规格的

'短料，两种规格的长度分别为a米、b米。每种至少一段。 '编写函数fun，函数的功能是:

'求出分割成两种规格后剩余残料r最少的值，并显示。如： 'a为51、b为61时，则显示\

'要求使用For语句来实现。

'------------------------------------------------- '注意： 请在指定的事件内编写代码 ' 代码只能写在两行标识之间 ' 不得修改已有代码

'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 '-------------------------------------------------

Private Function fun(a As Integer, b As Integer) As String '**********Program********** Dim r!, t! , m% , n% r = 321

For m = 2 To (321 - a) \\ b

For n = 2 To (321 - b * m) \\ a t = 321 - n * b - m * a

If t >= 0 And t < r Then r = t End If Next m Next n fun = r

'********** End ********** End Function

Private Sub Form_Load() Show

Print fun(51, 61) NJIT_VB End Sub

10、'题目：(事件)单击窗体。

' (响应)编写程序求10×11×12+11×12×13+?+15×16×17的结果， ' 并将结果输出到窗体上。 ' 将结果存入变量M中

'------------------------------------------------- Private Sub Form_Click() Dim m As Long

'******** Program ************* Dim i, j As Integer

Dim s As Long

For i = 10 To 15 s = 1

For j = i To i + 2 s = s * j Next j

m = m + s Next i

Print (CStr(m))

'************ End *********** YZJ (m) End Sub

11、'题目：编写函数fun，函数的功能是：求一个

' 四位数的各位数字的立方和

'------------------------------------------------- Private Function fun(n As Integer) As Long

'********** Program *********

Dim d As Integer, k As Integer, s As Integer While n > 0

d = n Mod 10

s = s + d * d * d n = n / 10 Wend fun = s

'********** End *************

End Function

Private Sub Form_Load()

Show

Print fun(1112) WWJT

End Sub

12、'题目：将一个十进制整数m转换成 →r(2－16)进制字符串。

'方法：将m不断除 r 取余数，直到商为零，以反序得到结果。 ' 下面写出一转换函数，参数idec为十进制数，ibase为要转 ' 换成数的基（如二进制的基是2，八进制的基是8等）， ' 函数输出结果是字符串

'-------------------------------------------------

Private Function TrDec(idec As Integer, ibase As Integer) As String

'********** Program ********* Dim strDecR$, iDecR% strDecR = \

Do While idec <> 0

iDecR = idec Mod ibase If iDecR >= 10 Then

strDecR = Chr$(65 + iDecR - 10) & strDecR Else

strDecR = iDecR & strDecR End If

idec = idec \\ ibase Loop

TrDec = strDecR

'********** End *************

End Function

Private Sub Form_Load() Show

Print TrDec(45, 2) WWJT End Sub

13、'题目： (事件)单击窗体。

' (响应)输出100-200之间所有素数，并将这些数 ' 求和，求和结果存入所给变量SUM中。

'------------------------------------------------- '注意：请在指定的事件内编写代码。

'-------------------------------------------------

'***************** Program ************** For i = 100 To 200 For j = 2 To Sqr(i)

If i Mod j = 0 Then Exit For Next j

If j > Int(Sqr(i)) Then Sum = Sum + i End If Next i

Print Sum

'*************** End *************************

YZJ (Sum) End Sub

14、'题目：求二维数组中最大元素及其所在的行和列

' 并将最大值存入变量Max中，将最大值的行位置存入 ' row中，列位置存入变量column中.

'------------------------------------------------- Private Sub Form_Load() Show

Dim a(2, 3) As Integer

Dim max As Integer, row As Integer, column As Integer a(1, 1) = 34: a(1, 2) = 34: a(1, 3) = 43 a(2, 1) = 34: a(2, 2) = 78: a(2, 3) = 12 '********** Program ********* Dim i As Integer, j As Integer

max = a(1, 1): row = 1: column = 1 For i = 1 To 2 For j = 1 To 3

If a(i, j) > a(row, column) Then

for i = 1 to 10

sum = sum + (-1) ^ (i - 1) /(i*i) next

Print sum

'*************** End ************************* Call YZJ(sum) End Sub

30、(事件)单击窗体。

' (响应)求50以内所有偶数的和，并在窗体上输出出来。 ' 将结果存入变量S中

'------------------------------------------------- Private Sub Form_Click() Dim s As Integer

'******** Program ********* Dim i As Integer For i = 2 To 50

If (i Mod 2) = 0 Then s = s + i End If Next

Print (CStr(s))

'********* End *********** YZJ (s) End Sub

31、编写函数fun，函数的功能是：求从m到n的奇数的乘积并显示，

'如：m为2，n为5时，显示\'存储连乘的乘积的变量必须为Product '要求使用For语句来实现。

'------------------------------------------------- '注意： 请在指定的事件内编写代码 ' 代码只能写在两行标识之间 ' 不得修改已有代码

'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 '-------------------------------------------------

Private Function fun(m As Integer, n As Integer) As Long Dim Product As Double, t As Integer

If m > n Then t = m: m = n: n = t '**********Program********** Product = 1 For i = m To n

If i Mod 2 <> 0 Then Product = Product * i Next i

fun = Product

'********** End ********** End Function

32、编写函数fun，函数的功能是：求1~100以内

'能被m整除或能被n整除的数的总和并显示。如： 'm为15，n为11时，显示\'存储总和的变量必须为Sum '要求使用For语句来实现。

'------------------------------------------------- '注意： 请在指定的事件内编写代码 ' 代码只能写在两行标识之间 ' 不得修改已有代码

'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 '-------------------------------------------------

Private Function fun(m As Integer, n As Integer) As Long Dim Sum As Long

'**********Program********** Sum = 0

For i = 1 To 100

If i Mod m = 0 Or i Mod n = 0 Then Sum = Sum + i End If Next i fun = Sum

'********** End ********** End Function

Private Sub Form_Load() Show

Print fun(15, 11) NJIT_VB End Sub

33、(事件)单击窗体。

' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100， ' 结果输出在窗体上。

'------------------------------------------------- Private Sub Form_Click() Dim s As Single

'************* Program ************** Dim i As Integer s = 0

For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s)

'************* End ************** YZJ (s) End Sub

34、有一根长度为200米的钢材，要将它截取为两种规格的

'短料，两种规格的长度分别为a米、b米。每种至少两段。 '编写函数fun，函数的功能是:

'求出分割成两种规格后剩余残料r最少的值，并显示。如： 'a为31、b为41时，则显示\'要求使用For语句来实现。

'------------------------------------------------- '注意： 请在指定的事件内编写代码 ' 代码只能写在两行标识之间 ' 不得修改已有代码

'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 '-------------------------------------------------

Private Function fun(a As Integer, b As Integer) As String '**********Program********** Dim r!, t! , m% , n% r = 200

For m = 2 To (200 - a) \\ b

For n = 2 To (200 - b * m) \\ a t = 200 - n * b - m * a

If t >= 0 And t < r Then r = t End If Next m Next n

fun = r

'********** End ********** End Function

Private Sub Form_Load() Show

Print fun(31, 41) NJIT_VB End Sub

35、在窗体上添加一个命令按钮和一个Pictrue控件，请

' 编写command1_click事件的代码，在Pictrue控件 ' 按以下图格式输出乘法九九表。

'------------------------------------------------- '注意：请在指定的事件内编写代码。 '-------------------------------------------------

'***************** Program **************

没有图 ,不好做。下面是顺三角式九九乘法表的代码。 Private sub command1_click() Din i%,j%

Dim expss as string For i =1 TO 9 For j=1 to i

Expss = i & ”*” & j & ”=” & i * j Picture1.print tab((j-1)*10+1); expss Next j

Picture1.print Next i End sub

'*************** End ************************* End Sub

36、(事件)单击窗体。

' (响应)已知sum=-1!+1/2!-1/3!+1/4!...+1/10!, ' 请将sum结果值输出到窗体上。 ' 使用do while...loop语句完成程序

'-------------------------------------------------

Private Sub Form_Click()

Dim p As Long 'p变量存放阶乘的值 Dim sum As Single

'***************** Program ************** Dim i As Integer i = 1 p = 1 S = 0

Do While i <= 10 p = p * i

s = s + (-1 ) ^i*(1 / p ) i = i + 1 Loop Print s sum=s

'*************** End ************************* Call YZJ(sum) End Sub

37、(事件)单击窗体。

' (响应)我国现有人口为13亿，设年增长率为1%， ' 计算多少年后增加到20亿。并将结果输出 ' 在窗体上。将结果存入变量year中。 ' 使用do while ...loop语句完成程序。

'------------------------------------------------- Private Sub Form_Click() Dim year As Integer

'***************** Program ************** dim p as double dim r as single dim n as integer p=1300000000 r=0.01

do while p<2000000000 p=p+p*r n=n+1 loop

print \year=n

'*************** End ************************* Call YZJ(year) End Sub

38、 (事件)单击窗体。

' (响应)求从100到1000之间所有是3的倍数的数之 ' 和，当和大于3000时，停止计算并输出和。请将结果输 ' 出到窗体上,并存入所给变量SUM中。使用for...next语 ' 句完成程序

'------------------------------------------------- Private Sub Form_Click() Dim sum As Integer

'***************** Program ************** Dim i As Integer sum=0

for i=100 to 1000 if i mod 3=0 then sum=sum+i

if sum>3000 then exit for End if End if i=i+1 next i

Print sum

'*************** End ************************* Call YZJ(sum) End Sub

39、：编写函数fun，函数的功能是：计算两个正整数的

'最大公约数，并显示。如： '两个数为15、20，结果显示\'要求使用Do ... Loop语句来实现。

'------------------------------------------------- '注意： 请在指定的事件内编写代码 ' 代码只能写在两行标识之间 ' 不得修改已有代码

'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。

'-------------------------------------------------

Private Function fun(m As Integer, n As Integer) As Integer Dim r%

If m > n Then r = m: m = n: n = r '**********Program********** R=n mod m

Do While (r <> 0) n = m m= r

r = n Mod m Loop fun = m

'********** End ********** End Function

Private Sub Form_Load() Show

Print fun(15, 10) NJIT_VB End Sub

40、(事件)单击命令按钮Command1，在指定的函数中编写。

' (响应)找出5个整数序列中的最大数与最小数，最大 ' 数显示在Text1中，最小数显示在Text2中，

' 并以升序重新排列这5个数。并显示在Label4中。 ' 窗体格式如图1所示。

'------------------------------------------------- '注意：请在指定的事件内编写代码。 '-------------------------------------------------

Option Explicit Option Base 1

Dim a(5) As Integer

Private Sub MaxAndMin() '5个整数都保存在数组a中

'**********Program********** Dim i%,j%,t%,max%,min% Max=a(1）

Min=a(1） For i = 1 to 5

If max < a(i) then max = a(i) If min > a(i) then min = a(i) Next i

Text1.text=max Text2.text=min For i = 1 To 5 For j = i + 1 To 5

If a(i) > a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i

For i = 1 To 5

s = s + Str(a(i)) Next i

Label4.Caption = s

'********** End **********

End Sub

Private Sub Command1_Click()

a(1) = 97: a(2) = 88: a(3) = 5: a(4) = 95: a(5) = 36 MakeNumber MaxAndMin

WWJT Text1.Text, Text2.Text End Sub

Private Sub MakeNumber() Dim i As Integer Dim s As String

For i = 1 To 5

s = s + Str(a(i)) Next i

Label3.Caption = s

End Sub

Private Sub Form_Load() Label3.FontSize = 18 Label4.FontSize = 18 Text1.FontSize = 18 Text2.FontSize = 18

41'题目：求二维数组中最大元素及其所在的行和列

' 并将最大值存入变量Max中，将最大值的行位置存入 ' row中，列位置存入变量column中.

'------------------------------------------------- Private Sub Form_Load() Show

Dim a(2, 3) As Integer

Dim max As Integer, row As Integer, column As Integer a(1, 1) = 34: a(1, 2) = 34: a(1, 3) = 43 a(2, 1) = 34: a(2, 2) = 78: a(2, 3) = 12 '********** Program ********* Dim i As Integer, j As Integer

max = a(1, 1): row = 1: column = 1 For i = 1 To 2 For j = 1 To 3

If a(i, j) > a(row, column) Then max = a(i, j) row = i column = j End If Next j Next i

Print \最大元素是\

Print \在第\行,\第\列\ '********** End ************* WWJT max, row, column End Sub

42题目：(事件)单击窗体。

' (响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8?

' 的前10项，并求其和，将和保存在变量s中

'------------------------------------------------- Private Sub Form_Click()

Dim s As Single

'******** Program *********** Dim i, j, k, m As Integer s = 0 :i = 2:j = 1 For k = 1 To 10 s = s + i / j m = j

Print (CStr(i)) & \ j = i i = i + m Next k

'********* End **************** YZJ (s) End Sub

43题目：(事件)单击窗体。

' (响应)输出斐波那契数列1,1,2,3,5,8,13...第20个 ' 数的值

' 即 f1=1 (n=1) ' f2=1 (n=2)

' fn=f(n-1)+f(n-2)(n≥3)

' 使用for...next语句完成程序，并将结果 ' 存入变量sum中

'------------------------------------------------- Private Sub Form_Click()

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

'***************** Program ************** dim i as integer for i=1 to 9 f1=f1+f2 f2=f2+f1 next i print f2 sum=f2

'*************** End ************************* Call YZJ(sum) End Sub

44题目：(事件)单击窗体。

' (响应)输出斐波那契数列1,1,2,3,5,8,13...第20个 ' 数的值

' 即 f1=1 (n=1) ' f2=1 (n=2)

' fn=f(n-1)+f(n-2)(n≥3)

' 使用for...next语句完成程序，并将结果 ' 存入变量sum中

'------------------------------------------------- Private Sub Form_Click()

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

'***************** Program ************** dim i as integer for i=1 to 9 f1=f1+f2 f2=f2+f1 next i print f2 sum=f2

'*************** End ************************* Call YZJ(sum) End Sub

45题目：(事件)单击窗体。

' (响应)输出斐波那契数列1,1,2,3,5,8,13...第20个 ' 数的值

' 即 f1=1 (n=1) ' f2=1 (n=2)

' fn=f(n-1)+f(n-2)(n≥3)

' 使用for...next语句完成程序，并将结果 ' 存入变量sum中

'-------------------------------------------------

Private Sub Form_Click()

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

'***************** Program ************** dim i as integer for i=1 to 9 f1=f1+f2 f2=f2+f1 next i print f2 sum=f2

'*************** End ************************* Call YZJ(sum) End Sub

46'题目：(事件)单击窗体。

' (响应)一球从100米高度自由落下，每次落地返回 ' 原高度的一半，求第10次落地时，共经过多 ' 少米？并将结果在窗体上输出。

'------------------------------------------------- Private Sub Form_Click() Dim s As Single

'********* Program ************* Dim j,i As Integer s=0 j=100

For i = 2 To 10 j=j / 2 s=s+2*j Next i s=100+s

Print(CStr(s))

'********* End *************** YZJ (s) End Sub

47'-------------------------------------------------

'题目：(事件)单击窗体。

' (响应)编写代码功能如(图1)。

' 将结果存入变量Sum中。使用while...wend语句完成程序

'------------------------------------------------- Private Sub Form_Click() Dim sum As Double

'***************** Program ************** Dim i As Integer sum = 0

For i = 1 To 10 sum = sum + i ^ i Next i

Print (CStr(sum))

'*************** End ************************* Call YZJ(sum) End Sub

48'题目：(事件)单击窗体。

' (响应)求10!的值，并将结果输出到窗体上。 ' 将结果存入变量SUM中

'------------------------------------------------- Private Sub Form_Click() Dim sum As Long

'********* Program ********* Dim i As Integer sum = 1

For i = 1 To 10 sum = sum * i Next i Print sum

'************ End ************ YZJ (sum) End Sub

49'题目：对字符串进行加密处理。

' 加密过程:

' 将每个字母C加一序数K＝5，即 c=chr(Asc(c)+5), ' 这时 \→\， \→\，\→\?

' 当加序数后的字母大于\或\则 c=Chr(Asc(c)+k -26)

'-------------------------------------------------

Private Function EnyStr(strI As String) As String

'********** Program ********* Dim i As Integer

Dim strp As String, strT As String, iA As String Dim nl As String i = 1: strp = \

nl = Len(RTrim(strI)) Do While (i <= nl)

strT = Mid$(strI, i, 1)

If (strT >= \Then iA = Asc(strT) + 5

If iA > Asc(\Then iA = iA - 26 strp = strp + Chr$(iA)

ElseIf (strT >= \ iA = Asc(strT) + 5

If iA > Asc(\strp = strp + Chr$(iA) Else

strp = strp + strT

End If i = i + 1 Loop

EnyStr = strp

'********** End *************

End Function

50。'题目：(事件)单击窗体。

' (响应)求出1000-9999之间具有如下特点的四位数字， ' 它的平方根恰好就是它中间的两位数字，例如， ' 2500开平方为50，恰为2500的中间两位，找出 ' 所有这样的四位数。并求出所有这样的数的和 ' 存入SUM中 '

'------------------------------------------------- Dim sum As Integer sum = 0

'******** Program ******* Dim i As Integer Dim j As Integer For i = 1000 To 9999

j= Val(Mid(Trim( Str(i)), 2, 2)) If j ^ 2 = i Then Print i,

sum = sum + i End If Next i

'********** End ********** YZJ (sum) End Sub

51'题目：编写函数fun，函数的功能是：当x的初值为10，

'每年增长率为千分之八，计算多少年以后x的值能达到y， '并显示所需年数的值（变量名必须为n）。 '要求使用Do While ... Loop语句来实现。

'------------------------------------------------- '注意： 请在指定的事件内编写代码 ' 代码只能写在两行标识之间

' 不得修改已有代码

'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 '-------------------------------------------------

Private Function fun(y As Single) As Long Dim x As Single, n As Long

'**********Program********** x = 10 n = 0

Do While x < y x = x * 1.008 n = n + 1 Loop fun = n

'********** End ********** End Function

Private Sub Form_Load() Show

Print fun(15) NJIT_VB End Sub

52'题目：：编写函数fun其功能是:判断一个整数w的各位

' 数字平方之和能否被5整除 , 可以被5整除则返 ' 回1 , 否则返回0

'-------------------------------------------------

Private Function fun(w As Integer) As Boolean

'********** Program ********* Dim k As Integer, s As Integer Do

s = s + (w Mod 10) * (w Mod 10) w = Int(w / 10) Loop While w <> 0 If s Mod 5 = 0 Then k = 1 Else

k = 0 End If fun = k

'********** End *************

End Function

Private Sub Form_Load() Show

Print fun(50) WWJT End Sub

53'题目：求二维数组中最大元素及其所在的行和列

' 并将最大值存入变量Max中，将最大值的行位置存入 ' row中，列位置存入变量column中.

'------------------------------------------------- Private Sub Form_Load() Show

Dim a(2, 3) As Integer

Dim max As Integer, row As Integer, column As Integer a(1, 1) = 34: a(1, 2) = 34: a(1, 3) = 43 a(2, 1) = 34: a(2, 2) = 78: a(2, 3) = 12 '********** Program ********* Dim i As Integer, j As Integer

max = a(1, 1): row = 1: column = 1 For i = 1 To 2 For j = 1 To 3

If a(i, j) > a(row, column) Then max = a(i, j) row = i column = j End If Next j Next i

Print \最大元素是\

Print \在第\行,\第\列\

'********** End ************* WWJT max, row, column

End Sub'-----------------------------------------

54'题目：(事件)单击窗体。

' (响应)编写代码功能如(图1)。

' 将结果存入变量Sum中。使用while...wend语句完成程序

'------------------------------------------------- Private Sub Form_Click() Dim sum As Double

'***************** Program ************** 没有图？是求1到100中为5或7的倍数的和

While I mod 5 =0 or I mod 7 =0 I<100 S=s+i Wend Print s

'*************** End ************************* Call YZJ(sum) End Sub

Private Sub YZJ(i As Double)

Dim OUT As Integer OUT = FreeFile

Open App.Path & \ Print #OUT, i Close #OUT

End Sub----------------------------------------------

55'题目：将一个十进制整数m转换成 →r(2－16)进制字符串。

'方法：将m不断除 r 取余数，直到商为零，以反序得到结果。 ' 下面写出一转换函数，参数idec为十进制数，ibase为要转 ' 换成数的基（如二进制的基是2，八进制的基是8等）， ' 函数输出结果是字符串

'-------------------------------------------------

Private Function TrDec(idec As Integer, ibase As Integer) As String

'********** Program ********* Dim strDecR$, iDecR% strDecR = \

Do While idec <> 0

iDecR = idec Mod ibase

If iDecR >= 10 Then

strDecR = Chr$(65 + iDecR - 10) & strDecR Else

strDecR = iDecR & strDecR End If

idec = idec \\ ibase Loop

TrDec = strDecR

'********** End *************

End Function

Private Sub Form_Load()

Show

Print TrDec(45, 2) WWJT End Sub

Private Sub WWJT()

'-------------------------------------------------

56'题目：将一个十进制整数m转换成 →r(2－16)进制字符串。

'方法：将m不断除 r 取余数，直到商为零，以反序得到结果。 ' 下面写出一转换函数，参数idec为十进制数，ibase为要转 ' 换成数的基（如二进制的基是2，八进制的基是8等）， ' 函数输出结果是字符串

'-------------------------------------------------

Private Function TrDec(idec As Integer, ibase As Integer) As String

'********** Program ********* Dim strDecR$, iDecR% strDecR = \

Do While idec <> 0

iDecR = idec Mod ibase If iDecR >= 10 Then

strDecR = Chr$(65 + iDecR - 10) & strDecR Else

strDecR = iDecR & strDecR

End If

idec = idec \\ ibase Loop

TrDec = strDecR

'********** End *************

End Function

Private Sub Form_Load()

Show

Print TrDec(45, 2) WWJT

End Sub------------------------------------------------

57'题目：编写函数fun其功能是：根据整型形参m，

' 计算如下公式的值:

' y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5) ' 例如：若m=9，则应输出：1.168229

'要求：函数中用到的中间变量必须声明为Single类型。

'------------------------------------------------- Private Function Fun(m As Integer) As Single '********** Program ********* Dim y As Double Dim i As Integer For i = 0 To m

y = y + 1 / (i + 5) Next i Fun = y

'********** End ************* End Function

Private Sub Form_Load()

Show

Print Fun(9) WWJT End Sub

本文来源：https://www.bwwdw.com/article/1am6.html