DOC《模拟试题一》

模拟试题一 填空题(0.

560=30) 在Visual Basic6.0中,按变量作用域的不同可将变量分为 和 两种;

声明静态变量的关键字为 ;

在Viual Basic6.0中,程序结构有 3种结构. 控制控件是否可见的属性为 ;

控制控件是否可用的属性为 ;

控件的位置是由 和 属性来确定的;

控件的大小是由 和 属性来确定;

控件上所显示的文本是由 属性来设定的;

与鼠标有关的事件包括 其中 事件在单击控件时被激发, 事件在鼠标键被按下时被激发, 事件在鼠标被松开时被激发. 与键盘有关的事件包括 其中 事件在单击键盘键时被激发,事件在按下键盘键时被激发,事件在松开键盘键时被激发. 向列表框和组合框中添加列表时,可使用 方法;

删除选定的列表,可使用 方法;

删除全部列表项,可使用 方法. 定时器控件能够响应的唯一事件为 ,并且该事件被激发的时间间隔由 属性来给定. 弹出式菜单一般不直接显示在窗体上,因此菜单的 属性一般设为False.要显示弹出式菜单可以用 方法. 在图片框绘图之前,除了要建立好坐标系之外,还必须设置好线条的类型、线条的宽度、绘图的模式、填充的样式和填充的颜色,其中线条类型由 属性来设置,线条宽度 属性来设置,绘图模式由 属性来设置,填充样式由 属性来设置. 用直线控件来画直线时,直线的起始位置由_____和______属性来确定,终止位置由_____和______属性来确定,直线的宽度由______属性来决定;

用形状控件来显示各种不同图形时,所显示的图形由______属性来决定. 顺序文件可以通过 语句或 语句将数据写入文件,而读取文件中的数据可以使用 语句、 语句或 函数来实现.随机文件和二进制文件的读操作可以通过 语句来实现,写操作可以通过 语句来实现. 在Visual Basic6.0中,程序共有 3种工作模式.错误有 3种类型. 关键数据分为 和 .其中 是对数据表内一个记录进行唯一表示的信息,而 是把一个记录与另外某个数据表中的关键字联系起来的信息. 选择题(216=32) 以下关键字中,不能定义变量的是() A.Declare B.Dim C.Public D.Private 下面变量不合法的是() A.. a2(2) B. abcd C. a$x D. CDE 以下事件中,命令按钮不能响应的事件为() A.Click事件 B.MouseDown事件 C.Change事件 D.GotFocus事件 如果要使文本框控件带有水平滚动条(假设MultiLine已设为True),则ScrollBar属性必须设为() A.0 B.1 C.2 D.3 在列表框、组合框中,当前被选中的列表项由()返回. A.List B.ListIndex C.Text D.ListCount 组合框所能响应的事件与下面哪个属性有关(). A.List B.ListIndex C.Text D.Style 当拖动滚动条的滚动框时,便会激发()事件 A.Scroll B.Change C.DropDown D.Click 定时器控件唯一能够响应的事件为() A.Click事件 B.Timer事件 C.Change事件 D.DblClick事件 含有子菜单的菜单不能设置() A.访问键 B.快捷键 C.菜单标题 D.菜单名称 要使一个菜单项变为分隔线,必须将其标题属性设为() A.下划线 B.&

C.上划线 D.减号 在设置MsgBox函数的参数值时,如果buttons值为5,则下面组合正确的是() A.vbOKonly+vbRetryCancel (0+5) B.vbOKCancel+vbYesNo (1+4) C.vbAbortRetryIgnore+vbYesNoCancel (2+3) D.vbRetryCancel (5) 图片框和图像框都是通过以下哪个属性来设置显示的图片的() A.MouseIcon B.Image C.Picture D.Icon 在图片框中所画图形的颜色与下面哪个属性有关() A.DrawStyle B.DrawMode C.DrawWidth D.ScaleMode 要想获得使用Open语句所打开的文件的大小可以使用() A.LOF函数 B.Len函数 C.FileLen函数 D.EOF函数 下面哪个语句只能从顺序文件中读出英文字符,非英文字符不能读出() A.Input#语句 B.Input函数 C.Line Input#语句 D.Get语句 Data控件的很多属性,属性用于指定Data控件所要操作的一个表或一个查询. DatabaseName属性 RecordsetType属性 Exclusive属性 RecordSource属性 程序填空题(214=28) 以下程序是为了在窗体上显示1+2+3+4+…….+100的和,请将程序填写完整. Private Sub Form_Load() Form1.AutoRedraw = Dim i As Integer Dim sum As Integer sum =

0 For i =

1 To

100 sum = Next i Print sum End Sub 窗体的Load事件中有以下代码: Private Sub Form_Load() Form1.AutoRedraw = True Dim a As Integer Dim b As Integer Dim c As Integer a =

300 b =

45 c = a * b Do While a b If a >

b Then a = a - b Else b = b - a End If Loop Print c / b End Sub 运行程序后,程序的输出为 . 以下程序是一个密码检验程序,程序界面如图1所示.当在文本框中输入密码,然后单击【确定】按钮.这是如果输入的密码为

1234 ,则弹出如图2所示的消息框;

如果输入的密码不为

1234 ,则弹出如图3所示的消息框.在图3所示的消息框中,如果单击 确定 按钮,则重新输入密码;

如果单击 取消 ,则退出程序. 图1 程序界面 图2 【密码正确】消息框 图3 【密码不正确】消息框 Private Sub Command1_Click() Dim Ret As '

密码正确,弹出 密码正确 消息框 If Text1.Text =

1234 Then MsgBox 密码正确 , vbOKOnly + vbInformation, 密码正确 '

密码不正确,则弹出 密码不正确 消息框 Else Ret = MsgBox( 密码不正确,请重新输入 , vbOKCancel + vbCritical, _ 密码不正确 ) '

根据所单击的按钮,执行不同的操作 Select Case '

单击 确定 按钮,重新输入密码 Case

1 Text1.Text = Text1.SetFocus '

单击 取消 按钮,退出程序 Case

2 Form1 End Select End If End Sub 在某个工程中,已用【菜单编辑器】设计了4个菜单:【颜色】、【红色】、【蓝色】、【绿色】,其中【颜色】为一级菜单,其 名称 属性为mnuColor, Visible 属性为True,菜单【红色】、【蓝色】、【绿色】为菜单【颜色】的子菜单.以下程序用来实现以下功能: 菜单【颜色】不显示在窗体上,即让菜单【颜色】成为弹出式菜单. 在窗体上单击鼠标左键,弹出菜单【颜色】的子菜单. 在弹出的菜单中,单击某个菜单项,窗体的背景颜色变为相应的颜色. Private Sub Form_Load() '

菜单【颜色】不可见 mnucolor.Visible End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, _ Y As Single) '

单击鼠标左键,弹出弹出式菜单 If Button = Then mnucolor End If End Sub Private Sub mnucolor1_Click() '

单击菜单【红色】,窗体的底色变为红色 Form1.BackColor = vbRed End Sub Private Sub mnucolor2_Click() '

单击菜单【蓝色】,窗体的底色变为蓝色 Form1.BackColor = vbBlue End Sub Private Sub mnucolor3_Click() '

单击菜单【绿色】,窗体的底色变为绿色 Form1.BackColor = vbGreen End Sub 以下程序用图像框控件来实现编辑图片的功能. Option Explicit Private Const small As Single = 0.5 Private Const large As Single = -1 Private Sub cmdLarge_Click() Zoom imgCar, large End Sub Private Sub cmdSmall_Click() Zoom imgCar, small End Sub '

放大、缩小处理过程 Private Sub Zoom(ByVal img As Image, ByVal ratio As Single) img.Stretch = '

通过改变图片框的尺寸和位置来实现对图片的放大和缩小 img.Left = img.Left + img.Width * ratio /

2 img.Top = img.Top + img.Height * ratio /

2 img.Width = img.Width - img.Width * ratio img.Height = img.Height - img.Height * ratio End Sub 以下程序是将驱动器列表控件、文件夹列表控件、文件列表控件3个控件组合在一起,以便实现对文件的管理,并且在文件列表控件中只显示文本文件,即扩张名为txt的文件. Private Sub Drive1_Change() Dir1.Path = Drive1. End Sub Private Sub Dir1_Change() File1.Path = End Sub Private Sub Form_Load() '

在文件列表中只显示文本文件 File1.txt End Sub 以下程序为了实现在窗体上显示九九乘法表,请在空白处填上相应的代码 Private Sub Form_Load() Dim i, j Dim s As String Form1.AutoRedraw = True For i =

1 To

9 For j =

1 To ______ s = i * j Print j &

* &

i &

= &

s, Next j Print Next i End Sub 程序改错题(110=10) 在某个工程中,已为工程设计了两个子菜单【打开】、【另存为】.以下程序用来实现以下功能: 单击【打开】子菜单,弹出【打开】对话框,从对话框中选择要打开的文件.文件中的内容显示到文本框中. 单击【另存为】子菜单,弹出【另存为】对话框,在对话框中输入要保存的文件名,然后保存文件. Private Sub mnuFileOpen_Click() Dim fName As String Dim text As String Dim textbuff As String '

设置文件过滤器 CommonDialog1.Filter = 文本文件(*.txt)|*.txt '

显示 打开 对话框 CommonDialog1.ShowOpen fName = CommonDialog1.FileName If fName Then '

打开顺序文件 Open fName For OutPut As #1 '

读取顺序文件中的内容,并将它显示到文本框中 Do While Not EOF(1) Line Input #1, text textbuff = textbuff + text Text1.Text = textbuff Close #1 End If End Sub Private Sub mnuSaveAs_Click() Dim fName As Interger Dim text As String Dim textbuff As String CommonDialog1.Filter = 文本文件(*.txt)|*.txt '

显示 另存为 对话框 CommonDialog1.ShowSave fName = CommonDialog1.FileName If fName Then '

打开顺序文件 Open fName For Input As #1 '

将文本框中的内容写入文件 Print #1, ........