单项选择题
1 果设置窗体标题栏应选择( B )属性
A.Visible B.Caption C.Name D.Text
2 命令钮响应户生成事件应设置命令钮( D )属性
A.Visible B.Caption C.Enable D.Enabled
3 标签透出窗体背景应设置标签( A )属性
A.BackStyle B.BorderStyle C.Appearance D.BackColor
4 控件中( A )控件会影响界面设计效果
A.计时器 B.文框 C.标签 D.Line控件
5 Visual Basic中般( B )属性设置字体颜色
A.FontColor B.ForeColor C.BackColor D.ShowColor
6 VB中断模式调试窗口监视表达式变量值中( A )窗口中直接键入命令显示命令请求信息
A.立 B监视 C D中断
7 某计时器控件interval属性0时表示( A )
A.计时器关闭计时 C.Timer事件间隔时间0毫秒
B.Timer事件间隔时间0秒 D.计时器启动计时
8 窗体Form1Click事件程中语句:
Label1CaptionVisual Basic
语句执行前标签控件Caption属性默认值标签控件Name属性Caption属性执行语句前值分( B )
A.LabelLabel B.Label1Label1
C.Label1Visual Basic D.LabelCaption
9 ( C )控件具Caption属性
A.Label B.Form C. TextBox D.CommandButton
10 改变控件窗体中位置应设置控件( A )属性
A.Top B.Left C.Width D.Right
11 文框中选定容列( C )属性反映
A.Text B.Caption C.Seltext D.SelLenght
12 Visual Basic中变量默认类型( D )
A.String B.Integer C.Double D.Variant
13 假设已定义Integer变量xy赋值语句正确( C )
A.x + 1 y B.x y C.y x + y D.1 x
14 \Mod*四算术运算符中优先级低( C )
A.\ B. C.Mod D.*
15 列组语句变量AB值互换( B )
A.AC CB BA B.AA+B BA–B AA–B
C.AB BA D.A(A+B)2 B(A B)2
16 语句输出结果( C )
Print Format (32548500000000)
A.325485 B.325485 C.03254850 D.3254850
17 表达式4+5 \ 6 * 7 8 Mod 9 值 ( B )
A.4 B.5 C.6 D.7
18 函数Int(Rnd*10)( C )范围整数
A.(0 10) B.(010] C.[0 10) D.[0 10]
19 面( A )运算符算术运算符
A.Mod B.Like C.And D.Not
20 已知三变量ABC判断ABC否构成三角形逻辑表达式( B )
A.A > B And B > C And A > C
B.A + C > B And A + B > C And B + C > A
C.A + C > B Or A + B > C Or B + C > A
D.A + C > B And A + B > C Or B + C > A
21 面程序段运行显示结果( B )
Dim intX As Integer
If intX Then
Print intX
Else
Print intX + 1
End If
A.0 B.1 C.2 D.定
22 程序输出结果( C )
Dim a i sum
a Array(4 3 2 1)
For i 0 To 3
sum sum + a(i)
Next i
Print sum
A.4 B.6 C.10 D.定
23 程中定义变量希离开该程保存程中局部变量值应( D )关键字程中定义局部变量
A.Dim B.Public C.Private D.Static
24 通( D )删列表框中选择项
A.List属性 B.Text属性 C.Clear方法 D.RemoveItem方法
25 ListBox中没条目选中ListIndex属性值( A )
A.1 B.0 C.1 D.意
26 通( C )属性判断ListBox列表框控件项目总数目
A.ListIndex B.ListText C.Listcount D.机数
27 列表框( B )属性返回设置列表框中列表项文
A.Selected B.List C.Text D.Caption
28 设List1列表框控件List1Clear中Clear( A )
A.方法 B.象 C.属性 D.事件
29 ( D )语句删列表框List1中项
A.List1RemoveItem List1ListCount
B.List1Clear
C.List1List(List1ListCount1)
D.List1RemoveItem List1ListCount1
30 XXX添加列表框List1中第三项执行语句( B )
A.List1AddItem XXX 3 B.List1AddItem XXX 2
C.List1AddItem 3XXX D.List1AddItem 2XXX
31 户通设置菜单项( C )属性值False该菜单项失效
A.Hide B.Visible C.Enabled D.Checked
32 户通设置菜单项( B )属性值设置False该菜单项见
A.Hide B.Visible C.Enabled D.Checked
33 菜单编辑器中层次( B )属性值设置相设置索引值
A.Caption B.Name C.Index D.ShortCut
34 创建顶级菜单面( C )级子菜单
A.1 B.3 C.5 D.6
35 设计菜单时创建分隔栏( B )中输入字符()
A.名称栏 B.标题栏 C.索引栏 D.显示区
36 果程序中显示弹出菜单需调( D )方法
A.Print B.Move C.Refresh D.PopupMenu
37 单击工具栏钮会触发事件( A )
A.ButtonClick B.Change C.Load D.KeyPress
38 列存储图供控件控件( C )
A.ToolBar B.StatursBar C. ImageList D.TreeView
39 Visual Basic中文件访问方式文件分( B )
A.文文件数文件 B.序文件机文件二进制文件
C.ASCII文件二进制文件 D.数文件执行文件
40 检测文件否结束函数( C )
A.LOF() B.Len() C.EOF() D.Chr()
41 读出C盘根目录序文件studtxt中容列开方式中( C )正确
A.Open C\studtxt For Append As #1 B.Open C\studtxt For Random As #1
C.Open C\studtxt For Input As #1 D.Open C\studtxt For Output As #1
42 机文件( C )语句写数
A.Input# B.Write # C.Put D.Get
43 机文件( D )语句读数
A.Input# B.Write # C.Put D.Get
44 程序运行时驱动器列表框列( A )属性返回磁盘驱动器名称
A.Drive B.DriveName C.Chgdrive D.Drives
45 通话框控件显示标准字体话框应调( C )方法
A.ShowOpen B.ShowColor C.ShowFont D.ShowSaveas
46 改变驱动器列表框Drive属性值激活( A )事件
A.Change B.Scroll C.KeyDown D.KeyUp
47 目录列表框( B )属性返回设置前工作目录完整路径(包括驱动器盘符)
A.Drive B.Path C.Dir D.ListIndex
48 机文件中( D )
A.记录容机产生 B.记录长度意
C.记录号通机数产生 D.通记录号机读取记录
49 执行语句Open C:Studtxt For Input As #2系统( C )
A.存数存放C盘前文件夹名Studtxt文件中
B.某磁盘文件容写入C盘前文件夹名Studtxt文件中
C.开C盘前文件夹名Studtxt文件读取文件容
D.C盘前文件夹建立名Stud txt序文件
50 面象中作容器( B )
A.窗体 B.Image控件 C.PictureBox控件 D.Frame控件
51 图片框picP中加载d\hainan\zhiwubmp图文件应语句( C )
A.Picture1Picture d\hainan\zhiwubmp
B.Picture1PictureLoadPicture(d\hainan\zhiwubmp)
C.picPPictureLoadPicture(d\hainan\zhiwubmp)
D.picPPictureLoadPicture(d\hainan\zhiwubmp)
52 执行Form1Scale(0 10)(10 10)语句Form1窗体坐标系x轴y轴正方( A )
A.右 B.左 C.右 D.左
53 列图形中Shape控件绘制( B )
A.矩形 B.三角形 C.正方形 D.椭圆
54 Line(100100)Step(400400)窗体中( C )画条直线
A.(200200)(400400) B.(100100)(300300)
C.(100100)(500500) D.(100100)(400400)
55 RGB函数通红绿蓝三基色混合产生某种颜色三滚动条分输入三种基色保证输入数值效应设置滚动条( A )属性
A.MaxMin B.Smallchange LargeChange
C.ScrollChange D.Value
56 果图片框绘图方法绘制圆图片框( B )属性决定该圆颜色
A.BackColor B.ForeColor C.FillColor D.DrawStyle
57 键盘事件执行序( B )
A.KeyPressKeyDownKeyUp B.KeyDownKeyPressKeyUp
C.KeyUpKeyDownKeyPress D.KeyUpKeyPressKeyDown
58 ADO控件属ActiveX控件前必须加载Microsoft ADO Data Conctrol 60(OLE DB)ADO控件添加工具箱中添加ADO控件菜单( B )
A.工程→引 B.工程→部件
C.工具→选项 D.工程→添加文件
59 利ADO访问数库首先创建( A )象建立数库连接
A.Connection象 B.Recordset象
C.Command象 D.Object象
60 SQL语言Select语句中分组语句( B )
A.where B.group by C.order by D.having
61 四控件属数绑定控件( C )
A.Text控件 B.DataGrid控件 C.Option控件 D.Label控件
62 决定系统否动检测媒体控件(MMControl)钮状态属性( B )
A.Enable B.AutoEnable
C.PlayEnabled D.答案正确
63 媒体控件(MMControl)Frames属性设3叙述正确( A )
A.指定BackStep命令退前进帧数3
B.Back命令退帧数3
C.Step命令前进帧数3
D.退前进帧数6
64 媒体控件(MMControl)具组执行MCI命令压式钮中Record钮表示( B )
A.前首 B.录制 C.弹出 D.播放
65 媒体控件(MMControl)中录制钮显示应添加代码( C )
A.MMControl1Visible False
B.MMControl1Visible True
C.MMControl1RecordVisible False
D.MMControl1RecordVisible True
66 媒体控件(MMControl)中DeviceType属性设置媒体设备类型果播放文件CD歌曲应DeviceType属性设置( D )
A.DigitalVideo B.WaveAudio C.AVIVideo D.CDAudio
67 Windows Media Player控件UiMode属性表示播放器界面模式选项播放器模式属性值( D )
A.Full B.Mini C.None D.
68 Windows Media Player控件中决定播放文件否全屏属性( A )
A.FullScreen B.Full C.Screen D.stretchToFit
二填空题
1 数学表达式cox2x+写成等价Visual Basic表达式 cos(x)^2+Sqr(x^2y^2)2
2 数学表达式写成等价Visual Basic表达式 10^(12)*cos(50*314180) 者Sqr(10)*cos(50*314180)
3 数学式子应Visual Basic运算表达式 : Sqr(s*(sa)*(sb)*(sc))
4 1£ x <12写成Visual Basic逻辑表达式 x>1 And x<12
5 已知a3b4c5表达式a>b and Not c>a Or c>b And c6 Left (abcd2)函数返回值 ab Right(abcd2)函数返回值 cd
7 Visual Basic转换函数中数值转换字符串函数 Str(x) 数字字符串转换数值函数 Val(x) 字符转换相应ASCII码函数 Asc(x)
8 变量定义语句Dim Str1Str2 As String *10中Str1变量类型应 变体型 中Str2变量类型应 字符串型
9 数组类型基数类型户定义记录类型果省略类型说明数组会设置默认 变体类型(Variant) 数组中元素定义时果数值类型默认初始化 0 果字符串类型初始化 空字符串
10 Visual Basic中数组默认标界 0 果希1开始 Option Base n语句 语句设置
11 缺省情况Dim A(55)语句声明二维数组数组A元素 36
12 Visual Basic中参数通 值传递 址传递 两种方式传送
13 Visual Basic中变量作域分程级变量(局部变量)模块级变量全局变量3类程级变量指事件程通程定义变量作域 程 模块级变量包括窗体级模块变量标准模块级变量窗体模块变量作域 窗体程 标准模块变量作域 模块程 全局变量作域 整工程中模块程
14 基程序控制结构分序结构 选择 结构 循环 结构3种
15 Visual Basic语言中三种形式循环结构中循环次数事先确定For循环求先判断循环进行条件 While 循环 Do 循环
16 Visual Basic般4种类型文件保存分扩展名 frm 窗体文件扩展名 bas 标准模块文件扩展名 cls 类模块文件扩展名 vbp 工程文件
17 Visual Basic程序开发三种模式 设计 模式 运行 模式 中断 模式
18 Visual Basic中设置断点键 F9 逐语句调试语句 F8
19 Visual Basic中程序错误类型编译错误 实时错误 逻辑错误 三种
20 Visual Basic应程序工程文件通常三类模块组成窗体模块标准模块类模块窗体模块包含 窗体 代码 两部分 标准模块 完全代码组成代码具体象相关联般定义全局变量公程函数 类模块 定义类
21 Visual Basic中重窗体程序中第装载存窗体称 启动窗体
22 创建第钮控件象时系统动Name属性分配名字该名字 Command1
23 运行时前路径图形文件picturefilejpg装入图片框Picture1语句 Picture1 Picture LoadPrcture(picturefilejpg)
24 Visual Basic中菜单项图形控件象控件类似属性 标题 相控件Caption属性 名称 相Name属性
25 Visual Basic菜单中设置显示条分割线操作 菜单编辑器标题栏中输入
26 Visual Basic中文件系统控件包括 驱动器列表框(DriveListBox) 目录列表框(DirListBox) 文件列表框(FileListBox)三者协操作访问意位置目录文件进行文件系统机交互理
27 次重新设置驱动器列表框Drive属性时引发 Change 事件该事件程中编写代码修改目录列表框路径目录列表框容发生改变
28 驱动器列表框说次重新设置驱动器列表框 Drive 属性时引发Change事件目录列表框说 Path 属性值改变时引发Change事件文件列表框重新设置 Path 属性引发Change事件
29 执行指令Line (200200) – Step (500500)CurrentX= 700
30 执行指令Line (200200) – (500500)CurrentX= 500
31 图片框PictureBoxAutoSize属性设置成 Ture 时图片框动调整适应中图片
32 LabelTextBox控件显示输入文果仅需应程序窗体中显示文信息 Label 控件允许户输入文应 TextBox 控件
33 文件存取方式文件分序文件 机文件 二进制文件
34 ADO模型中般通Connection象 Execute 方法执行增加删修改操作ADO模型时建立RecordsetConnection象连接属性 ActiveConnection
35 ADO数模型中般通Connection象 Execute 方法数库中基表进行增加删修改等返回结果集操作
三程序阅读题
1 阅读程序写出功
Private Sub cmdWhy_Click()
' cmdWhy命令钮lblHelloVB标签txtHelloVB文框
lblHelloVB Caption 什学VB
txtHelloVB (1)VB简单易学开发效率高通性强途广泛 _
+ vbCrLf + vbCrLf + (2)VB国外流行程序设计语言 _
+ 学开发Windows应程序首选程序设计语言
End Sub
该程序功:单击cmdWhy钮lblHelloVB标签显示什学VBtxtHelloVB文框显示容:
1.VB简单易学开发效率高通性强途广泛
2.VB国外流行程序设计语言学开发Windows应程序首选程序设计语言
2 阅读程序写出功
Private Sub cmdWhat_Click()
' cmdWat命令钮lblHelloVB标签txtHelloVB文框
lblHelloVB Caption VB干什
txtHelloVB VB快速实现户界面设计 _
+ 文字图形图处理数库开发媒体数库 _
+ 网络图形等方面应程序开发组 _
+ 工具型企业应系统遍全球分布式应程序
End Sub
该程序功:单击cmdWhat钮lblHelloVB标签显示VB干什txtHelloVB文框显示容:
VB快速实现户界面设计文字图形图处理数库开发媒体数库网络图形等方面应程序开发组工具型企业应系统遍全球分布式应程序
3 阅读程序写出功
Private Sub cmdHow_Click()
' cmdHow命令钮lblHelloVB标签txtHelloVB文框
lblHelloVB Caption 学VB
txtHelloVB (1)实际应程序开发程中学VB程序设计 _
+ vbCrLf + vbCrLf + (2)学会分析问题解决问题思路 _
+ 算法设计实现方法 + vbCrLf + vbCrLf _
+ (3)学会利MSDN资源 + vbCrLf + vbCrLf _
+ (4)养成良编程惯
End Sub
该程序功:单击cmdHow钮lblHelloVB标签显示学VBtxtHelloVB文框显示容:
(1)实际应程序开发程中学VB程序设计
(2)学会分析问题解决问题思路算法设计实现方法
(3)学会利MSDN资源
(4)养成良编程惯
4 阅读程序写出功
Sub newQuestion()
Dim intOp1 As Integer intOp2 As Integer intTemp As Integer
Dim strOprator As String
Dim intOpratorNum As Integer
Randomize
intOp1 Int(10 * Rnd + 1)
intOp2 Int(10 * Rnd + 1)
intOpratorNum Int(4 * Rnd + 1)
Select Case intOpratorNum
Case 1
strOprator + intAnswer intOp1 + intOp2
Case 2
strOprator -
If intOp1 < intOp2 Then
intTemp intOp1 intOp1 intOp2 intOp2 intTemp
End If
intAnswer intOp1 intOp2
Case 3
strOprator × intAnswer intOp1 * intOp2
Case 4
strOprator ÷
If intOp1 < intOp2 Then
intTemp intOp1 intOp1 intOp2 intOp2 intTemp
End If
If intOp1 Mod intOp2 <> 0 Then
intOp1 intOp1 intOp1 Mod intOp2
End If
End Select
' lblQuestion标签
lblQuestionCaption intOp1 & & strOprator & & intOp2 &
End Sub
该程序机出题程机产生两10操作数机产生操作符(+-×÷)果减法法时第操作数第二操作数时交换两操作数果法时减两数相余数标签lblQuestion显示题目
5 阅读程序写出功
Public Function Avg_mark(MarkArray() As Single) As Single
Dim sngSum As Single i As Integer n As Integer
sngSum 0
n UBound(MarkArray)
For i 0 To n
sngSum sngSum + MarkArray(i)
Next i
Avg_mark sngSum n
End Function
该程序求均值函数单精度数组作参数先求出数组元素数接着求出数组元素出该数组均值
6 阅读程序写出功
Public Function Max_Mark(MarkArray() As Single) As Single
Dim sngMax As Single i As Integer n As Integer
sngMax 0
n UBound(MarkArray)
For i 0 To n
If MarkArray(i) > sngMax Then sngMax MarkArray(i)
Next i
Max_Mark sngMax
End Function
该程序求值函数单精度数组作参数先求出数组元素数接着逐较求出数组元素值
7 阅读程序写出功
Public Function Pass_Mark(MarkArray() As Single) As Single
Dim intCount As Integer i As Integer n As Integer
intCount 0
n UBound(MarkArray)
For i 0 To n
if MarkArray(i) > 60 Then intCount intCount + 1
Next i
Pass_Mark intCount n
End Function
该函数功求组数中等60数例单精度数组作参数先求出数组元素数接着逐较求出数组元素中等60数数求出例
8 阅读程序写出功
Private Sub Sort_Mark(MarkArray() As Single)
Dim sngMtemp As Single
Dim i As Integer n As Integer k As Integerj As Integer
n UBound(MarkArray)
For i 0 To n – 1
k i
For j i + 1 To n
If MarkArray(j) > MarkArray(k) Then k j
Next j
sngMtemp MarkArray(k)
MarkArray(k) MarkArray(i)
MarkArray(i) sngMtemp
Next i
End Sub
该程功组数排序单精度数组作参数先求出数组元素数接着逐较求出数组元素中值第元素交换位置求出次值第二元素交换位置次类推完成排序
9 阅读程序写出功
Private Sub changecolor()
Dim r As Integer g As Integer b As Integer
Dim x As Long
' hsbRedhsbGreenhsbBlue水滚动条
hsbRedMin0 hsbGreenMin0 hsbBlueMin0
hsbRedMax255 hsbGreenMax255 hsbBlueMax255
r hsbRedValue
g hsbGreenValue
b hsbBlueValue
x RGB(r g b)
frmMainBackColor x
End Sub
该程功红色绿色蓝色三滚动条调节窗体底色先红色绿色蓝色三滚动条Min属性设置0Max属性设置255接着取出三滚动条Value属性值RGB函数产生红绿蓝三Value属性值混合成新颜色作窗体底色
10 阅读程序写出功
Public ADOcn As Connection
Public Sub Main()
Dim strAccess As String
strAccessProviderMicrosoftJetOLEDB40Data Sourced\ xsmdb
If ADOcn Is Nothing Then
Set ADOcn New Connection
ADOcnOpen strAccess
End If
frmMainShow ' frmMain窗体
End Sub
该段程序功建立数库连接实现D盘根目录文件名xsmdb Access数库连接时显示frmMain窗体
11 阅读程序写出功
Public ADOcn As Connection
Public ADOrs As New Recordset
Private Sub cmdAdd_Click()
Dim strSQL As String
'文框txtNotxtName组合框cboSexcboClass
'分输入学号姓名性班级
strSQL select * from 学生表 where 学号' + txtNoText + '
ADOrsOpen strSQL ADOcn
If Not ADOrsEOF Then
MsgBox 该记录已存继续增加 vbCritical + vbOKOnly
ADOrsClose
Exit Sub
End If
strSQL insert into 学生表(学号姓名性班级)
strSQL strSQL + values(' + txtNoText + '' + txtNameText + '
strSQL strSQL +' + cboSexText + '' txtClassText + ')
ADOcnExecute strSQL
End Sub
该段程序功学生记录插入学生表中首先查找数表中否存文框txtNo中输入学号果存增加果存该学生信息记录插入学生表中
四程序设计题
1 编写程序程序初始界面图1左图示设学目学方法退出命令钮名称定义cmdAimcmdWaycmdExit标签控件名称定义lblContent单击学目钮显示图1中图示单击学方法命令钮显示图1右图示单击退出钮时退出程序
图1
Private Sub cmdAim_Click()
lblContentCaption 开发Windows应程序
End Sub
Private Sub cmdWay_Click()
lblContentCaption 实际应程序开发程中学VB
End Sub
Private Sub cmdExit_Click()
End
End Sub
2 设计简单加法程序程序界面设计图2示设第操作数第二操作数计算结果文框名称分定义txtFirstNumtxtSecondNumtxtSum计算命令钮名称定义cmdSum
图2
Private Sub cmdSum_Click()
txtSumText Val(txtFirstNumText) + Val(txtSecondNumText)
End Sub
3 编写数制转换程序运行界面图3示设三文框名称框定义分TxtDecTxtHexTxtOct实现第文框中输入十进制数第二文框动显示该数应十六进制数第三文框动显示该数应八进制数提示:利文框Change事件转换函数HexOct
图3
Private Sub TxtDec_Change()
TxtHexText Hex(Val(TxtDecText))
TxtOctText Oct(Val(TxtDecText))
End Sub
4 编写猜数字程序程序产生机数户猜数提示户猜数否太太程序运行界面4示设输入文框名称框定义TxtAnswer神秘数评价标签控件名称框定义lblCommentlblNum确定命令钮名称定义cmdOk
图4
Dim intNum As Integer '存放神秘数
Dim intCount As Integer '猜数计数
Private Sub cmdOk_Click()
intCount intCount + 1 '计数
If Val(txtAnswerText) intNum Then '猜
lblCommentCaption 猜猜 & intCount & 次
lblNumCaption intNum
ElseIf Val(txtAnswerText) > intNum Then
lblCommentCaption 太
Else
lblCommentCaption 太
End If
End Sub
Private Sub Form_Load()
Randomize
intNum Int(Rnd * 1000 + 1)
End Sub
5 编写判断闰年程序判断年闰年方法:4整100整年份闰年1980年400整年份闰年2000年两种情况外余年份年
Private Sub Command1_Click()
Dim intYear As Integer '存放年份
intYear InputBox(请输入年份)
If intYear Mod 400 0 Or (intYear Mod 4 0 And intYear Mod 100 <> 0) Then
MsgBox intYear & 年闰年
Else
MsgBox intYear & 年年
End If
End Sub
6 编写列表框应程序程序界面图5示设添加删修改钮名称定义cmdAddcmdDelcmdUpdate列表框文框名称默认求文框输入姓名然添加钮姓名添加列表框中选择列表框中某项时删钮列表框中删选择列表框中某项时修改钮列表框中选取项送文框修改钮变修改确认文框容修改修改确认钮文框中修改信息送列表框修改确认钮变修改
图5
Private Sub cmdAdd_Click()
List1AddItem Text1Text
Text1Text
End Sub
Private Sub cmdDel_Click()
List1RemoveItem List1ListIndex
Text1Text
End Sub
Private Sub cmdUpdate_Click()
If cmdUpdateCaption 修改 Then
Text1Text List1List(List1ListIndex)
cmdUpdateCaption 确认修改
Else
List1List(List1ListIndex) Text1Text
cmdUpdateCaption 修改
Text1Text
End If
End Sub
7 假设D盘驱动器已建立通信录文件(Txltxt)文件中记录包括编号户名电话号码址等4项容试编写程序实现户名查找文框中显示查找结果图6示设查找钮名称定义cmdFindname查找输入名称结果文框名称分定义txtNametxtCount记录条数标签名称定义lblCount
图6
设标准模块中已输入代码:
Type Lxr
intBh As Integer '编号
strXm As String * 8 '姓名
strDh As String * 11 '电话
strDz As String * 30 '址
End Type
Public user As Lxr
写出查询命令钮cmdFindnameClick事件代码
Private Sub cmdFindname_Click()
Dim i As Integer intCount As Integer intRecordNum As Integer
Dim strComp1 As String strComp2 As String
txtCountText 编号 姓名 电话 址 + vbCrLf
intCount 0
Open d\txltxt For Random As #1 Len Len(user)
intRecordNum LOF(1) Len(user)
For i 1 To intRecordNum
Get #1 i user
strComp1 Trim(txtNameText)
strComp2 Trim(Replace(userstrXm Chr(0) ))
' 较输入姓名文中姓名否致
If StrComp(strComp1 strComp2) 0 Then
intCount intCount + 1
Get #1 i user
msg Str(userintBh) + + userstrXm + userstrDh + userstrDz
msg Replace(msg Chr(0) )
txtCountText txtCountText + msg + Chr(13) + Chr(10)
End If
Next i
Close #1
lblCountCaption 找 + Str(intCount) + 条记录
If intCount 0 Then
MsgBox 没该记录 vbInformation 提示
End If
End Sub
8 编写函数图形程序Pset方法图形框Picture1绘制yCosxππ间图形运行结果图7示设控件默认名称
图7
Const pi 31415926
Dim x As Single
Private Sub Command1_Click()
Picture1DrawWidth 2
For x pi To pi Step 0001
Picture1PSet (x Cos(x))
Next x
End Sub
Private Sub Form_Load()
Picture1Scale (4 2)(4 2)
Picture1Line (0 2)(0 2)
Picture1Line (4 0)(4 0)
Picture1Line (pi 01)(pi 0)
CurrentX pi CurrentY 02 Picture1Print π
Picture1Line (pi 2 01)(pi 2 0)
Picture1Line (pi 2 01)(pi 2 0)
Picture1Line (pi 01)(pi 0)
CurrentX pi CurrentY 02 Picture1Print π
Picture1Line (0 1)(01 1)
CurrentX 03 CurrentY 1 Picture1Print 1
Picture1Line (0 1)(01 1)
CurrentX 03 CurrentY 1 Picture1Print 1
End Sub
Private Sub Command2_Click()
End
End Sub
9 编写键盘键程序窗体KeyDownKeyPress事件编程显示放开键时事件发生A键时程序运行界面图8示
图8
Private Sub Form_KeyDown(KeyCode As Integer Shift As Integer)
If KeyCode <> 0 Then
Print KeyDown事件:KeyCode KeyCode Shift: Shift
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print KeyPress事件:KeyAscii KeyAscii : Chr(KeyAscii)
End Sub
10 3数表:
学生表:student_info(student_idstudent_namestudent_sexstudent_class)分表示学号姓名性班级字段数类型文
课程表:course_info(course_ID course_name course_credit)分表示课程号课程名学分课程号课程名文类型学分数字类型
成绩表:mark_info(student_ID course_IDmark)分表示学号课程号成绩中学号课程号文类型mark数字类型
写出列功SQL语句:
① 插入新课程记录(课程号:A001课程名:英语1学分:5)
② 修改学号95020课程号A001成绩85
③ 查询学生基信息中文作查询结果字段名称
④ 统计出班级数
⑤ 查询出学号95020选修课程名成绩姓名
① Insert into course_info values ('A001' '英语' 5)
② Update mark_info set mark85 where student_ID '95020' and course_ID 'A001'
③ Select student_id as 学号 student_name as 姓名 student_sex as 性 student_class as 班级 from student_info
④ Select student_class count(*) from student_info group by student_class
⑤ Select student_name as 姓名 course_name as 课程名 mark as成绩from student_info course_info mark_info
where student_info student_id mark_info student_id
and course_info course_ID mark_info course_ID
and student_info student_id '95020'
11 编写ADO象中Connection象连接SQL Server数库代码
Public ADOcn As Connection
Public Sub Main()
Dim strSqlServer As String
strSqlServerProviderSQLOLEDBServer(local)User IDsa _ Passwordsa DatabaseXS
If ADOcn Is Nothing Then
Set ADOcn New Connection
ADOcnOpen strSqlServer '连接SQL Server数库
End If
End Sub
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容,不代表《香当网》观点或立场,请自行判断内容的真实性和可靠性!
该内容是文档的文本内容,更好的格式请下载文档