VB程序设计题.docx

VB程序设计题.docx试卷编号：8247
所属语言：Visual Basic 试卷方案：VB_程序设计 试卷总分：93分
共有题型：1种
一、程序设计共93题（共
计93分）
第1题（）题号:52
【程序设计】
'题目：编写函数fun,函数 的功能是：计算两个正整数 的
'最大公约数，并显示。如：
'两个数为15、20,结果显示
”5”
'要求使用Do . . . Loop语句 来实现。
'注意：请在指定的事件内 编写代码
' 代码只能写在两行
标识之间
' 不得修改已有代码
'保存时不得修改窗体和工 程文件的名称及路径，否则 后果自负。
Private Function fun(m As
Integer, n As Integer) As
Integer
Dim r%
If m > n Then r = m: m = n:
**********卩！0赏3111******
****
'********** End
End Function
Private Sub Form_Load()
Show
Print fun(15, 10)
町IT_VB
End Sub
Private Sub NJIT_VB()
Dim i As Integer
Dim a(10) As String
Dim fin As Integer
Dim fOut As Integer fin 二 FreeFile
Open App. Path &
"\in. dat" For Input As #fln
fOut 二 FreeF订e
Open App. Path & "\out. dat" For Output As #fOut
For i = 1 To 10 Step 2 Line Input #fIn, a(i)
Line Input #fIn, a(i + 1)
Print #fOut, Trim(Str(fun(Vai (a(i)), Val(a(i + 1)))))
Next
Close #fIn
Close #f0ut
End Sub
答案：Do
r = m Mod n
If r = 0 Then Exit Do
m = n
n = r
Loop
fun 二 n
第2题()题号:46
【程序设计】
'题目：编写函数fun,函数 的功能是：根据一个百分制 '成绩mark （整数），显示对 应五级制的评定。条件如下： 'mark大于等于90显示"优秀
'mark小于90且大于等于80 显示"良好"
'mark小于80且大于等于70 显示"中等"
'mark小于70且大于等于60 显示"及格"
'mark小于60显示"不及格" '要求使用IF语句来实现。
'注意：请在指定的事件内 编写代码
' 代码只能写在两行
标识之间
' 不得修改已有代码
'保存时不得修改窗体和工 程文件的名称及路径，否则 后果自负。
Private Function fun(mark As Integer) As String
'**********Progr*am****** ****
'********** End
End Function
Private Sub FormLoad()
Show
Print fun(90)
町IT_VB
End Sub
Private Sub NJIT_VB()
Dim i As Integer
Dim s As String
Dim a(10) As Integer
Dim fin As Integer
Dim fOut As Integer fin 二 FreeFile
Open App. Path & 〃\in. dat〃 For Input As #fln
fOut = FreeFile
Open App. Path & 〃\out. dat〃 For Output As #fOut
For i = 1 To 10
Line Input #fln, s a(i) = Vai (s) Print #fOut, fun (a(i))
Next
Close #fIn
Close #f0ut
End Sub
答案：If mark〉二 90 Then fun二〃优秀〃
Elself mark >二 80 Then fun = 〃良好〃
Elself mark >= 70 Then
fun二〃中等〃
Elself mark >= 60 Then
fun = 〃及格"
Else
fun ="不及格〃
End If
第3题（）题号:465
'题目