1、一.选择结构-题目：编写函数 fun，函数的功能是：根据一个百分制 成绩 mark（整数） ，显示对应五级制的评定。条件如下： mark 大于等于 90 显示“优秀“ mark 小于 90 且大于等于 80 显示“良好“ mark 小于 80 且大于等于 70 显示“中等“ mark 小于 70 且大于等于 60 显示“及格“ mark 小于 60 显示“不及格“ 要求使用 IF 语句来实现。-Private Function fun(mark As Integer) As String*Program*If mark = 90 Thenfun = “优秀“ElseIf mark = 80 T
2、henfun = “良好“ElseIf mark = 70 Thenfun = “中等“ElseIf mark = 60 Thenfun = “及格“Elsefun = “不及格“End If* End *End FunctionPrivate Sub Form_Load()ShowPrint fun(90)End Sub-题目：编写函数 fun，函数的功能是：判断一个字符是: 字母字符、数字字符还是其他字符，并做相应的显示。 字母字符显示字符串“字母“ 数字字符显示字符串 “数字“ 其他字符显示字符串“其他“ 要求使用 select 语句来实现-Private Function fun(n
3、As String) As String*Program*Select Case nCase “A“ To “Z“, “a“ To “z“fun = “字母“Case “0“ To “9“fun = “数字“Case Elsefun = “其他“End Select* End *End FunctionPrivate Sub Form_Load()ShowPrint fun(“A“)Print fun(“9“)Print fun(“ maxPrint “在第“ “第“ NextPrintSort arr, 10Print “排序后:“For i = 1 To 10Print arr(i);Ne
4、xtEnd Sub-题目：(事件)单击窗体。 (响应)生成一个一维数组(10 个数组元素依此为：15、23、72、43、96、23、3、65、88、17)， 写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。 将最大值，最小值，平均值分别存入变量 Max,Min,Aver 中 输出 Max 为 96，Min 为 3，Aver 为 44-Private Sub Form_Click()Dim max, min, aver As Integer* Program *Dim a()Dim i, s As Integera = Array(15, 23, 72, 43, 96, 23, 3
5、, 65, 88, 17)max = a(0)min = a(0)s = 0For i = 0 To 9If a(i) max Thenmax = a(i)End IfIf a(i) = “A“ And strT Asc(“Z“) Then iA = iA - 26strp = strp + Chr$(iA)ElseIf (strT = “a“ And strT Asc(“z“) Then iA = iA - 26strp = strp + Chr$(iA)Elsestrp = strp + strTEnd Ifi = i + 1LoopEnyStr = strp* End *End Func
6、tionPrivate Sub Form_Load()ShowPrint EnyStr(“abc def xyz“)End Sub-题目：编写函数 fun，函数的功能是：计算两个正整数的最大公约数，并显示。如：两个数为 15、20，结果显示“5“ 要求使用 Do . Loop 语句来实现。-Private Function fun(m As Integer, n As Integer) As IntegerDim r%If m n Then r = m: m = n: n = r*Program*Dor = m Mod nIf r = 0 Then Exit Dom = nn = rLoopf
7、un = n* End *End FunctionPrivate Sub Form_Load()ShowPrint fun(15, 10)End Sub-题目：(事件)单击窗体。 (响应) 一球从 100 米高度自由落下，每次落地返回原高度的一半，求第 10 次落地时，共经过多少米？并将结果在窗体上输出。 输出 s 应为 299.6094-Private Sub Form_Click()Dim s As Single* Program *Dim j, i As Integers = 0j = 100For i = 2 To 10j = j / 2s = s + 2 * jNexts = 100
8、 + sPrint s* End *End Sub-题目：编写函数 fun，函数的功能是：计算并输出给定整数 n 的所有因子之和（不包括 1 与自身） 。规定 n 的值不大于 1000? 例如：n 的值为 855 时，应输出 704。-Private Function Fun(n As Integer) As Long* Program *Dim s, i As IntegerFor i = 2 To n - 1If n Mod i = 0 Thens = s + iEnd IfNextFun = s* End *End FunctionPrivate Sub Form_Load()ShowP
9、rint Fun(855)End Sub-题目：将一个十进制整数 m 转换成 r (216) 进制字符串。方法：将 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 = 10 ThenstrDecR =
10、 Chr$(65 + iDecR - 10) & strDecRElsestrDecR = iDecR & strDecREnd Ifidec = idec ibaseLoopTrDec = strDecR* End *End FunctionPrivate Sub Form_Load()ShowPrint TrDec(45, 2) Print TrDec(45, 8) 分别输出Print TrDec(45, 16)End Sub题目：(事件) 单击窗体。 (响应)输出一个如图所示的由数字组成的倒三角形 请将结果存入变量 S 中(要求利用 msgbox 函数显示结果，使用 for.next 语句完成程序)-Private Sub Form_Click()Dim s As String* Program *Dim tmp As StringDim i As Integer, j As Integertmp = “For i = 10 To 1 Step -1For j = 0 To i - 1tmp = tmp & CStr(j)Nexttmp = tmp & vbCrLfNextMsgBox tmps = tmp* End *End Sub
