[程序设计语言VB]考试卷A.doc

西南科技大学网络教育学院（2014）/（2015）学年 第 1 学期试题单A卷课程名称： 程序设计语言VB 专业班级： 命题教师： 魏雪莲 学生姓名： 学 号： 成 绩： 考试时间： 月 日一、 单选题 ( 每题2分，共15题，共30分，下列各小题备选答案中，只有一个符合题意的答案。多选、错选、不选均不得分 )1. 若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（C ）。A. ValueB. CancelC. DefaultD. Enabled2. 语句PRINT 25*4的输出结果是（A）。A. 25*4B. 100C. 100D. 出现错误信息3. 语句Dim x As Integer作用是:将x定义为（B）变量。A. 单精度型B. 整型C. 布尔型D. 字符型4. VB中下列逻辑表达式书写正确的是（A）。A. ab and acB. abcC. abD. a1225. 表达式4+5 6 * 7 / 8 Mod 9 的值是（B）。A. 4B. 5C. 6D. 76. Int(Rnd * 100) 表示的是（C）范围内的一个整数。A. 0,100B. 1,99C. 0,99D. 1,1007. Int(-3.14)的值是（C）。A. -3B. -3.14C. -4D. 3.148. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（C）。A. 工程资源管理器窗口B. 工具箱窗口C. 代码窗口D. 属性窗口9. Dim a(5, 5) As Long 定义的数组元素的个数是（D）。A.10B.11C.25D.3610. 下列关于Exit For 的说法，正确的是（D）。A. 它可以退出任何类型的循环B. 一个循环只能有一个Exit ForC. 每个循环必须有Exit ForD. Exit For本身是无条件退出循环11. 在图片框中加载图形(c:666.jpg)的方法是（A）。A. Loadpicture(c:666.jpg)B. Loadpicture( )C. print(c:666.jpg)D. cls12. 设在窗体上有一通用对话框控件Commonialog1，通过调用（C）语句可以建立“颜色”对话框。A. Commonialog1.ShowOpenB. Commonialog1.Action=2C. Commonialog1.ShowColorD. Commonialog1.Action=513. 列表项选择后得到的选中索引是指（D）。A. ValueB. ListValueC. IndexD. ListIndex14. 在Visual Basic代码窗口中,将某一条语句加以注释和说明时,应在语句前加（C）。A. ,B. :C. D. ?15. 在Visual Basic中,以下选项中表示单击事件的是（B）。A. KeyUpB. ClickC. ActivateD. Load二、 填空题1 ( 每题10分，共2题，共20分 )16. 阅读下列程序段Option Explicit Private Sub Command1_Click( ) Dim str1 As String Dim str2 As String str1 = ABCDEFG MySub str1, str2 Print str2 End Sub Private Sub MySub(ByVal a As String, b As String) Dim c As String Dim i As Integer For i = Len(a) To 1 Step -1 c = c+ Mid(a, i, 1) Next b= c End Sub 程序运行后，“print”语句的输出结果是_GFEDCBA_ _。17. Private Sub Command1_Click() a=3 b=1 For i=1 To 3 f=a + b a=b b=f Next i Print fEnd Sub 以上程序段运行后，f的结果为 9 。三、 简答题 ( 每题20分，共1题，共20分 )18. 简述下图程序界面的设计步骤，包括添加控件、设置属性和编程。（1）界面设计：插入窗体（Form1），添加组框（Frame1），添加3个复选框（CheckBox1、CheckBox2、CheckBox3），添加标签（Label1），添加文字框（TextBox1），添加命令按钮（Command1）。（2）设置控件属性：设置Form1的Caption属性为“复选应用”；设置Frame1的Caption属性为“组框字体格式选择”；分别设置CheckBox1、CheckBox2、CheckBox3的Caption属性为“加粗”、“倾斜”、“下划线”，并把CheckBox1的Value属性设为True；设置Label1的Caption属性为“字体格式效果”；设置TextBox1的Text属性为“你好吗？”；设置Command1的Caption属性为“确定”；（3）编程：PrivateSubCommand1_Click()IfCheckBox1.Value=TrueThenTextBox1.FontBold=TrueElseTextBox1.FontBold=FalseEndIfIfCheckBox2.Value=TrueThenTextBox1.FontItalic=TrueElseTextBox1.FontItalic=FalseEndIfIfCheckBox3.Value=TrueThenTextBox1.FontUnderline=TrueElseTextBox1.FontUnderline=FalseEndIfEndSub四、 综合设计题 ( 每题10分，共3题，共30分 )19. 编制程序：利用输入框输入10个不同的整数，将它们从小到大排序，并打印输出。92. Private Sub Command1_Click()Dim a(9) , i, j, m As IntegerFor i = 0 To 9 a(i) = Val(InputBox(第 & i + 1 & 个数：)Next iFor i = 0 To 9 For j = i + 1 To 9 If a(i) a(j) Then m = a(i) a(i) = a(j) a(j) = m End If Next jNext iFor i = 0 To 9 Print a(i);Next iEnd Sub20. 编一程序能实现在窗体上打印出如下图所示的图形。AAAAAAAAAAAAAAAABBBBBBBBBBBBBBBB94. Private Sub Command1_Click()Dim i, j As IntegerFor i = 1 To 4 For j = 1 To (2 * i - 1) Print A; Next j PrintNext iFor i = 4 To 1 Step -1 For j = (2 * i - 1) To 1 Step -1 Print B; Next j PrintNext iEnd Sub21. 编制程序实现：在窗体上，单击按钮1，在文本框中动态显示当前时间；单击按钮2，则停止动态显示；单击按钮3，清除文本框内容。提示：可用定时器控制时间，用系统函数Now显示时间（如Text1.Text = Now）。90. Private Sub Command1_Click() Timer1.Interval = 5 Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Cl