VB期末考试试题及答案(1)

由天下分享时间：2024/12/26 3:47:30 加入收藏我要投稿点赞

y = x Mod y End Sub

4、程序运行时，单击Command1按钮，显示结果是___【4】___。

Private Sub Command1_Click() Dim a As Variant, s As Integer Dim i As Integer, j As Integer a = Array(1, 2, 3, 4) j = 1

For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print s

End Sub

5、程序运行时，单击Command1按钮，显示结果是___【5】___。

Private Sub Command1_Click() Dim i As Integer, n As Integer For i = 1 To 100 i = i + 4 n = n + 1 i = i + 2

If i > 30 Then Exit For Next i Print n, i

End Sub

五、编写程序题

请将程序代码写在答题卷对应位置处，答在试卷上不得分。

1、生成大小为1到100的50个随机整数，使用选择排序法对这些数进行由小到大的排序，并将其显示出来。(8分)

2、编写一函数过程计算1到n的累乘，参数n在调用时传递，函数名为mul。在主程序中调用该函数完成计算sum=1!+2!+3!+4!+5!，然后把sum结果打印出来。(6分)

3、找出所有四位整数的回文数，并把找出的这些回文数保存在顺序文件”c:\\abc.txt”中。(顺读和倒读都一样的字符串称“回文”，如：“level”，“1221”) (6分)

第一部分：客观题

一、单项选择题

1-5、 DDBDD 6 -10、 CBDDC 11-15、 DADBD 16-20、 CBBBC 21-25、 BBDBC 26-30 、DACBD

二、判断题

1、B 2、B 3、B 4、A 5、A 6、B 7、B 8、B 9、B 10、B

第二部分：主观题

三、填空题

1、a^2+b^2 2、86.57

3、 157 4、 REM 5、 “A” 6、属性

7、 100 8、 int(rnd*90+10) 9、 true 10、 false

四、读程序写结果题

1、3 2、11 3、22 4、1234 5、5, 35

五、编写程序题

1、生成大小为1到100的50个随机整数，使用选择法对这些数进行由小到大的排序，并将其显示出来。

Private Sub Command1_Click() Dim a(49) as integer (1分) Dim i as integer, k as integer Randomize Time For i=0 to 49

a(i)=Int(Rnd*(100-1+1)+1) (1分) next i

for i=0 to 48 (1分) k=I (1分) for j=i+1 to 49 (1分)

if a(k)>a(j) then k=j (1分) next j

tmp=a(i): a(i)=a(k): a(k)=tmp (1分) next i

for i=0 to 49 print a(i); (1分) next i End Sub

2、编写一函数过程计算1到n的累乘，参数n在调用时传递，函数名为mul。在主程序中调用该函数完成计算sum=1!+2!+3!+4!+5!，然后把sum结果打印出来。 Private Sub Command1_Click() Dim sum as Integer, I as integer Sum=0 (1分) For i=1 to 5

Sum=Sum+mul(i) (1分) Next i

Print sum (1分) End sub

Private Function mul(n as integer) as integer (1分) Dim s as integer, i as integer S=1 For i=1 to n

S=s*i (1分) Next i

Mul=s (1分) End Sub

3、找出所有四位整数的回文数，并把找出的这些回文数保存在顺序文件”c:\\abc.txt”中。(顺读和倒读都一样的字符串称“回文”，如：level，1221) Private Sub Command1_Click() Dim i As Integer, n As Integer, s As String Dim j As Integer

Open “c:\\abc.txt” for Output As #1 (1分)

For i = 1000 To 9999 (1分) s = Trim(Str(i)) (1分)

If Mid(s, 1, 1) = Mid(s, 4, 1) And Mid(s, 2, 1) = Mid(s, 3, 1) Then (2分) Print #1, s (1分) End If Next i

Close #1 End Sub

ViSual Basic程序设计上机试题

考试要求：

1、考试时间为2个小时。

2、不得使用U盘，不得使用VB课件：违反此要求者按作弊处理。 3、考试目录为F:\\Source，要求将程序保存到该文件夹下。

4、每完成一题，在该文件夹中保存以题目序号命名的frm和vbp文件。例如第二题的结果保存为2.frm和2.vbp。

第一题：20分

1、设计一个如下界面的成绩计算程序。其中总评成绩中平时占20％，期中和期末各占30%和50%。程序结果保存为1.frm和1.vbp。

参考代码：