visual basic程序设计模拟试题1.doc

Visual Basic 程序设计模拟试题1 一、单项选择题（每小题2分，共30分）1在设计应用程序时，可以查看到应用程序工程中所有组成部分的窗口是（ D ）。 A. 窗体布局窗口 B. 代码编辑器窗口 C. 属性窗口 D. 工程资源管理器窗口2在VB6.0集成开发环境在有三种工作模式，下列不属于三种工作模式之一的是（ D ）。 A设计模式 B中断模式 C执行模式 D编写代码模式3将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（ C ）。 A. 缺少.frm窗体文件 B. 该可执行文件有病毒 C. 运行的机器上无VB系统 D. 以上原因都不对;4一个VB应用程序可以包括（ A ）个vbp文件。 A. 一 B. 二 C. 零 D. 不受限制5要在窗体的标题栏内显示“VB编程世界”，使用的语句是（ D ）。 A. Form1.Print”VB编程世界” B. Form.Print”VB编程世界” C. Form.caption=”VB编程世界” D. Form1.caption=”VB编程世界”6要设置命令按钮的背景图形，必须设置的两个属性是（ A ）。 AStyle和Picture BStyle和Icon CCaption和Picture DValue和Icon7下列可作为Visual Basic变量名的是（ B ）。 AA(A+B) BAlpha C4ABC DAB8表达式7+10 Mod 3*2+2 的值为（ D ）。 A. 1 B. 7 C. 6 D. 139文本框没有（ C ）属性。 AText BName CCaption DBordeStyde10下列正确的赋值语句是（ B ）。Ax+y=20 By=x+20 C3X=Y DS=*r*r11下列关于变量的说法不正确的是（ C ）。 A. 局部变量的作用域仅限于声明它的过程 B. 静态局部变量是在过程中用Static语句声明的局部变量 C. 静态变量在声明它的过程执行完毕后就被释放了 D. 局部变量是指那些在过程中用Dim语句或Static语句声明的变量12C+提供了几种方法以实现不同类型间的转换。以下（ ）是不能用来进行不同类型数据间的转换的。 A用隐式类型转换或显式类型转换B用转换构造函数C用复制构造函数D用类型转换函数13Line(100,100)-Step(600,600)将在窗体（ C ）画一直线。 A. (100,100)到(600,600) B. (100,100)到(500,500) C. (100,100)到(700,700) D. (500,500)到(600,600)14要绘制多种式样的直线，需要设置Line控件的（ D ）属性。AShape BBorderWidth CFillStyle DDrawMode15下列数组声明语句，正确的是（ D ）。 ADim a3,1 To 4 As Integet BDim a(3 1 To 4) As IntegetCDim a(n,n) As Integet DDim a(3, 1 To 4) As Integet二、填空题（每小题2分，共20分）1在VB中，事件过程名由 对象 和 事件 构成。2定时器（Timer）可识别的事件是 imer ，发生该事件的时间间隔由定时器的 Interval 属性设置。3控件数组的名字由 Name 属性指定，而数组的每个元素由 Index 指定。4要使标签框的大小随Caption属性作自动调整，应将AutoSize设置为 True 。5如果不能事先确定变量的数据类型，则可以把它声明为 变体型（或Variant） 。6一般可使用关键字 声明常量。7在Visual Basic语言中有三种形式的循环结构。其中若循环的次数可以事先确定，可使用 For 循环；若要首先判断循环进行的条件，可使用 While 循环或Do循环。8要想在代码中给一个名为mytext的文本框赋予文本“我的第一个应用程序！”时，应当编写的语句是 mytext.text=” 我的第一个应用程序！” 。9 在VB中，除了可以指定某个窗体作为启动对象外，还可以指定 Main子过程 作为启动对象。三、阅读程序题（共25分）阅读下列程序并写出运行结果。1（6分）Private Sub Form_Click() Dim x As Integer Static y As Integer x = x + 2 y = x + y Form1.Print x=; x, y=; yEnd Sub程序运行后三次单击窗体，写出Form1上的输出结果。 X=2y=2 X=2 y=4 X=2 y=62（6分）。Sub test(i As Integer) i = i + 4End SubPrivate Sub Form_Click() Dim x As Integer x = 5 Print x=; x Call test(x) Print x=; xEnd Sub 写出程序运行时，单击窗体后显示的值。 x=5 x=93（6分）Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 8 i = 1 Do While i 450 Cont2 = s1 = 88 And s2 = 88 And s3 = 88 And s4 = 88 And s5 = 88 Cont3 = s1 = 95 And s2 = 95 And s3 = 95 And s4 = 80 And s5 = 80 Cont = Cont1 Or Cont2 Or Cont3 Picture1.Cls If Cont Then Picture1.Print 学生; Text1.Text; 的成绩为优秀 Else Picture1.Print 学生; Text1.Text; 的成绩不是优秀 End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub五、编写程序题（共15分）编写一个用户界面如下图所示的列表框应用程序。 要求从文本框Text1中输入列车的起点站-终点站，然后单击“添加”按钮Command1，把该起点站-终点站信息添加到列表框List1中；当选择列表框某一选项后，单击“删除”按钮Command2，则从列表框中删除该项；当选择列表框某一选项后，单击“修改”按钮Command3，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，单击“修改确认”按钮，再把文本框在修改后的信息送到列表框且“修改确认”按钮变为“修改”。 参考答案：Private Sub Form_Load() List1.AddItem 北京-上海 List1.AddItem 北京-广州 List1.AddItem 北京-成都 List1.AddItem 北京-西安 List1.AddItem 北京-重庆 List1.AddItem 北京-天津 Text1.Text = End SubPrivate Sub Command1_Click() If Text1.Text Then List1.AddItem Text1.Text Text1.Text = Else MsgBox 请在文本框中输入信息! End IfEnd SubPrivate Sub Command2_Click() List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command3_Click() If Command3.Caption = 修改 Then Text1.Text = List1.Text Text1.SetFocus List1.RemoveItem List1.ListIndex Command1.Enabled = False Command2.Enabled