VB编程练习(答案).docVIP

一.选择结构 ------------------------------------------------- 题目：编写函数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 Then fun = 优秀 ElseIf mark = 80 Then fun = 良好 ElseIf mark = 70 Then fun = 中等 ElseIf mark = 60 Then fun = 及格 Else fun = 不及格 End If ********** End ********** End Function Private Sub Form_Load() Show Print fun(90) End Sub ------------------------------------------------- 题目：编写函数fun，函数的功能是：判断一个字符是字母字符、数字字符还是其他字符，并做相应的显示。 字母字符显示字符串字母数字字符显示字符串数字 其他字符显示字符串其他 要求使用语句来实现------------------------------------------------- Private Function fun(n As String) As String **********Program********** Select Case n Case A To Z, a To z fun = 字母 Case 0 To 9 fun = 数字 Case Else fun = 其他 End Select ********** End ********** End Function Private Sub Form_Load() Show Print fun(A) Print fun(9) Print fun() End Sub 二.一般循环 ------------------------------------------------- 题目：(事件)双击窗体。 (响应)求出100~200之间，能被5整除，但不能被3整除的数。并求所有数之和，存入变量中SUM中。sum 应为 2100 ------------------------------------------------- Private Sub Form_dblClick() Dim sum As Integer sum = 0 ********** Program ********* Dim i As Integer For i = 100 To 200 If ((i Mod 5) = 0) And ((i Mod 3) 0) Then Print (CStr(i)) sum = sum + i End If Next ********** End ************* Print sum End Sub ------------------------------------------------- 题目：(事件)单击窗体。 (响应)求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L中。 ------------------------------------------------- Private Sub Form_Click() Dim l As Long ******* Program ******** Dim i As Integer Dim j As Integer Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If N