1 / 47
文档名称:

VB程序设计题.docx

格式:docx   大小:96KB   页数:47页
下载后只包含 1 个 DOCX 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

VB程序设计题.docx

上传人:蓝天 2021/10/27 文件大小:96 KB

下载得到文件列表

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
'题目