【VB开源代码栏目提醒】：网学会员鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“VB冲剌一1 - 计算机教材”一文，供大家参考学习

VB冲剌一 一、选择题 1、VB的启动有多种方法下面不能启动VB的是 A 使用“开始”菜单中的“程序”命令 B 使用“开始”菜单中的“运行”命令在弹出的对话框中输入VB启动文件的名字 C 使用“我的电脑”在VB所在硬盘驱动器中找到相应的VB文件夹 D 先打开VB的“文件”菜单再按ZltQ组合键 2、VB的工程资源管理器可管理多种类型的文件下面叙述不正确的是 A 窗体文件的扩展名为.frm每个窗体对应一个窗体文件 B 标准模块是一个纯代码性质的文件它不属于任何一个窗体 C 用户通过类模块来定义自已的类每个类都用一个文件来保存其扩展名为.bas D 资源文件是一种纯文本文件可以用简单的文字编辑器来编辑 3、下列可以打开文件对话框的操作是 ACtrlD B、CtrlE C、CtrlF D、CtrlG 4、下面对哪一种变量的类型说明符的使用是正确的 ADim a:a2000 B、Dim a:a50000 CDim a:aTrue D、Dim a:a”OK” 5、下列变量名中合法的变量名是 AC24 B、A B C、AB D、12 6、用于获得字符串S从第2个字符开始的3个字符的函数是 AMidS23 B、MiddleS23 C、RightS23 D、LeftS23 7、计算结果为0的表达式是 AInt2.4Int-2.8 B、Cint2.4Cint-2.8 CFix2.4Int-2.8 D、Fix2.4Fix-2.8 8、在窗体中添加一个命令按钮名称为Command1然后编写如下程序 Private Sub Command1_Click A1234 BStrA CLenB Print C End Sub 程序运行后单击命令按钮则在窗体上显示的内容是 A0 B5 C6 D7 9、定义变量如下 Dim My Var My Var ”come see me “ 若在立即窗口中显示My Var的值下面正确的是 ADebug.Print My Var B、PictureBox.Print My Var CPrinter.Print My Var D、Print My Var 10、在以下Form1窗体中没有采用的控件是 A文本框 B水平滚动条 C框架 D选项按钮 11、滚动条控件的LargeChange属性所设置的是 A 单击滚动条和滚动箭头之间的区域时滚动条控件value属性值的改变量 B 滚动条中滚动块的最大移动位置 C 滚动条中滚动块的最大移动范围 D 滚动条控件无该属性 12、设置一个单选按钮OptionButton所代表选项的选中状态应当在属性窗口中改变的属性是 ACaption BName CText Dvalue 13、在窗体中添加一个命令按钮名称为Command1两个文本框名称分别为Text1、Text2然后编写如下程序 Private Sub Command1_Click aText1.text bText2.text CLcasea DUcaseb PrintCD End Sub 程序运行后在文本框Text1、Text2中分别输入AbC和Efg结果是 AabcEFG Babcefg CABCefg DABCEFG 14假定窗体上有一个标签名为Label1为了使该标签透明并且没有边框则正确的属性设置为 ALabel1.BackStyle0 BLabel1.BackStyle1 Label1.BorderStyle0 Label1.BorderStyle1 CLabel1.BackStyleTrue DLabel1.BackStyleFalse Label1.BorderStyleTrue Label1.BorderStyleFalse 15选中一个窗体启动菜单编辑器的方法有 A 单击工具栏中的“菜单编辑器”命令 B 执行“工具”菜单中的“菜单编辑器”命令 C 按CtrlE D、按ShiftAltM 16比较图片框PictureBox和图像框Image的使用正确的描述是 A 两类控件都可以设置AutoSize属性以保证装入的图形可以自动改变大小 B 两类控件都可以设置Stretch属性使得图形根据物件的实际大小进行拉伸调整保证显示图形的所有部分 C 当图片框PictureBox的AutoSize自属性为Jlase时只在装入图元文件.wmf时图形才能自动调整大小以适应图片框的尺寸 D 当图像框Image的Stretch属性为True时图像框会自动改变大小以适应图形的大小使图形充满图像框 17当利用Line方法进行添加图时以下正确的说法是 A 有7种不同的线型而且不管线宽多少都可以绘制虚线/点划线/点线 B 使用Line100100-10001200和Line100100-Step9001100将绘制两条相同位置的直线 C 可利用Line方法添加矩形如Line300300-20002000BF D 可利用Line方法添加矩形如Line300300-23002300BF 18下面语句中错误的是 A Redim Preserve Matrix10UboundMatrix21 B Redim Preserve MatrixUboundMatrix1110 C Redim Preserve DynArrayUboundDynArray1 D Redim DynArrayUboundDynArray1 19可以惟一标识控件数组中的每一个控件属性的是 AName BCaption CIndex DEnabled 20、下面 不是VB的文件类控件 ADriveListBox控件 BKirListBox控件 CFileListBox控件 D、MsgBox 21、窗体中有3个按钮Command1、Command2和Command3该程序的功能是当单击按钮Command1时按钮2可用按钮3不可见正确的程序是 APrivate Sub Command1_Click B、Private Sub Command1_Click Command2.VisibleTrue Command2.EnabledTrue Command2.VisibleFalse Command2.EnabledFalse End Sub End Sub CPrivate Sub Command1_Click D、Private Sub Command1_Click Command2.EnableTrue Command2.EnabledFalse Command2.VisibleFalse Command2.VisibleFalse End Sub End Sub 23、在窗体中添加一个命令按钮Command1并编写如下程序 Private Sub Command1_Click xInputBoxx If x29 Then yx If x29 Then yx21 Print y End Sub 程序运行后在InputBox中输入3单击命令按钮程序的运行结果是 A3 B0.33 C17 D0.25 24、设有如下程序 Private Sub Form_Click Print “”Tab625 For I15 To 16 Print I For j2 To 6 Step 3 Print Tab3jjI Next j Print Next I End Sub 程序运行后单击窗体则在窗体上显示的是 25、在窗体中添加一个命令按钮名称为Command1然后编写如下程序 Private Sub Command1_MouseDownButton As Integer Shift As Integer X As Single Y As Single If Button 2 Then Print 12345 End If End Sub Private Sub Command1_MouseUpButton As Integer Shift As Integer X As Single Y As Single Print 67890 End Sub 程序运行后在命令按钮上单击鼠标右键则在窗体上显示的内容是 A12345 B67890 C12345 D67890 67890 12345 26、在窗体中添加一个命令按钮名称为Command1然后编写如下程序 Private Sub Command1_Click Dim a5b5 For j 1 to 4 Aj3j Bjaj3 Next j Text1.textbj2 End Sub 程序运行后单击命令按钮在文本框中显示 A25 B18 C36 D35 27、在窗体中添加一个命令按钮、一个标签和一个文本框并将文本框的Text属性置空编写命令按钮Command1的Click事件代码 Private Function funx As Long As Boolean If x Mod 2 0 Then fun True Else fun False End If End Function Private Sub Command1_Click Dim n As Long n Valtext1.Text p IIffunn 奇数 偶数 Lable1.Caption n 是一个 p End Sub 程序运行后在文本框中输入20单击命令按钮后标签中的内容为 A20是一个奇数 B20 C20是一个偶数 D2 28、在窗体中添加一个命令按钮并编写如下程序 Public Enum workdays sunday 5 monday tuesday wednesday thursday friday saturday invalid -1 End Enum Private Sub Command1_Click Dim day As workdays ???? End Sub 程序运行后单击命令按钮要使程序的运行结果为10则程序省略处的程序段应为 Aday Friday B、day Friday Print day Print Valday CWorkdays Friday DWorkdays Friday Print Valworkdays Print workdays 29、一个工程中包含两个名称分别为Form1、Form2的窗体、一个名称为Func的标准模块。

    假定在Form1、Form2和Func中分别建立了自定义过程其定义格式为 Form1中定义的过程 Private Sub Fun1 ???? End Sub Form2中定义的过程 Private Sub Fun2 ???? End Sub Func中定义的过程 Private Sub Fun3 ???? End Sub 在调用上述过程的程序中如果不指明窗体或模块的名称则以下叙述中正确的是 A 上述三个过程都可以在工程中的任何窗体或模块中被调用 B Fun1和Fun2过程能够在工程中各个窗体或模块中被调用 C 上述三个过程都只能在各自被定义的模块中调用 D 只在Fun3过程能够被工程中各窗体或模块调用 30、在窗体中添加一个命令按钮Command1和一个文本框Text1编写命令按钮Command1的Click事件代码 Private Sub Command1_Click Dim s As String20 SText1.text ???? End Sub 该程序的功能是当单击按钮Command1时把变量s中内容写入一个顺序文件dat1.dat中正确的程序是 AOpen “dat1.dat” For Input As 1 BOpen “dat1.dat” For Output As 1 Write 1S Write 1S Close 1 Close 1 COpen “dat1.dat” For Binary As 1 DOpen “dat1.dat” For Random As 1 Write 1S Write 1S Close 1 Close 1 二、填空题 1 随机生成一个16的随机整数的表达式是___________________。

     2 设置计时器事件之间的间隔要通过计时器的__________________属性。

     3 窗体中有两个命令按钮“显示”控件名为cmdDisplay和“测试”控件名为cmdTest。

    当单击“测试”按钮时执行的事件的功能是当在窗体中出现消息框并选中其中的“确定”按钮时隐藏“显示”按钮否则退出如Form1窗体所示请在3和4处填入适当的内容将程序补充完整。

     相关贴图 Private Sub cmdtest_Click Answer ___________3 隐藏按钮 1 If Answer vbOK Then cmddisplay.Visible ____________4 Else End End If End Sub 4下面的程序用“冒泡”法数组a中的10个整数按升序排列请在5、6和7处将程序补充完整。

     Option Base 1 Private Sub Command1_Click Dim a aArray-25245843-1087752783 For i__________5 For j___________6 If aiaj Then a1ai aiaj aja1 End If Next j _______________7 For i0 to 9 Print ai Next i End Sub 5下面程序运行后输出的结果为__________________ Private Sub Command1_Click A”Beijing” B”dalian” C”shanghai” CInstrLeftA2RightB2C Print C End Sub 6窗体中有一公共对话框Comdialog1和一个命令按钮Command1当单击按钮时打开颜色对话框。

    请在9处将程序补充完整。

     Private Sub Command1_Click ComDialog1.______________9 End Sub 7在VB中语句定义符rem定义的是___________________ 8窗体中有一组文件系统控件分别是驱动器列表框drive1、目录列表框dir1和文件列表框file1在它们下面有一个图片框pic1。

    要求选择一个BMP文件即单击文件列表框中的某个文件时将该文件显示在图片框中如Form1窗体。

    请在11、12和13处填入适当的内容将程序补充完整。

     Option Explicit Private Sub File1_Click Dim fn As String If LenDir1.Path3 Then FnDir1.PathFile1.FileName Else FnDir1.Path “” ______________11 End if Pic1.AutoSizeTrue Pic1.ScaleModevbPixels Pic1.Picture ________________12 End Sub Private Sub Form_Load File1.FileName .bmp End Sub Private Sub Dir1_Change File1.Path Dir1.Path End Sub Private Sub Drive1_Change Dir1.Path Drive1.Drive End Sub 9设在工程中有一个标准模块其中定义了如下记录类型 Type Books Name As String 10 Telnum As String 20 End Type 在窗体上添加一个名为Command1的命令按钮要求当执行事件过程Command1_Click时在顺序文件Person.txt中写入一条记录。

    请在14和15处填入适当的内容将程序补充完整。

     Private Sub Command1_Click Dim B As ______________14 Open “c:Person.txt” For Output As 1 B.NameInputBox“输入姓名” B.TelNumInputBox“输入电话号码” ___________ B.NameB.TelNum Close 1 End Sub 答案 一、选择题 1---5 DCADA 6--10 ADCAD 11-15 ADAAD 16-20 DBBCD 21-25 CDACC 26-30 BCBDA 二、填空题 1、INT6RND1 2、INTERVAL 3、MSGBOX 4、FALSE 5、 1 TO 9 6、 I1 TO 9 7、 NEXT I 8、0 9、SHOWCOLOR 10、注释语句 11、FILE1.FILENAME 12、LOADPICTUREFN 13、PATTERN 14、BOOKS 15、 WRITE 1