最新VB程序设计试题与答案-1资料.docxVIP

《VB程序设计基础》试题 得分评卷人 得分 评卷人 （每空2分，共20分） 1. 与传统的程序设计语言相比 ‘Visual Basic 最突出的特点是 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 窗体模块保存在一个扩展名为 的文件中。 A. bas B. vbp C. vbg D. frm 9.A.[0，100] B.[1，100] C.[1， 9. A.[0 ，100] B.[1 ，100] C.[1 ，99] D.[0 ，99] 一个数组说明为 Dim a(0 to 5 ， 1 to 5) As In teger ，则该数组共有 下面正确的赋值语句是 。 A. x+y=30 B. y= n *r*r C.y=x+30 D. 3y=x 5. 设 S=“ 492” ,表达式 Right (S,1) +Left (S,1 ) +Mid (S,2,1 )的值为 A. “492” B. “249” C. “ 294” D. “429” 6. 将数学表达式 a b c 写成 Visual Basic表达式， 正确的是 A.a=b=c B. a=b Or b=c C.a=b And b=c D. a=b Not b=c 7.为了把焦点移到文本框，所使用的方法是 。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT （ 100*RND产生的随机整数的闭区间是 兀素。 A. 5B. A. 5 B. 36 C. 30 D. 不确定 10.下面过程定义语句合法的是 A. Fun ction P1 (P1)B. Function P1 ( A. Fun ction P1 (P1) C. Sub P1 (x As Integer ) As Single D.Sub P1 (ByVal x ()) 得分 评卷人 、填空题：（每空3分，共18 分） 找出100以内能同时被3、5、7整除的最小5个数据。 Private Sub Comma nd1_Click() Dim countn%, n% n = 1: countn = 0 Do n = n + 1 The nIf The n Print n countn = countn + 1 End If Loop End Sub 输出杨辉三角前五行。 Option Base 1 Private Sub Comma nd1_Click() Dim a(5, 5) As In teger, i As In teger, j As In teger For i = 1 To 5 a(i, 1) = 1 Next i For i = 1 To 5 For j = 2 To i - 1 Next j Next i For i = 1 To 5 For j = 1 To i Print a(i, j), Next j Print Next i End Sub 求水仙花数。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, x As Integer For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 x = Print xIf Then Print x Next c Next b Next a End Sub 得分 评卷人 (每题6分，共12分) 点击窗体时，分析程序的执行结果。 Private Sub Form_Click() For i = 1 To 5 Forj = 1 To i * ”； Next j Print Next i End Sub 程序功能结构分析： 程序执行结果： 单击命令按钮时，分析程序的执行结果。 Private Fun ction P(N As In teger) dim sum% For I = 1 To Nsum = sum + 1 Next I P = sum SB?1 75计算End Function 75 计算 身高(CM) Private Sub Comma nd1_Click() S = P(1) + P(2) Print S; 性别End Sub 性别 程序功能结构分析 程序执行结果: 得分 评卷人 （每题10分，共20 分） 编制如下图所示的程序。本程序根据如下公式, 由输入的身高计算标准体重。 男：标准体重（kg）=身高（cm）-100 女：标准体