程序设计 - 图文
更新时间:2024-06-04 15:05:01 阅读量: 综合文库 文档下载
- 程序设计基础是学什么推荐度:
- 相关推荐
程序设计 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
正在阅读:
程序设计 - 图文06-04
七一短信02-18
华为内外部环境分析05-05
电力系统继电保护课程设计参考04-18
廖老师网上千题解答251-300题01-27
g证题库10-18
绞车实操考核评分表06-29
09二年级数学暑假作业11-04
零基础美联英语-你的生活装了太多无用之物02-26
2010年模拟试卷选择题03-22
- 多层物业服务方案
- (审判实务)习惯法与少数民族地区民间纠纷解决问题(孙 潋)
- 人教版新课标六年级下册语文全册教案
- 词语打卡
- photoshop实习报告
- 钢结构设计原理综合测试2
- 2014年期末练习题
- 高中数学中的逆向思维解题方法探讨
- 名师原创 全国通用2014-2015学年高二寒假作业 政治(一)Word版
- 北航《建筑结构检测鉴定与加固》在线作业三
- XX县卫生监督所工程建设项目可行性研究报告
- 小学四年级观察作文经典评语
- 浅谈110KV变电站电气一次设计-程泉焱(1)
- 安全员考试题库
- 国家电网公司变电运维管理规定(试行)
- 义务教育课程标准稿征求意见提纲
- 教学秘书面试技巧
- 钢结构工程施工组织设计
- 水利工程概论论文
- 09届九年级数学第四次模拟试卷
- 程序设计
- 图文