文档库

最新最全的文档下载
当前位置:文档库 > VB 按以下公式计算s的值. 产生20个奇数

VB 按以下公式计算s的值. 产生20个奇数

VB  按以下公式计算s的值. 产生20个奇数

西华大学课程考试参考答案 (第

1套)

第 3 页共 1 页

考试课程:2005级《高级语言程序设计》VB 机试

考试时间:60分钟 试卷总分 100 分

一. 调试程序:(程序存盘文件名Test11.frm 、Test11.VBP )(40分)

评分标准:

1. 每个改错点: 7分

2. 正确存盘: 5分 Option Explicit

Private Sub Command1_Click()

Dim s&, t&, i%, a%, n% '原题为Dim s&, t&, i%, a% a = Int(Rnd * 9 + 1)

n = Int(Rnd * 9 + 2) '原题为n= t = 0

s = 0 '原题为s=1 Print "a="; a, "n="; n For i = 1 To n

t = t * 10 + a '原题为t= s = s + t Print t; Next i Print Print s End Sub

Private Sub Form_Load()

Command1.Caption = "执行" 或在属性窗口中修改Caption 属性的值为"执 行"

'''原题此处空缺

End Sub

二. 编程题参考答案(程序存盘文件名Test12.frm 、Test12.VBP )(60分)

评分标准: 1. 文件存盘正确 5分 2. 正确设计界面

5分 3. 各按钮显示正确 5分 4. 列表框1中数据产生和显示正确 10分 5. 排序算法正确

10分 6. 列表框2中数据正确显示 5分 7. 文件操作及结果正确 10分 8. 退出按钮功能正确

5分