兰州理工大学VB试卷的答案
- 格式：doc
- 大小：35.00 KB
- 文档页数：5
试卷编号：8075
所属语言：Visual Basic
试卷方案：vb期末模拟练习
试卷总分：100分
共有题型：4种
一、程序填空 共1题 （共计20分）
第1题 （20.0分） 题号:530
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：有数列 1/5 + 1/9 + 1/13 + 1 / (1 + k * 4) (k<=100)
' 求前 100 项之和
'-------------------------------------------------------
Private Sub Command1_Click()
Dim s As Double
Dim k As Integer
'**********SPACE**********
s = 【?】
'**********SPACE**********
For k = 1 To 【?】
'**********SPACE**********
s = s + 1 / (1 +【?】)
Next k
Print s
End Sub
答案：
=======(答案1)=======
0
=======(答案2)=======
100
=======(答案3)=======
k*4
=========或=========
4*k
二、程序改错 共1题 （共计20分）
第1题 （20.0分） 题号:480
'------------------------------------------------
'【程序改错】
'------------------------------------------------
'题目:下面函数的功能是：求变量s(s=a+aa+aaa+aaaa+„„)
' 的值。其中，a是一个0-9的数字，总共累加a项。
' 例如，当a=3时,s=3+33+333 (共累加3项)。
'------------------------------------------------
Option Explicit
Public Sub Calc(a As Integer)
Dim s As Long
Dim t As Long
Dim i As Integer
s = a
'**********FOUND**********
t = 1
For i = 2 To a
'**********FOUND**********
t = t + a
s = s + t
Next i
Calc = s
Print s
End Function
Private Sub Command1_Click()
Dim i As Integer
i = InputBox("请输入数字（0-9）:")
'**********FOUND**********
Calc call i
End Sub
答案：
=======(答案1)=======
t = a
=======(答案2)=======
t = t * 10 + a =========或=========
t = t * 10 + a
=========或=========
t = t * 10 + a
=======(答案3)=======
Calc i
=========或=========
Call Calc(i)
=========或=========
Calc (i)
三、程序设计 共1题 （共计30分）
第1题 （30.0分） 题号:344
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：有一根长度为200米的钢材，要将它截取为两种规格的
'短料，两种规格的长度分别为a米、b米。每种至少两段。
'编写函数fun，函数的功能是:
'求出分割成两种规格后剩余残料r最少的值，并显示。如：
'a为31、b为41时，则显示"15"
'要求使用For语句来实现。
'-------------------------------------------------
'注意： 请在指定的事件内编写代码
' 代码只能写在两行标识之间
' 不得修改已有代码
'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。
'-------------------------------------------------
Private Function fun(a As Integer, b As Integer) As String
'**********Program**********
'********** End **********
End Function
Private Sub Form_Load()
Show
Print fun(51, 61)
NJIT_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 #fIn
fOut = FreeFile
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, fun(Val(a(i)), Val(a(i + 1)))
Next
Close #fIn
Close #fOut
End Sub
答案：Dim r!, t!, a0%, b0%
r = 200
For b0 = 2 To (200 - a) \ b
For a0 = 2 To (200 - b * b0) \ a
t = 200 - b0 * b - a0 * a
If t >= 0 And t < r Then
r = t
End If
Next a0
Next b0
fun = r
四、VB窗体设计 共1题 （共计30分）
第1题 （30.0分） 题号:78
------------------------------------------------
【窗体设计】
------------------------------------------------
题目： 设计一个简单的应用程序，如图所示。当用户单
击“显示”按钮（名称为Command1）时，在文本框
控件中显示“向人民警察致敬！”，在窗体上显示
“人民警察为人民！”当用户单击“清除”按钮（名
称为Command2）时，清除文本框中的内容；当用
户单击“退出”按钮（Command3）时，结束程序。
窗体、文本框名称默认，请设计程序。
------------------------------------------------
