中央电 VB复资料考试抄
1装载窗体窗体（ C ） A) 象 B) 属性 C) 事件 D) 方法
2设aVisual Basic面b值Basic赋值语句正确( B )
A) bLeft(a812) B) bMid(a85) C) bRight(a55) D) bLeft(a85)
3．设X整型变量正确表达1< X < 5逻辑表达式( A )
A) 1< X <5 B) X2 or X3 or X4 C) 15)
4．InputBox函数返回值类型( B )
A) 数值型 B) 字符串型 C) 逻辑型 D) 货币型
5．执行语句：Print 4+5＼6*88 Mod 9 输出值()A) 4 B) 5 C) 6 D) 7
6列循环语句正常结束循环（ C ）
A)i5 B) i1
Do Do
ii+1 ii+2
Loop Until i< 0 Loop Until i10
C)i10 D) i6
Do Do
ii+1 ii2
Loop Until i> 0 Loop Until i1
7．叙述中正确 （ A ）
A) 窗体Name属性指定窗体名称 标识窗体 B) 窗体Name属性值显示窗体标题栏中文 C) 运行期间改变窗体Name属性值 D) 窗体Name属性值空
8．VB命令钮提供Cancel属性（ A ）
A) 指定命令钮否窗体取消钮 B) 指定命令钮功停止程序运行 C) 指定命令钮功关闭运行程序 D) 指定命令钮功中断程序运行
9．命令钮失效（ A ）属性设置False
A) Enabled B) Visible C) BackColor D)Caption
10．窗体中添加两文框（Name属性分Text1Text2）命令钮（Name属性Command1）然编写两事件程：
Private Sub Command1_Click()
a UCase(Text1Text) + Left(Text2Text 3)
Print a
End Sub
Private Sub Form_Load()
Text1Text abcDEF
Text2Text 123456
End Sub
程序启动单击命令钮输出结果（ C ）A）abcDEF123456 B）abcDEF123 C）ABCDEF123 D）ab123456
11．运行程序时文框获焦点需（ B ）方法 A) Change B) SetFocus C) GotFocus D) Move
12．列语句中图片框Picture1中图形清（ A ）
A) Picture1Del B) Picture1 PictureLoadPicture()
C) Picture1 Picture LoadPicture( ) D) Picture1 PictureNothing
13． 删列表框中某项目需（ D ）方法 A) Clear B) ReMove C) Move D)ReMoveItem
14．组合框中选择某项目容程序中通（ D ）属性获 A) List B) ListIndexC) ListCount D) Text
15．数组说明语句：Dim a()AS Integera定义（ B ）
A) 定长数组 B) 调数组 C) 静态数组 D) 变类型数组
16．语句：
Type Student
Name As String Age As Integer Sex As String
End Type
Dim Stu As Student
With Stu
Name 李强 Age 21 Sex 男
End With
执行语句Print StuAge窗体显示结果（ B ）A)李强 B)21 C)男 D)Age
17子程f1调形式参数返回两结果面子程定义正确( C )
A）Sub f1(ByVal nByVal m) B）Sub f1(nByVal m)
<子程体> <子程体>
End Sub End Sub
C）Sub f1(nm) D）Sub f1(ByVal nm)
<子程体> <子程体>
End Sub End Sub
18叙述中错误( D )
A) 工程中包含窗体文件
B) 窗体文件中Private定义子程函数程窗体文件调
C) 设计VB程序时窗体模块标准模块需分保存类型文件 D) 全局变量必须标准模块中定义
19．磁盘开序文件c＼t1txt读入数做准备语句（ A ）正确
A） Fc＼t1txt B）Fc＼t1txt
Open F For Input As #1 Open F For Input As #2
C）Open c＼t1txt For Output As #1 D）Open c＼t1txt For Input As #2
20叙述中正确( B )
A) 记录中包含元素数类型必须相 B) 机文件中记录长度固定
C) Open命令作开已存文件 D) Input#语句机文件中读取数
1 设计应程序时查应程序工程组成部分窗口（D）
A 窗体设计 B代码 C属性 D工程资源理器窗口
2窗体load事件触发时机（B） A户单击窗体时 B窗体加载时 C窗体显示 D窗体卸载时
3传统程序设计语言相Visual Basic 突出特点（C）
A结构化程序设计 B程序开发环境 C事件驱动编程机制 D程序调试技术
4VB60集成开发环境窗口中包括（C） A标题栏 B菜单栏 C状态栏 D工具栏
5果象名称Mytext 象属性Text代码中引该属性正确格式（B）
A textMytext BMytextText CMytext(Text) DMytext*Text
6列激活属性窗口操作（D）
A鼠标双击窗体部位 B执行工程菜单中属性窗口命令CCtrl+F4 DF4
7假定已窗体画控件控件活动属性窗口中设置窗体属性预先应执行操作（A）
A单击窗体没控件方 B单击控件 C执行操作 D双击窗体标题
8果文框键入字符时显示某字符果（*）应设置文框（B）属性
A Caption BPasswordChar CText DChar
9果想文框中容运行时编辑需文框（A）属性设置True
A Locked BMultiLine CTabStop DVisible
10 定时器（Tiner）控制设置定时否开启属性（C）AIndex BTag CEnabled DLeft
11窗口体Fornl 显示myfrm语句（ C）
AFormcaptionmyfrmBFornlcaptionmyfrm Cformlprintmyfrm Dformprintmyfrm
12象性质状态特征称（C）A事件 B方法 C属性 D类
13列正确赋值语句（B） Ax+y20 Byx+20 C3xy Ds
14文相关帮助时选择帮助容然（D）键出现MSDN窗口直接显示需帮助信息
AHelp BF10 CEse DF1
15调试通工程文件菜单生成exe文件编绎成名exe该执行文件放机器运行原（D）A运行机器VB系统 B缺少frm 窗体文件 C该执行文件病毒 D原
1．变量作域变量划分（ B ）
A公私系统 B全局变量模块级变量程变量 C动态常数静态 DPublicPrivateProtect
2 获字符ASCII码函数（ C ） ＡVal ＢFix ＣAsc ＤChr
3退出Do…Loop循环语句（ D ）语句 AExit BExit For CEnd Do DExit Do
4 数值型转换字符串型需函数（B ）AVal BStr CAsc DChr
5关语句行列说法正确（ B ）
Ａ．行写条语句 Ｂ．条语句分行书写 Ｃ．行首字符必须写 Ｄ．长度超255字符
６．表达式6+10 Mod 4*2+1值（ A ）．Ａ．９ Ｂ．11 C．１ D3
7作Ｖisual Basic 变量名（B）．Ａ．SIN BCO1 CCOS(X) DX(1)
8表达式Ａbs(5)+Len(ABCDE)值（C）．Ａ．5ABCDE Ｂ－5ABCDE C10 D0
9代码编辑器中果条语句太长法行写（包括注释）折行书写行末续行字符（A）表示行前行继续．
Ａ．空格加划字符（＿） Ｂ．划字符（＿） Ｃ．直接回车 Ｄ．空格加字符（－）
10Sub程Function程根区（D）．
Ａ．Sub程Ｃall语句直接程名调Function程．
Ｂ．Function程参数Sub程． Ｃ．两种程参数传递方式．
Ｄ．Sub程程名返回值Function程够通程名返回值．
11＂Ｘ80非负数＂VB表达式表示正确（C）
A0≤X<80 B012设计菜单时果菜单中加入菜单分隔条菜单分隔条标题必须设置(B )
A 加号(+) B减号() C星号(*) D感叹号()
13果程序中显示弹出式菜单调Visual Basic中提供方法(D)
APrint BMove CRefresh DPopupMenu
14列存储图供象控件(C ) AToolBar BStatursBar CImageList DTreeView
15单击工具拦扭时会触发事件(A ) AButtonClick BChange CLoad DKeyPress
16利公话框控件显示开文件话框需调控件(B )方法
AShowPrinter BShowOpen CShowSave DShowColor
17窗体级变量列说法中错误(C )
A窗体子程序访问 B窗体子程序访问
C窗体发子程序访问Private定义窗体级变量 D定窗体通区定义
18字符串中第3字符开始获取5字符应(B) ALen函数 BMid函数 CLeft函数 DRight函数
19面语句定义数组元素数(D ) DimA(3 To 5)As Integer A6 B7 C8 D9
20程序段 Dim strl As String*5 StrlVisual Basic
该段程序执行完时变量strl值(B ) AVisual BVisua CV DVisual Basic
1Visible Basic根计算机访问文件方式文件分成三类中包括（B）
A．序文件 B Unix文件 C 二进制文件 D 机文件
2机文件进行文件读取单位（B） A．字节 B记录 C整文件 D字符
3目录路径列表框Dir1容符合驱动器列表框Drive1选择应（B）
A． Dir1_Click事件中加入Dir1PathDrive1Drive B． Drive1_Click事件中加入Dir1PathDrive1Drive
C． Dir1_Click事件中加入Drive1Path Dir1Drive D．Dir1_Click事件中加入Drive1Path Dir1Drive
4drive1驱动器列表框dir1目录路径列表框file1文件列表框步协调工作需（B）
A． drive1Change事件程中加入drive1Drivedir1Pathdir1Change事件程中加入dir1Pathfile1Path代码B． drive1Change事件程中加入dir1Path drive1Drivedir1Change事件程中加入file1Path dir1Path代码 C． dir1Change事件程中加入dir1Path drive1Drivefile1Click事件程中加入file1Path file1fileName代码D．dir1Change事件程中加入dir1Path drive1Drivefile1Click事件程中加入file1Path dir1Path代码
5面关序文件描述正确（A）
A． 条记录长度必须相 B． 通编程文件中某条记录方便修改
C． 数ASCII码形式存放文件中通文编辑软件显示 D．文件组织结构复杂
6KILL语句VB语言中功（C） A．清存 B清病毒 C删磁盘文件 D清屏幕
7改变坐标度量单位（D） C Scale方法 D ScaleMode属性
8属性方法中重定义坐标系（C） C Scale D ScaleMode属性
9Line方法画直线前坐标（C） A(00) B直线起点 C 直线终点 D 容器中心
10Line (200 200)Step( 500 500)窗体（C）画直线 A．（200 200）(500 500) B （200 200）(300 300) C（200 200）(700 700) D （300 300）(500 500）
11设置象边框类型属性（B） A Drawstyle B Borderstyle C DrawWidth D ScaleMode
12清图片框Picture1中图形应采取正确方法（B）
A． 选择图片框然Del键 B． 执行语句Picture1pictureLoadPicture()
C． 执行语句Picture1picture D．选择图片框属性窗口中选择Picture属性条然回车键
13绘制种形状图形需设置Shape控件（A）属性 A．Shape BBorderstyle C FillStyle D Style
14绘制种形状直线需设置Line控件（B）属性 A．Shape BBorderstyle C FillStyle D Style
15果准备读文件开序文件textdat正确语句（C）
A open textdat for write As #1 B open textdat for Binary As #1
C open textdat for Input As #1 D open textdat for Random As #1
16果准备机文件中写入数正确语句（C） C Put #1 rec D Get #1 rec
17列CommandDialog1控件程序代码CommandDialog1Action1代表（B）
A．文件存 B 开文件 C 色彩 D 印
18FileFilterPattern*bat 程序代码执行会显示（A）A 包含扩展文件名*bat文件 B 第bat文件C． 包含文件 D 会显示磁盘路径
19列数象模型中采OLE DB访问数库（C）A． DAO B RDO C ADO D RDOADO
20 设ADOrsRecordset象学生基情况表中获取记录语句（B）
A． ADOrsNew Select * From 学生基情况表 B． ADOrsOpen Select * From 学生基情况表
C． ADOrsExecute Select * From 学生基情况表 D．ADOrs Select Select * From 学生基情况表
21VB中变量xl声明Excel应程序象方法（A）
A． Dim xl As ExcelApplication B Dim xl As ExcelWorkbook
C Dim xl As ExcelWorksheet D Dim xl As ExcelWorksheets
1 WinsockServerLocalPort10001语句含义（ A ）
A设置侦听端口 B设置计算机IP址 C设置中断址 D设置通讯协议
2Winsock控件处关闭状态时State属性值（ B ）A1 B0 C2 D6
3相UDP协议言TCP协议种（ A ）
A面连接协议 B连接协议 C计算机间建立连接 D适传送少量数
4VB程序中通常会产生错误提示（ D ）A编译错误 B实时错误 C运行时错误 D逻辑错误
5VB程序编译错误般通VB集成环境种设置动检测（ B ）
A求变量声明 B动语法检测 C动显示快速信息量 D根法动检测
6VB程序中设置断点键（ C ）AF5键 BF6键 CF9键 DF10键
7On Error Go To ErrLB语句中ErrLB含义（ A ）
A行标识号 BSUB程名 CFUNCTION程名 D错误号
8Err象中表示错误描述属性（ B ）AErrNo BDescription CNumber DSource
1 Visual Basic程序中分隔行中语句字符（ B ：）
2 列作Visual Basic变量名（ ） A Filename B A（A＋B） C AD D Print
3 菜单项效应（ ）属性值设置False A Visible B Enabled C Moveable D Checked
4 程（ ）事件
Prviate Sub Form_Load( ) ……End Sub A 命令钮单击 B 命令钮装载C 窗体装载 D 窗体单击
5 Vb中描述文件扩展名（ ）属性 A Drive B Pattern C FileName D Path
6 关Visual Basic中事件说法中正确（ ） [ ]
A 事件Visual Basic预先定义够象识动作 B DblClick（双击）Visual Basic中种事件
C 象识事件 D系统提供象识事件需程序员定义
7 列控件中设置滚动条（ ） A 检查框（复选框） B 框架 C 文框 D 标签框
8 Visual Basic中建立空窗体( )会默认名 A Form1 B Form2 C Formx D Form10
9 Const One&1One（ ）类型常数 A 整型 B 字节型 C长整型 D单精度型
10 关逻辑型数列说法错误（ ）
A 逻辑型数两种值：True者FalseB 逻辑值转换数值时False转0True转1
C 类型数转换逻辑数时非0数转换True0转换False D 逻辑型数2字节存储
11 （ ）Visual Basic特点
A 结构化程序设计 B 集成视化程序开发环境 C 事件驱动编程机制 D 户编程思想动转换成程序代码
12 窗体load事件实现功（ ）
A 确定窗体位置 B 存中清楚窗体C 程序启动时属性变量初始化 D 重画窗体
13 单复选框控件名称（ ） A OptionBotton B CheckBox C PictureBox D Image
14 禁止窗体移动设置窗体（ ）属性FalseA．Moveable B Move C MinButton D ControlBox
15 设置定时器定时间隔设10秒应（ ）属性值设10000A Interval B Value C Enabled D Text
16 （ ）文件夹列表框A DirListBox B DriveListBox C FileListBox D ComboBox
17 （ ）通话框字体话框中返回户选择字体名A FileName B Path C FontName D Color
18 列操作清文框象Text1容（ ）A Text1Text B Text1cls C Text＝ D cls
19 想通单击Command1弹出Form2窗体Command1单击事件中（ ）命令
A Load Form2 B Form2Show C Form2SetFocus D Form2PopupMenu
20 属性中运行时起作（ ）A Caption属性 B Visible属性 C BorderStyle属性 D Picture属性
21 运行时文框获输入焦点调文框象（ ）方法实现A Refresh B GetFocus C SetFocus D Tab
22 窗体中利Print方法输出文信息时信息输出位置（ ）属性设置A Left B Top C xy D CurrentXCurrentY
23 语句：Dim student(105 to 100) 定义（ ）维数组A 2 B3 C 5 D10
24 默认情况语句：Dim student(10 to 11 4) 定义数组（ ）元素
A 20 B22 C 10 D11
25 已知Eng(1)90Math(1)80Comp(1)95 Total(1) Eng(1)+Math(1)+Comp(1)Total(1)（ ）A 265 B90 C 80 D95
26 已知通代码语句： Dim A( ) As Integer某事件代码中（ ）正确
A ReDim A(304) B ReDim A(4) As C ReDim A(100) D ReDim A( )
27 Int（23512）值（ ）A23 B24 C 24 D23
28 ASCII码转换成字符串函数（ ）A Chr B Str C Asc D Val
29 表达式 Mid(Beijing200844)值（ ）A Beij B jing C inj2 D 2008
30 A+314+2Val（A）值（ ）A +314+2 B +514 C 314 D 514
1数学式子：写成VB数值表达式（ Sqr(1+3141592*Sin(25*314159180)) ）
2．设A5B6C7D8表达式3>2*B OR AC AND B<>C OR C>D值（ True ）
3．Case子句中表达式表列具形式：<表达式1> To <表达式2>含义：测试表达式值等（ 指定范围值 ）时执行该Case子句相应语句块
4．执行面程序段x值（ 12 ） x0 For i1 To 8 Step 3 xx+i Next i
5．图片框放置控件称图片框（ 子 ）象窗体图片框（ 父 ）象
6．命令钮Command1Caption属性值赋文框Text1Text属性语句( Text1TextCommand1Caption)
7．复选框Value属性（ 1 ）时表示复选框选中
8 滚动条获取某范围数值输入垂直滚动条Value属性值递增变化应设置滚动条Min属性值( Max )属性值
9．语句：Dim A(3 to 4) as Integer定义维数组A元素数（ 8 ）
10．定子程：
Function fun(ByVal num As Long) As Long Dim k As Longi As Integer
k1 For i1 To num kk*i Next i End Function
执行语句Print fun(5) 窗体显示结果（ 0 ）
1 进入VB集成开发环境发现没显示工具箱窗口应选择 视图 菜单 工具箱 选项工具箱窗口显示
2VB中事件程名 象名 事件名 构成
3 工程文件扩展名 vbp 窗体文件扩展名 frm
4象时代码数集合例Visual Basic 中 窗体 钮 文框 等象
5象方法 实施某种操作功 方法需参数没返回值调象方法格式 象名方法名 例窗体Forml Show 方法应写成 form1show
6文框显示滚动条需 ScrollBars 属性设置 3
7欲设置定时时间间隔4秒属性Interval 值 4000
8标签框Caption属性做动调整应 AutoSize 属性设置 True
9通 窗体布局窗口 设计时直观调整窗体屏幕位置
10想代码中名 txtshow 文框赋予文：GOOD WORK时应编写语句 txtshowtext GOOD WORK
11命令钮名称Cmdopen程序求单击命令钮开窗口frml请事件程填空
Private Sub Cmdopen click() Frm1show End Sud
12事件象发生事情Visual Basic中事件 单击 装入 鼠标移动 等象响应事件 户建立新事件事件程指 响应某事件执行代码 假设某事件程：
Private Sub cmd1_Click() Form1CaptionVB示例 End Sub
响应程象名 cmd1 事件名 Click
13象方法 象实施某种操作功 方法需参数没返回值调象方法格式 象名方法名 例窗体Form1 Show 方法应写成 Form1 Show
14编写代码时动语法检查必须执行 工具 菜单中 选项 命令开 选项 话框然选择编辑器选项卡中 动语法检测
15定时器（Timer）控件识事件 Timer 生该事件时间间隔定时定时器 Interval 属性设置单位 毫秒
1．菜单般_拉式__弹出式__两种基类型
2．通话框控件显示常话框_开__保存__颜色__字体__印_
3．组合框具__文框___列表框_两种控件基功
4．数组默认标1开始应窗体标准模块代码声明部分语句__Option Base 1_
5．调Sub程时__call__语句语句程序控制传送Visual BasicSub程
6．已建立Form1Form2两窗体默认启动窗体Form1通_工程_菜单__属性_命令_通_选项卡启动窗体设置Form2程序中显示Form1窗体执行_Form1show_语句
7．列表框中项目序号_0_开始
8．Sub程Function程根区_Sub程名返回值Function程名返回值
9．VB代码存储模块中VB中提供三种类型模块：_类模块__窗体模块___标准模块_
10．Hide方法会隐藏调窗体调Hide方法会窗体卸载_调窗体中属性已处存中11．列数学式子写成VisualBasic表达式
⑴ 答：2*cos(a)*sin(a)(2*a) ⑵答：sqr(s*(sa)*(sb)*(sc)) ⑶sin45°sin(45*2*31415360)_
12列数学式子条件写成VisualBasic逻辑表达式
⑴1≤x<12 1C OR (ac) ⑶ab正整数负数 (a>0 and b>0) or (a<0 and b<0)
13．设A2B3C4D5表达式Not AA+C值_False_
14．Visual Basic语言中三种形式循环结构中循环次数事先确定_For…next__循环求先判断循环进行条件_Do while…loop_循环_ while…Wend_循环
15．语句输出结果__3_ a314159 Print a
1果新建序文件Open语句时操作方式关键词 output
2．Visual Basic程序中实现复制文件C：＼commandcomD盘根目录语句 filecopy c＼commandcomd＼
3 Visual Basic程序中实现删文件D＼temtmp语句__kill d＼temtmp
4文件号1开序文件SEQNEWDAT写入数语句___open SEQNEWDAT for output as # 1
5文件号2开序文件SEQOLDDAT该文件读出数语句___open SEQOLDDAT for input as #2
6窗体左角坐标(200250)右角坐标(300150)X轴正 右 Y轴正 _
7Stretch属性设置_false_时图框动改变适应中图形
8图片框Picture1中画左角(500500)边长500红色实心正方形语句_picture1line (500500)step(500500) vbred BF
9设 CurrentX50CurrentY100执行指令line(10020)Step(300500)Current_(400520)_
10ADO模型时通ActiveConnect属性建立RecordsetConnection象连接
11VB中数库分数库 远程数库__外部数库_三种类型
12采ADO模型时Open方法开记录集ADOrsFields(学号)等效语句_ADOrs(符号)_
13ADO模型中般通Connection象Execute方法执行增加__删_修改_等三类返回结果集SQL语句
14设StrSQLStr1字符串变量中Str1值001执行赋值语句StrSQLSelect * from Tabel1 Where学号’+Str1+’StrSQL值等_select * from tabel1 where 学号’001’_
15VB中Foxpro称外部数库Access称__数库_SQL Server称__远程数库__
1Winsock控件时旦数达首先触发该控件DataArrival事件果发送数通常该控件senddata方法 2Winsock控件编制基TCPIPUDP协议通话程序
3ActiveXEX文件缀exe 4COM象两种类型接口标准接口户接口
5果希计算机IP址Winsock控件localIP属性
6Winsock控件BytesReceived属性返回接受数通常getdata方法获取数
7Winsock1Listen语句含义服务程序处侦听状态等客户访问
8常中VB网络编程控件Winsock Internet TransferWebBrowser 三种
9VB中程序错误类型编译错误逻辑错误实时错误等三种
10 VB中关闭错误捕获机制语句on error goto 0
1Visual Basic中种控件组合文框列表框特性种控件_组合框______
2Visual Basic提供数文件三种访问方式机访问方式__序访问方式_______二进制访问方式
3运行时d＼pic文件夹图形ajpg装入图片框Picture1语句_____Picture1pictureLoadPicture(d＼pic＼ajpg)______
4计时器控件规律定时间间隔触发__Timer_____事件执行该事件程中程序代码
5Visual Basic应程序中标准模块文件扩展名__bas__________
6数学表达式cos2(a+b)÷(3+x)+5应Visual Basic表达式__(cos(a+b)）^2(3*x)+5___________
7时选定窗体控件住__Shift_______ Ctrl____键然次单击窗体控件
8Visual Basic中基象___窗体_______
1 Visual Basic工程中添加新窗体窗口工具栏中选择_添加窗体______钮
2 代码窗口中输入某行代码回车键果代码变成__红色____颜色说明该行代码语法错误
1什视化编程事件驱动？
答：视化编程指须编程仅通直观操作方式完成界面设计工作种编程方式
VB应程序运行系统处等状态某事件发生程序执行事件事件程事件程执行完系统处等事件发生状态事件驱动程序方式
2象属性事件文件间关系？
答：象代码数封装体象操作通该象关属性事件方法描述
属性象基特性象属性方法象执行动作事件象发生事情
3简述事件驱动机制传统编程方式答：传统面程应程序中应程序身控制执行部分代码种序执行代码程序第行代码开始执行应程序中预定路径执行户法改变程序执行流程事件驱动机制户决定执行路线两者
4简述事件驱动工作程答：事件驱动工作程：（1）启动应程序装载显示窗体（2）窗体窗体控件等事件发生（3）某事件发生执行应事件程代码（4）重复执行（2）（3）直遇END语句单击结束钮停止程序运行
1简述基Sock e t通信程
答：Socket计算机提供通信端口通端口时具Socket接口计算机进行通信应程序网络传输接收信息通Socket接口实现需Socket接口进行数读写操作
2简设计错误处理程序3步骤
（1）捕捉错误强制程序跳转（2）编写错误处理程序预见错误作出反应（3）退出错误处理程序
3简述常程序调式技巧
（1）事先做备份（2）分离受怀疑程序（3）缩搜索范围（4）MSGBOX语句
4简述基Winsock控件开发模式
（1）服务器程序开发模式：(A)服务器程序必须设置LOCALPORT作侦听端口该值设置成意整数应谐没值均惯应1000（B）LISTRN方法服务器进入侦听状态等客户机程序连接请求（C）客户机程序发出连接请求触发服务器程序CONNECTIONREQUEST事件该事件参数REQUESTID（D）服务器程序ACCEPT方法接受客户机程序REQUESTID请求服务器程序SRNDDATA方法客户机发送数时应特注意两点：ACCEPT方法必须步REQUESTID作参数二执行ACCEPT方法前服务器处侦听状态时应首先CLOSE方法关闭服务器然调ACCEPT方法（E）服务器程序接收数时会产生DATAARRIVAL事件该事件中GETDATA方法接收数
(2)客户机程序开发模式：（A）客户程序首先应设置REMOTEHOST属性指运行器程序机名IP址
（B）设置REMOTEPORT属性指服务器程序侦听端口号（C）CONNECT方法服务器提出连接请求
（D）果服务器接受述连接请求客户机程序会产生CONNECT事件根需事件中编写程序MSGBOX函数户提示连接已成功类信息（E）连接成功根需SENDDATA方法服务器发送数
（F）客户机程序接收数时会产生DATAARRIVAL事件GETDATA方法接收数
1 简述文档特性
答：定义：文档界面(MDIMultiple Document Interface)允许创建单容器窗体中包含窗体应程序绝数基Windows型应程序文档界面例Microsoft WordMicrosoft Excel等文档界面时开文档简化文档间信息交换
文档界面特性：
子窗体均显示MDI窗体工作区中户改变移动子窗体限制MDI窗体中
化子窗体时图标显示MDI窗体务栏中化MDI窗体时子窗体化MDI窗体图标出现务栏中
化子窗体时标题MDI窗体标题起显示MDI窗体标题栏
MDI窗体子窗体菜单子窗体加载时覆盖MDI窗体菜单
2 简述话框分类特点
答：分类：话框分3种类型：预定义话框通话框定义话框
预定义话框称预制话框系统提供VB提供两种预定义话框输入框信息框(消息框)前者InputBox函数建立者MsgBox函数建立具体法参见第4章
通话框种控件种控件设计较复杂话框
定义话框称定制话框种话框户根需进行定义输入框信息框容易建立应定限制情况法满足需户根具体需建立话框章介绍两种话框通话框定义话框特点：般情况户没必改变话框边框固定
退出话框必须单击中某钮通单击话框外部某方关闭话框
话框中化钮(Max Button)化钮(Min Button)免意外扩缩成图标
话框应程序工作区时必须关闭
1．x输入值分4812时写出执行列事件程输出结果
Private Sub Command1_Click()
Dim x y
x InputBox(请输入x值：)
Select Case x
Case 1 3 5 7
y x + 10
Case 8 To 10
y x + 2
Case 2 4 6
y 5 * x
Case Is > 10
y x * x + 1
End Select
Print x x y y
End Sub
x4 y20 （ 记换行） x8 y10 （ 记换行） x12 y145
2 写出执行列事件程输出结果
Private Sub Command1_Click()
Const n 3
Dim i As Integer k As Integer
For i 1 To n
Print Tab((n i) * 2 + 1)
Next k
For k i 1 To 1 Step 1
Print Str(k)
Next k
Print
Next i
End Sub
1
1 2 1
1 2 3 2 1
3设窗体（图示）中已设置组合框Combo1文框Text 1列程序试写出事件程Combo1_Click功
Dim str As String
Private Sub Form_Load()
str
Combo1AddItem 北京
Combo1AddItem 天津
Combo1AddItem 西安
Combo1AddItem 海
Combo1AddItem 武汉
Combo1AddItem 广州
Combo1AddItem 海口
Combo1Text 北京
End Sub
Private Sub Combo1_Click()
str str & Combo1Text &
Text1Text str
End Sub
文框中显示单击组合框列表项目时该项目容添加方式文框中显示选择项目容
4 写出执行列事件程输出结果
Private Sub Form_Click()
Dim a(1 To 2 1 To 2) As Integer
Dim i As Integer j As Integer
For i 1 To 2
For j 1 To 2
a(i j) (2 * i 1) * 4 + j
Next j
Next i
For i 1 To 2
Print a(i 3 i) a(3 i i)
Next i
End Sub 6 13 （ 记换行） 13 6
5．写出执行列事件程输出结果
Private Sub Command1_Click()
Dim a As Integer b As Integer
a 3 b 2
Call f(8 a)
Print a a b b
Call f(a b)
Print a a b b
End Sub
Private Sub f(ByVal x As Integer y As Integer)
x x + 1 y y 1
End Sub a2 b2 （ 记换行） a2 b1
6．窗体模块：
Dim a As Integer
Private Sub test()
Private Sub Command1_Click()
a 2 b 3
Call test
Call test
End Sub
写出程序启动单击命令钮窗体中显示结果Sub： 3 1 （记换行） Sub： 4 1
1 面事件程功：输入某学生某门课程百分制成绩根成绩输出评语0≤成绩＜60 时评语差60≤成绩＜70时评语通70≤成绩＜80时评语中等80≤成绩＜90时评语良90≤成绩≤100时评语优秀横线填适容
Private Sub Command1_Click()
Dim s
s InputBox(请输入学生成绩：)
If 0Select Case (1) s
(2) Case ElseIs >0
Print 差
End Select
End If
End Sub
2面程序功：计算 f1 1(2×3)+1(3×4)1(4×5)+ … +1(19×20)值横线填适容
Private Sub Form_Click()
Dim f As Singlei As Integersign As Integer
（3） sign1
f 1
（4） for i2 to 19
f f + sign(i*(i + 1))
（5） signsign*(1)
Next i
Print f f
End Sub
3面窗体模块功：键盘输入xyz值公式求f (xyz)值程序横线填适容
f(xyz)sin(x)(sin(xy)*sin(xz))+sin(y)(sin(yz)*sin(yx))+sin(z)(sin(zx)*sin(zy))
中xyz互相等
Function f(ByVal a As SingleByVal b As SingleByVal c As Single) (6) As Single
(7) fSin(a)(Sin(b)* Sin(c))
End Function
Private Sub Command1_Click()
sf(xxyxz)+f(yyzyx)+ (8) f(zzxzy)
Print s s
Else
Print 数输入错误
End If
End Sub
4面事件程功学生分数序文件D ＼file1dat中读取学生分数求该班均成绩横线填适容
Private Sub command1_Click()
Dim n score s
Open D＼file1dat (9) As #3 For Input
n 0 s 0
While (10) Not EOF(3)
Input #3score
s s + score
n (11) n+1
Wend
Print 均成绩： s n
Close #3
End Sub
1 假设体操赛10评委评分规定：①采10分制②掉高分掉低分然计算均分该均分作分试编写事件程输入10评委某运动员评分存放维数组s中计算该运动员分
Private Sub Command1_Click()
Dim s(1 To 10) max min i sum
max 0 min 11 sum 0
For i 1 To 10
s(i) InputBox(请输入第 & Str(i) & 评委分数)
Next i
For i 1 To 10
If s(i) > max Then max s(i)
If s(i) < min Then min s(i)
sum sum + s(i)
Next i
Print 分： (sum max min) 8
End Sub
2 勾股定理中三数abc关系：试编写事件程求出30满足述关系整数组合输出例345样整数组合
Private Sub Command1_Click()
Print abc
For a 1 To 30
For b 1 To 30
For c 1 To 30
If a*a+b*bc*c Then Print abc
Next c
Next b
Next a
End Sub
1窗体添加文框两命令钮两命令钮标题分设置隐藏文框显示文框单击第命令钮时文框消失单击第二命令钮时文框重新出现文框中显示VB程序设计（字体16）程序运行界面图示
解：隐藏文框钮中代码：Text1VisibleFalse
显示文框 钮中代码：Text1VisibleTrue Text1TextVB程序设计 Text1FontSize16
2设计计算程序该程序户界面图2示四文框：文框1（text1）文框2（text2）文框3（text3）文框4（text4）三钮：命令钮1（command1）命令钮2（command2）命令钮3（command3）组成程序运行户清钮清文框中显示容计算钮计算三科均成绩单击退出钮退出
解：command1中代码：text1： text2： text3： text4
command2中代码：text4(val(Text1)+ val(Text2)+ val(Text3))3
command2中代码：End
3编写收款计算程序求户输入商品单价数量折扣单击计算钮显示应付款单击清钮清文框中数程序运行界面图3示
答：计算钮代码：text4val(Text1)* val(Text2)* val(Text3)100
清钮代码：text1： text2： text3： text4
1Private Sub Form_Click( )
Static Sum As Integer
For I 1 to 100
SumSum+I
Next I
Print Sum
End Sub 程序运行结果：1+2+……+99+1005050
2private Sub Form_Click( )
A10 b15c20d25
Print ASpc(5)bSpc(7)c
Print ASpc(8)bSpace(5)c
Print cSpc(3)+Spc(3)c+d
End Sub
10(5空格)15(7空格)20
10(8空格)15(5空格)20
20(三空格)+(三空格)45
3Private Sub Form_click( )
For i 1 to3
Forj 1 to i
Print L Trim(Str(i))+ *+L Trim(Str(j))+ i * j
Next j
Print
Next i
End Sub
1*1 1
2*1 2 2*2 4
3*1 3 3*2 6 3*3 9
4Private Sub Command1_Click( )
Dim ab As Integer
A34
B34
Text1Texta
Text2Textb
End Sub Text1显示3 4 （记换行） Text2显示3
5Private Sub Form_Click()
For I 1 to 5
Print Tab( 11 – I )
For J 1 To I * 2 – 1
Print *
Next
Next i
End Sub
*
***
*****
*******
*********
1购物优惠程序某商场加速促成商品流通采购物折优惠办法位顾客次购物（1）100元者九五折优惠（2）200元者九折优惠（3）300元者八折优惠（4）500元者七折优惠窗体添加两文框命令钮求Text1中输入购物商品总金额单击命令钮Text2中输入优惠价格程序运行结果图解示
If Val(text1)>500 then text2Val(text1)*07
Else if Val(text1)>300 then text2Val(text1)*085
Else if Val(text1)>200 then text2val(text1)*09
Else if val(text1)>100 then text2val(text1)*095
End if
2输出100~200间3整数求Do语句种形式实现程序运行结果图5示
窗体装入事件中加入代码：
Dim a as integer
A100
Do while a <200
If (a mod 3)<> 0 then
List1additen str(a)
End if
Aa+1
loop
3编写程序印积表：
Dim I j as integer
Print*space(5)
For i3 to 12 step 3
Print str(i)space(5)
Next i
Print
For I 15 to18
Print str(i)space(3)
For j3 to 12 step3
Print str(i*j)space(4)
Next j
Print
Next j
4设计计算程序该程序户界面图7示求程序运行户选中单击选钮程序作102相应计算计算结果文框中显示出户选中加法单选钮程序作102相加计算结果12文框中显示出结束退出
法单选钮单击事件中添加代码：
Text110*2
法单选钮中添加代码：
Text1102
加法单选钮中添加代码：
Text110+2
减法单选钮中添加代码：text1102
结束钮中代码 end unload me
5编写输入0~6数字显示汉字输出星期Function程程序运行结果图8示
文框change事件中代码
Select case val(text1)
Case 0
Label1caption星期天+chr(13)+(Sunday)
Case 1
Label1caption星期+chr(13)+(monday)
Case2
Label1caption星期二+chr(13)+(Tuesday)
Case 3
Label1caption星期三+chr(13)+(wednesday)
Case 4
Label1caption星期四+chr(13)+(thursday)
Case 5
Label1caption星期五+chr(13)+(firday)
Case 6
Label1caption星期六+chr(13)+(saturday)
End select
6编写程序鼠标移Picturel控件时鼠标指针改变形状Picturel控件单击鼠标右键时通消息框显示You pressed right button次改变鼠标指针形状
Picture1_mouseup
If button2 then
I1
Msgbox you pressed right button
End if
End sub
7列表框应程序求文框中输入姓名然添加钮姓名添加列表框中选择列表框中某项时删钮列表框中删列表框中某项时修改钮列表框中选取项送文框修改钮变修改确认文框容修改修改确认钮文框中修改信息送列表框修改确认钮变修改程序运行结果图9示
添加钮代码：list1additem text1text Text1text
删 if list1text<> then
List1removeitem list1listindex
End if
修改If command3caption修改 then
Text1textlist1text
Command3caption修改确认
Else
If command3caption修改确认 then
List1listlist1listindex>text1text
Command3caption修改
End if
End if
1窗体建立驱动器列表框目录列表框文件列表框图片框求程序运行驱动器列表框Drive1默认驱动器设置C盘选择File1中列确图片文件（*Bmp*jpg）相应图片显示图片框Picture1中程序运行结果图10示
解：图10设计界面文件列表框pattern属性设置：*Bmp *jpg
驱动器列表框change事件中添加代码：chdrive drive1drive dir1pathdrive1drive
目录列表框change事件中添加代码：chdir dir1path file1pathdir1path
文件列表框click事件中添加代码：picture1pictureloadpicture file1filename
2．余弦曲线方程ycosx画出x22确余弦曲线坐标轴标出刻度图11示
图窗体单击事件中添加代码：
Form1scale ( 2*3141591) (2*314159 1)
Form1line (2*3141590) (2*3141590)
Form1line (01)(01)
Form1currentx 02：form1currentY 01print 0
Form1currentx 32：form1currentY 01print pi
Form1currentx 33：form1currentY 01print pi
Form1currentx 62：form1currentY 01print 2pi
Form1currentx 57：form1currentY 01print 2pi
Form1currentx 02：form1currentY 05print 05
Form1currentx 02：form1currentY 05print 05
For I 6282 to 6282 step 008
Form1pset(I cos(I))
Next I
3Line控件显示直线显示直线线宽线型程序运行界面图12示
图 添加代码
复选框单击事件代码：
If check1value 1 then
Line1border width 4
Else
Line1border width 1
End if
实线虚线单选框弄成option1单选框控件数组单选框单击事件代码：
Select case index
Case 0
Line1borderstyle 1
Case 1
Line1borderstyle 2
Case 2
Line1borderstyle 3
End select
4Shape控件显示种图形设置图形边框填充效果等程序运行界面图13示
首先图作出程序界面形状框架里单选框做成option1控件数组边框类型框架里单选框成option2控件数组填充风格框架里单选做成option3控件数组
Option 1单击事件代码：
Select case index
Case 0
Shape1shape 0
Case 1
Shape1shape 1
Case 2
Shape1shape 3
Case 3
Shape1shape 4
End select
Option 2单击事件代码
Select case index
Case 0
Shape1borderstyle 0
Case 1
Shape1 borderstyle 2
Case 2
Shape1 borderstyle 1
Case 3
Shape1 borderstyle 3
Case 4
Shape1 borderstyle 4
End select
Option 3单击事件代码
Select case index
Case 0
Shape1fillstyle 1
Case 1
Shape1 fillstyle 1
Case 2
Shape1 fillstyle 3
Case 3
Shape1 fillstyle 6
End select
5SQL ServerAccess建立名称学生数库中创建students数库表结构初始记录表1示ADO象MSFlexGrid控件设计数库列表显示程序程序设计界面运行结果图14图15示
表1
学号 姓名 专业
2004001 张红 软件专业
2004003 李强 会计专业
2004002 王丽 软件专业
声名象变量ADOcn创建数库连接
Private ADOcn As connection
Readfromtable
Private sub readfromtable( )
Dim strtmp As string
Dim ADOrs As new recordset
ADOrsactiveconnection ADOcn
ADOrsopen select*from students order by 学号
MSFlexgrid1clear
MSFlexgrid1rows 0
MSFlexgrid1cols 3
Strtmp 学号+vbtab+姓名+vbtab+专业
MSFlexgrid1additem strtmp
Do while not ADOrseof
StrtmpADOrs(学号)+vbtab+ADOrs( 姓名)+vbtab+ADOrs(专业)
MSFlexgrid1addttem strtmp
ADOrs movenext
Loop
MSFlexgrid1fixedcols 0
MSFlexgrid1fixedrows 1
End sub
Private sub form_load()
Dim strDB As string
strDBproviderSQLOLEDBLSFUser IDsapassworddatabase学生
if ADOcn is nothing then
set ADOcnnew connection
ADOcnopen strDB
End if
Readfrom table
End sub
Private sub command1_click()
Unload me
End sub
1利泡排序算法开发程序请指出程序中存错误改正
Private Sub Command1_Click()
Dim A( 1 To 20 )As Integer
Dim c j T As Integer ＇处错应Dim c j T as integer
机生成组数
For c 1 To 20
A(c) Int ( Rnd *100 )
Next c
排序
For c 1 To 20
For j c+ 1 To 20
IF A(c)>A( j )Then
TA ( j )
A( j )A (c)
A( j )T ＇处错应A（C）＝T实现
End If ＇A（C）A（J）交换
Next
Next
窗体输出结果
Cls
For c 1 To 20
Print A ( i ) ＇处错应A（C）．标越界．
Next c
End Sub
2利Winsock控件开发点点聊天系统该系统服务器应程序客户端应程序组成够实现网络中两台计算机间通话务
解：界面设计中说明象均采默认名称
服务器程序界面设计
1创建标准EXE工程选中工程菜单部件选项控件中找Microsoft Winsock Control 选中果没找通常VB安装安全缘找安装盘安装中Mswinsckcad 压缩包
2form1名称改 frmSvr 中添加命令钮控件Caption属性修改退出
3窗体添加三添加TextBox控件分名称修改txtServerIP txtSend txtReceive显示服务器IP址需收发信息（答案）
4窗体添加Winsock控件名称改WinsockServerProtocol（协议）属性设置0（sckTCPProtocol）
控件事件代码：
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
txtreceiveText
txtsendText
WinsockserverLocalPort 10001
txtserveripText WinsockserverLocalIP
WinsockserverListen
End Sub
Private Sub txtsend_Change()
WinsockserverSendData txtsendText
End Sub
Private Sub Winsockserver_ConnectionRequest(ByVal requestID As Long)
WinsockserverClose
WinsockserverAccept requestID
End Sub
Private Sub Winsockserver_DataArrival(ByVal bytesTotal As Long)
Dim mystr As String
WinsockserverGetData mystr
txtreceiveText mystr
End Sub
客户机程序界面设计
1服务器程序类似创建新标准EXE工程添加Winsock控件
2form1名称改 frmClt添加两命令钮控件分Caption属性设置退出连接聊天服务器
3窗体添加四文框控件分名修改txtClientIP txtSenerIP txtsendtxtReceive显示客户机连接服务器IP址需收发信息
4窗体添加Winsock控件名称改WinsockClient（协议）属性设置0（sckTCPProtocol）
控件事件代码：
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click()
WinsockclientRemoteHost txtserverIPText
WinsockclientConnect
End Sub
Private Sub Form_Load()
txtreceiveText
txtsendText
WinsockclientRemotePort 10001
txtclientIPText WinsockclientLocalIP
End Sub
Private Sub txtsend_Change()
WinsockclientSendData txtsendText
End Sub
Private Sub Winsockclient_Connect()
MsgBox 成功聊天室服务器进行联接 vbInformation
End Sub
Private Sub Winsockclient_DataArrival(ByVal bytesTotal As Long)
Dim mystr As String
WinsockclientGetData mystr
txtreceiveText mystr
End Sub
1 程序功：已知248正整数子(：1234681224)24正子数8整问[100300]间少样数程序中两行错误改正错误输出正确结果
Private Sub Command1_Click()
Dim n1 As Integer n2 As Integer
Dim x As Integer
Dim i As Integer
n2 0
For x 100 To 300
n2 0 n2 0 改成 n1 0
For i 1 To 100 For i 1 To 100改成 For i 1 To x
If x Mod i 0 Then
n1 n1 + 1
End If
Next i
If x Mod n1 0 Then
n2 n2 + 1
End If
Next x
Print n2
End sub
2程序功：利函数pd计算1~5000间1737整数数程序中错误改正错误程序输出正确结果
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
s 0
For i 1 To 5000
If pd(i) Then s s + 1
Next i
Print s
End Sub
Private Function pd(x As Integer) As Boolean
If x Mod 17 0 Or x Mod 37 0 Then Or 改成 And
pd True
Else
pd False
End If
End Fuction
3 程序功：根整型参数m计算100999方根倒数程序函数fun()中行错误改正错误输出正确结果
Private Sub Command1_Click()
Print Format(fun(100 999) #######)
End Sub
Private Function fun(m As Integer n As Integer) As Single
y 0
For i m To n
t 1 Sqr(i)
y y + t
Next i
fun t fun t 改成 fun y
End Function
1士兵演练程中队伍变换成10213560行时队形成矩形问参加演练士兵少少？
Private Sub Form_Click()
Dim a b c d n
a 10
b 21
c 35
d 60
n 60
Do While ______(a * 1000 + b * 100 + c * 10 + d) * e b * 1000 + c * 100 + d * 10 + e__________________________
n n + 1
Loop
Print n
End Sub
2 cos(x)≈1－x^22+x^44……+(1)^(n)*(x^(2n))(2n)公式求似值直项绝值000001止设x＝7
Private Sub Form_click()
Dim x As Integer i As Integer
Dim xpower As Single
Dim y As Single
x Val(InputBox(请输入x：))
i 0
z 1
y 1
Do While Abs(z) > 000001
factor 1
i i + 1
For j 1 To 2 * i
factor factor * j
Next j
xpower x ^ (2 * i)
________100 i j (100 5 * i j) * 2________________________
y y + z
Loop
Print format(y 0######)
End Sub
3 已知数列前3项001第4项开始项前3项编程求数列第39数
Private Sub Form_Click()
Dim i f0& f1& f2& f3&
FontSize 14 FontBold True
f0 0
f1 0
f2 1
For i 4 to 39
___c (i Mod 100) ＼ 10_____________
f0 f1
f1 f2
f2 f3
Next i
Print f3
End Sub
1编写程序验证输入3位正整数否构数X出现方数末3位X构数625方390625625构数
Private Sub Command1_Click()
Dim i m As Integer
For i 100 To 999
m (i * i) Mod 1000
If i m Then
Print i
End If
Next i
End Sub
2设两组数：
A 1 23 4 56 7 8 9 10
B 100 99 98 97 96 9594 93 92 91
编写程序面两级数分读入两数组中然两数组中应元素相加1+100……10＋91相应结果放入三数组中输出第3数组值
Private Sub Command1_Click()
Dim a(10) b() c(10) As Integer
For i 1 To 10
a(i) i
Next i
b Array(100 99 98 97 96 95 94 93 92 91)
For i 1 To 10
c(i) a(i) + b(i 1)
Print c(i)
Next i
End Sub
3 Circle方法画圆弧椭圆弧图示求：中心点相圆弧长度角度机颜色机圆弧数20
Private Sub Command2_Click()
pi 31415926
a1 0
c 1
DrawWidth 1
For r 100 To 2000 Step 100
a2 (a2 + (pi 2)) Mod (2 * pi)
Circle (1800 1200) r QBColor(c) a1 a2
a1 a1 + (pi 4)
c c + 1
DrawWidth DrawWidth + 1
Next r
End Sub
Private Sub Command3_Click()
Cls
End Sub
4图片框中PSet方法机产生干彩色点窗体3命令钮：画点清退出图示
PSet方法：［象名］Pset［Step］（xy）［颜色］
Private Sub Command1_Click()
Picture1DrawWidth 10
For i 1 To 100
r Int(256 * Rnd)
g Int(256 * Rnd)
b Int(256 * Rnd)
x Rnd * Width
y Rnd * Height
Picture1PSet (x y) RGB(r g b)
Next i
End Sub
Private Sub Command2_Click()
Picture1Cls
End Sub
Private Sub Command3_Click()
End
End Sub
请您删容O(∩_∩)O谢谢2015年中央电期末复考试抄全电期末考试必备抄电考试必抄After earning his spurs in the kitchens of The Westin The Sheraton Sens on the Bund and a sprinkling of other topnotch venues Simpson Lu fi nally got the chance to become his own boss in November 2010 Sort of The Shanghaiborn chef might not actually own California Pizza Kitchen (CPK) but he is in sole charge of both kitchen and frontof house at this Sinan Mansions＇stalwart It’s certainly a responsibility to be the head chef and then to have to manage the rest of the restaurant as well the 31yearold tells Enjoy Shanghai In hotels for example these jobs are strictly demarcated so it’s a great opportunity to learn how a business operates across the board It was a task that management back in sunny California evidently felt he was ready for and a vote of confi dence from a company that to date has opened 250 outlets in 11 countries And for added pressure the Shanghai branch was also CPK’s China debut For sure it was a big step and unlike all their other Asia operations that are franchises they decided to manage it directly to begin with says Simpson Two years ago a private franchisee took over the lease but the links to CPK headquarters are still strong with a mainlandbased ＇brand ambassador’ on hand to ensure the business adheres to its ethos of creating innovative hearthbaked pizzas a slice of PR blurb that Simpson insists lives up to the hype They are very innovative he says The problem with most fast food places is that they use the same sauce on every pizza and just change the toppings Every one of our 16 pizza sauces is a unique recipe that has been formulated to complement the toppings perfectly The largely local customer base evidently agrees and on Saturday and Sunday at least the place is teeming The kidseatforfree policy at weekends is undoubtedly a big draw as well as is the spacious secondfl oor layout overlooked by a canopy of green from Fuxing Park over the road The company is also focusing on increasing brand recognition and in recent years has taken part in outside events such as the regular California Week Still the sta are honest enough to admit that business could be better as good in fact as in CPK’s second outlet in the popular Kerry Parkside shopping mall in Pudong Sinan Mansions has really struggled to get the number of visitors that were envisaged when it first opened and it hasn’t been easy for any of the tenants here adds Simpson We’re planning a third outlet in the city in 2015 and we will probably choose a shopping mall again because of the better foot traffic The tearooms once frequented by Coco Chanel and Marcel Proust are upping sticks and coming to Shanghai Xu Junqian visits the Parisian outpost with sweet treats One thing the centuryold Parisian tearoom Angelina has shown is that legendary fashion designer Coco Chanel not only had style and glamor but also boasted great taste in food pastries in particular One of the most popular tearooms in Paris Angelina is famous for having once been frequented by celebrities such as Chanel and writer Marcel Proust Now Angelina has packed up its French ambience efficient service and beautiful comforting desserts and flown them to Shanghai At the flagship dinein and takeout space in Shanghai everything mimics the original tearoom designed from the beginning of the 20th century in Paris the height of Belle Epoque The paintings on the wall for example are exactly the same as the one that depicts the landscape of southern France the hometown of the owner and the small tables are intentional imitations of the ones that Coco Chanel once sat at every afternoon for hot chocolate The famous hot chocolate known as L’Africain is a luxurious mixture of four types of cocoa beans imported from Africa blended in Paris and then shipped to Shanghai It’s sinfully sweet rich and thick as if putting a bar of melting chocolate directly on the tongue and the fresh whipped cream on the side makes a light but equally gratifying contrast It is also sold in glass bottles as takeaway The signature MontBlanc chestnut cake consists of three parts the pureed chestnut on top the vanilla cream like stuffing and the meringue as base Get all three layers in one scoop not only for the different textures but also various flavors of sweetness The dessert has maintained its popularity for a century even in a country like France perhaps the world’s most competitive place for desserts A much overlooked pairing is the ParisNew York choux pastry and N226 chocolate flavored tea The choux pastry is a mouthful of airy pecanflavored whipped cream while the tea a blend of black teas from China and Ceylon cocoa and rose petals offers a more subtle fragrance of flowers and chocolate Ordering these two items featuring a muted sweetness makes it easier for you to fit into your little black dress Breakfast brunch lunch and light supper are also served at the tearoom a hub of many cultures and takes in a mix of different styles of French cuisines according to the management team The semicooked foie gras terrine is seductive and deceptive It’s generously served at the size and shape of a toast while the actual brioche toast is baked into a curved slice dipped with fig chutney The flavor however is honest strong smooth and sublime And you don’t actually need the toast for crunchiness This is the season for high teas with dainty cups of fine china and little pastries that appeal to both visual and physical appetites But there is one high tea with a difference and Pauline D Loh finds out just exactly why it is special Earl Grey tea and macarons are all very well for the crucial recuperative break inbetween intensive bouts of holiday season shopping And for those who prefer savory to sweet there is still the selection of classic Chinese snacks called dim sum to satisfy and satiate High tea is a meal to eat with eye and mouth an inbetween indulgence that should be light enough not to spoil dinner but sufficiently robust to take the edge off the hunger that strikes hours after lunch The afternoon tea special at ShangXi at the Four Seasons Hotel Pudong has just the right elements It is a pampering meal with touches of luxury that make the high tea session a treat in itself Whole baby abalones are braised and then topped on a shortcrust pastry shell a sort of Chinese version of the Western volauvent but classier Even classier is the dim sum staple shrimp dumpling or hargow upgraded with the addition of slivers of midnight dark truffles This is a master touch and chef Simon Choi who presides unchallenged at ShangXi has scored a winner again Sweet prawns and aromatic truffles — what’s not to love His masterful craftsmanship is exhibited in yet another pastry — a sweet pastry that is shaped to look like a walnut but which you can put straight into the mouth It crumbles immediately and the slightly sweet nutty morsel is so easy to eat you’ll probably reach straight for another My favorite is the dessert that goes by the name yangzhi ganlu or ambrosia from the gods The hotel calls it chilled mango cream with sago pomelo and bird’s nest – made with ingredients that resonate with every female soul It does taste like ambrosia with the sweetsour fragrance of the mango forming the first layer of taste and sensation and the pomelo sacs and sago pearls providing the tactile contrast The bird’s nest — it’s the ingredient that gilds the lily since it is supposed to nourish and nurture a perfect complexion For those unfamiliar with this exotic ingredient the bird’s nest is not a bundle of twigs but is instead the dried secretion that cave swifts use to build their nest Technically it’s bird saliva but the Chinese believe that it has collagenboosting properties essential to beauty To me it just tastes good adding a slight gelatinous crunch to the back of the teeth There is also a baked mushroom puff pastry that includes the highly prized Matsutake or pine mushroom You also get a choice of teas but I strongly recommend the aged Pu’er from Yunnan province It is a mellow tea that will go perfectly with the rich little nuggets and will warm you up on a cold afternoon Incidentally the general guide is green tea such as Longjing or Dragonwell for the hot season semifermented teas like Wulong or Iron Buddha for autumn and more warming teas like Pu’er for winter The ShangXi afternoon tea costs 228 yuan (37) per person and 388 yuan for the more opule
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档
1装载窗体窗体（ C ） A) 象 B) 属性 C) 事件 D) 方法
2设aVisual Basic面b值Basic赋值语句正确( B )
A) bLeft(a812) B) bMid(a85) C) bRight(a55) D) bLeft(a85)
3．设X整型变量正确表达1< X < 5逻辑表达式( A )
A) 1< X <5 B) X2 or X3 or X4 C) 1
4．InputBox函数返回值类型( B )
A) 数值型 B) 字符串型 C) 逻辑型 D) 货币型
5．执行语句：Print 4+5＼6*88 Mod 9 输出值()A) 4 B) 5 C) 6 D) 7
6列循环语句正常结束循环（ C ）
A)i5 B) i1
Do Do
ii+1 ii+2
Loop Until i< 0 Loop Until i10
C)i10 D) i6
Do Do
ii+1 ii2
Loop Until i> 0 Loop Until i1
7．叙述中正确 （ A ）
A) 窗体Name属性指定窗体名称 标识窗体 B) 窗体Name属性值显示窗体标题栏中文 C) 运行期间改变窗体Name属性值 D) 窗体Name属性值空
8．VB命令钮提供Cancel属性（ A ）
A) 指定命令钮否窗体取消钮 B) 指定命令钮功停止程序运行 C) 指定命令钮功关闭运行程序 D) 指定命令钮功中断程序运行
9．命令钮失效（ A ）属性设置False
A) Enabled B) Visible C) BackColor D)Caption
10．窗体中添加两文框（Name属性分Text1Text2）命令钮（Name属性Command1）然编写两事件程：
Private Sub Command1_Click()
a UCase(Text1Text) + Left(Text2Text 3)
Print a
End Sub
Private Sub Form_Load()
Text1Text abcDEF
Text2Text 123456
End Sub
程序启动单击命令钮输出结果（ C ）A）abcDEF123456 B）abcDEF123 C）ABCDEF123 D）ab123456
11．运行程序时文框获焦点需（ B ）方法 A) Change B) SetFocus C) GotFocus D) Move
12．列语句中图片框Picture1中图形清（ A ）
A) Picture1Del B) Picture1 PictureLoadPicture()
C) Picture1 Picture LoadPicture( ) D) Picture1 PictureNothing
13． 删列表框中某项目需（ D ）方法 A) Clear B) ReMove C) Move D)ReMoveItem
14．组合框中选择某项目容程序中通（ D ）属性获 A) List B) ListIndexC) ListCount D) Text
15．数组说明语句：Dim a()AS Integera定义（ B ）
A) 定长数组 B) 调数组 C) 静态数组 D) 变类型数组
16．语句：
Type Student
Name As String Age As Integer Sex As String
End Type
Dim Stu As Student
With Stu
Name 李强 Age 21 Sex 男
End With
执行语句Print StuAge窗体显示结果（ B ）A)李强 B)21 C)男 D)Age
17子程f1调形式参数返回两结果面子程定义正确( C )
A）Sub f1(ByVal nByVal m) B）Sub f1(nByVal m)
<子程体> <子程体>
End Sub End Sub
C）Sub f1(nm) D）Sub f1(ByVal nm)
<子程体> <子程体>
End Sub End Sub
18叙述中错误( D )
A) 工程中包含窗体文件
B) 窗体文件中Private定义子程函数程窗体文件调
C) 设计VB程序时窗体模块标准模块需分保存类型文件 D) 全局变量必须标准模块中定义
19．磁盘开序文件c＼t1txt读入数做准备语句（ A ）正确
A） Fc＼t1txt B）Fc＼t1txt
Open F For Input As #1 Open F For Input As #2
C）Open c＼t1txt For Output As #1 D）Open c＼t1txt For Input As #2
20叙述中正确( B )
A) 记录中包含元素数类型必须相 B) 机文件中记录长度固定
C) Open命令作开已存文件 D) Input#语句机文件中读取数
1 设计应程序时查应程序工程组成部分窗口（D）
A 窗体设计 B代码 C属性 D工程资源理器窗口
2窗体load事件触发时机（B） A户单击窗体时 B窗体加载时 C窗体显示 D窗体卸载时
3传统程序设计语言相Visual Basic 突出特点（C）
A结构化程序设计 B程序开发环境 C事件驱动编程机制 D程序调试技术
4VB60集成开发环境窗口中包括（C） A标题栏 B菜单栏 C状态栏 D工具栏
5果象名称Mytext 象属性Text代码中引该属性正确格式（B）
A textMytext BMytextText CMytext(Text) DMytext*Text
6列激活属性窗口操作（D）
A鼠标双击窗体部位 B执行工程菜单中属性窗口命令CCtrl+F4 DF4
7假定已窗体画控件控件活动属性窗口中设置窗体属性预先应执行操作（A）
A单击窗体没控件方 B单击控件 C执行操作 D双击窗体标题
8果文框键入字符时显示某字符果（*）应设置文框（B）属性
A Caption BPasswordChar CText DChar
9果想文框中容运行时编辑需文框（A）属性设置True
A Locked BMultiLine CTabStop DVisible
10 定时器（Tiner）控制设置定时否开启属性（C）AIndex BTag CEnabled DLeft
11窗口体Fornl 显示myfrm语句（ C）
AFormcaptionmyfrmBFornlcaptionmyfrm Cformlprintmyfrm Dformprintmyfrm
12象性质状态特征称（C）A事件 B方法 C属性 D类
13列正确赋值语句（B） Ax+y20 Byx+20 C3xy Ds
14文相关帮助时选择帮助容然（D）键出现MSDN窗口直接显示需帮助信息
AHelp BF10 CEse DF1
15调试通工程文件菜单生成exe文件编绎成名exe该执行文件放机器运行原（D）A运行机器VB系统 B缺少frm 窗体文件 C该执行文件病毒 D原
1．变量作域变量划分（ B ）
A公私系统 B全局变量模块级变量程变量 C动态常数静态 DPublicPrivateProtect
2 获字符ASCII码函数（ C ） ＡVal ＢFix ＣAsc ＤChr
3退出Do…Loop循环语句（ D ）语句 AExit BExit For CEnd Do DExit Do
4 数值型转换字符串型需函数（B ）AVal BStr CAsc DChr
5关语句行列说法正确（ B ）
Ａ．行写条语句 Ｂ．条语句分行书写 Ｃ．行首字符必须写 Ｄ．长度超255字符
６．表达式6+10 Mod 4*2+1值（ A ）．Ａ．９ Ｂ．11 C．１ D3
7作Ｖisual Basic 变量名（B）．Ａ．SIN BCO1 CCOS(X) DX(1)
8表达式Ａbs(5)+Len(ABCDE)值（C）．Ａ．5ABCDE Ｂ－5ABCDE C10 D0
9代码编辑器中果条语句太长法行写（包括注释）折行书写行末续行字符（A）表示行前行继续．
Ａ．空格加划字符（＿） Ｂ．划字符（＿） Ｃ．直接回车 Ｄ．空格加字符（－）
10Sub程Function程根区（D）．
Ａ．Sub程Ｃall语句直接程名调Function程．
Ｂ．Function程参数Sub程． Ｃ．两种程参数传递方式．
Ｄ．Sub程程名返回值Function程够通程名返回值．
11＂Ｘ80非负数＂VB表达式表示正确（C）
A0≤X<80 B0
A 加号(+) B减号() C星号(*) D感叹号()
13果程序中显示弹出式菜单调Visual Basic中提供方法(D)
APrint BMove CRefresh DPopupMenu
14列存储图供象控件(C ) AToolBar BStatursBar CImageList DTreeView
15单击工具拦扭时会触发事件(A ) AButtonClick BChange CLoad DKeyPress
16利公话框控件显示开文件话框需调控件(B )方法
AShowPrinter BShowOpen CShowSave DShowColor
17窗体级变量列说法中错误(C )
A窗体子程序访问 B窗体子程序访问
C窗体发子程序访问Private定义窗体级变量 D定窗体通区定义
18字符串中第3字符开始获取5字符应(B) ALen函数 BMid函数 CLeft函数 DRight函数
19面语句定义数组元素数(D ) DimA(3 To 5)As Integer A6 B7 C8 D9
20程序段 Dim strl As String*5 StrlVisual Basic
该段程序执行完时变量strl值(B ) AVisual BVisua CV DVisual Basic
1Visible Basic根计算机访问文件方式文件分成三类中包括（B）
A．序文件 B Unix文件 C 二进制文件 D 机文件
2机文件进行文件读取单位（B） A．字节 B记录 C整文件 D字符
3目录路径列表框Dir1容符合驱动器列表框Drive1选择应（B）
A． Dir1_Click事件中加入Dir1PathDrive1Drive B． Drive1_Click事件中加入Dir1PathDrive1Drive
C． Dir1_Click事件中加入Drive1Path Dir1Drive D．Dir1_Click事件中加入Drive1Path Dir1Drive
4drive1驱动器列表框dir1目录路径列表框file1文件列表框步协调工作需（B）
A． drive1Change事件程中加入drive1Drivedir1Pathdir1Change事件程中加入dir1Pathfile1Path代码B． drive1Change事件程中加入dir1Path drive1Drivedir1Change事件程中加入file1Path dir1Path代码 C． dir1Change事件程中加入dir1Path drive1Drivefile1Click事件程中加入file1Path file1fileName代码D．dir1Change事件程中加入dir1Path drive1Drivefile1Click事件程中加入file1Path dir1Path代码
5面关序文件描述正确（A）
A． 条记录长度必须相 B． 通编程文件中某条记录方便修改
C． 数ASCII码形式存放文件中通文编辑软件显示 D．文件组织结构复杂
6KILL语句VB语言中功（C） A．清存 B清病毒 C删磁盘文件 D清屏幕
7改变坐标度量单位（D） C Scale方法 D ScaleMode属性
8属性方法中重定义坐标系（C） C Scale D ScaleMode属性
9Line方法画直线前坐标（C） A(00) B直线起点 C 直线终点 D 容器中心
10Line (200 200)Step( 500 500)窗体（C）画直线 A．（200 200）(500 500) B （200 200）(300 300) C（200 200）(700 700) D （300 300）(500 500）
11设置象边框类型属性（B） A Drawstyle B Borderstyle C DrawWidth D ScaleMode
12清图片框Picture1中图形应采取正确方法（B）
A． 选择图片框然Del键 B． 执行语句Picture1pictureLoadPicture()
C． 执行语句Picture1picture D．选择图片框属性窗口中选择Picture属性条然回车键
13绘制种形状图形需设置Shape控件（A）属性 A．Shape BBorderstyle C FillStyle D Style
14绘制种形状直线需设置Line控件（B）属性 A．Shape BBorderstyle C FillStyle D Style
15果准备读文件开序文件textdat正确语句（C）
A open textdat for write As #1 B open textdat for Binary As #1
C open textdat for Input As #1 D open textdat for Random As #1
16果准备机文件中写入数正确语句（C） C Put #1 rec D Get #1 rec
17列CommandDialog1控件程序代码CommandDialog1Action1代表（B）
A．文件存 B 开文件 C 色彩 D 印
18FileFilterPattern*bat 程序代码执行会显示（A）A 包含扩展文件名*bat文件 B 第bat文件C． 包含文件 D 会显示磁盘路径
19列数象模型中采OLE DB访问数库（C）A． DAO B RDO C ADO D RDOADO
20 设ADOrsRecordset象学生基情况表中获取记录语句（B）
A． ADOrsNew Select * From 学生基情况表 B． ADOrsOpen Select * From 学生基情况表
C． ADOrsExecute Select * From 学生基情况表 D．ADOrs Select Select * From 学生基情况表
21VB中变量xl声明Excel应程序象方法（A）
A． Dim xl As ExcelApplication B Dim xl As ExcelWorkbook
C Dim xl As ExcelWorksheet D Dim xl As ExcelWorksheets
1 WinsockServerLocalPort10001语句含义（ A ）
A设置侦听端口 B设置计算机IP址 C设置中断址 D设置通讯协议
2Winsock控件处关闭状态时State属性值（ B ）A1 B0 C2 D6
3相UDP协议言TCP协议种（ A ）
A面连接协议 B连接协议 C计算机间建立连接 D适传送少量数
4VB程序中通常会产生错误提示（ D ）A编译错误 B实时错误 C运行时错误 D逻辑错误
5VB程序编译错误般通VB集成环境种设置动检测（ B ）
A求变量声明 B动语法检测 C动显示快速信息量 D根法动检测
6VB程序中设置断点键（ C ）AF5键 BF6键 CF9键 DF10键
7On Error Go To ErrLB语句中ErrLB含义（ A ）
A行标识号 BSUB程名 CFUNCTION程名 D错误号
8Err象中表示错误描述属性（ B ）AErrNo BDescription CNumber DSource
1 Visual Basic程序中分隔行中语句字符（ B ：）
2 列作Visual Basic变量名（ ） A Filename B A（A＋B） C AD D Print
3 菜单项效应（ ）属性值设置False A Visible B Enabled C Moveable D Checked
4 程（ ）事件
Prviate Sub Form_Load( ) ……End Sub A 命令钮单击 B 命令钮装载C 窗体装载 D 窗体单击
5 Vb中描述文件扩展名（ ）属性 A Drive B Pattern C FileName D Path
6 关Visual Basic中事件说法中正确（ ） [ ]
A 事件Visual Basic预先定义够象识动作 B DblClick（双击）Visual Basic中种事件
C 象识事件 D系统提供象识事件需程序员定义
7 列控件中设置滚动条（ ） A 检查框（复选框） B 框架 C 文框 D 标签框
8 Visual Basic中建立空窗体( )会默认名 A Form1 B Form2 C Formx D Form10
9 Const One&1One（ ）类型常数 A 整型 B 字节型 C长整型 D单精度型
10 关逻辑型数列说法错误（ ）
A 逻辑型数两种值：True者FalseB 逻辑值转换数值时False转0True转1
C 类型数转换逻辑数时非0数转换True0转换False D 逻辑型数2字节存储
11 （ ）Visual Basic特点
A 结构化程序设计 B 集成视化程序开发环境 C 事件驱动编程机制 D 户编程思想动转换成程序代码
12 窗体load事件实现功（ ）
A 确定窗体位置 B 存中清楚窗体C 程序启动时属性变量初始化 D 重画窗体
13 单复选框控件名称（ ） A OptionBotton B CheckBox C PictureBox D Image
14 禁止窗体移动设置窗体（ ）属性FalseA．Moveable B Move C MinButton D ControlBox
15 设置定时器定时间隔设10秒应（ ）属性值设10000A Interval B Value C Enabled D Text
16 （ ）文件夹列表框A DirListBox B DriveListBox C FileListBox D ComboBox
17 （ ）通话框字体话框中返回户选择字体名A FileName B Path C FontName D Color
18 列操作清文框象Text1容（ ）A Text1Text B Text1cls C Text＝ D cls
19 想通单击Command1弹出Form2窗体Command1单击事件中（ ）命令
A Load Form2 B Form2Show C Form2SetFocus D Form2PopupMenu
20 属性中运行时起作（ ）A Caption属性 B Visible属性 C BorderStyle属性 D Picture属性
21 运行时文框获输入焦点调文框象（ ）方法实现A Refresh B GetFocus C SetFocus D Tab
22 窗体中利Print方法输出文信息时信息输出位置（ ）属性设置A Left B Top C xy D CurrentXCurrentY
23 语句：Dim student(105 to 100) 定义（ ）维数组A 2 B3 C 5 D10
24 默认情况语句：Dim student(10 to 11 4) 定义数组（ ）元素
A 20 B22 C 10 D11
25 已知Eng(1)90Math(1)80Comp(1)95 Total(1) Eng(1)+Math(1)+Comp(1)Total(1)（ ）A 265 B90 C 80 D95
26 已知通代码语句： Dim A( ) As Integer某事件代码中（ ）正确
A ReDim A(304) B ReDim A(4) As C ReDim A(100) D ReDim A( )
27 Int（23512）值（ ）A23 B24 C 24 D23
28 ASCII码转换成字符串函数（ ）A Chr B Str C Asc D Val
29 表达式 Mid(Beijing200844)值（ ）A Beij B jing C inj2 D 2008
30 A+314+2Val（A）值（ ）A +314+2 B +514 C 314 D 514
1数学式子：写成VB数值表达式（ Sqr(1+3141592*Sin(25*314159180)) ）
2．设A5B6C7D8表达式3>2*B OR AC AND B<>C OR C>D值（ True ）
3．Case子句中表达式表列具形式：<表达式1> To <表达式2>含义：测试表达式值等（ 指定范围值 ）时执行该Case子句相应语句块
4．执行面程序段x值（ 12 ） x0 For i1 To 8 Step 3 xx+i Next i
5．图片框放置控件称图片框（ 子 ）象窗体图片框（ 父 ）象
6．命令钮Command1Caption属性值赋文框Text1Text属性语句( Text1TextCommand1Caption)
7．复选框Value属性（ 1 ）时表示复选框选中
8 滚动条获取某范围数值输入垂直滚动条Value属性值递增变化应设置滚动条Min属性值( Max )属性值
9．语句：Dim A(3 to 4) as Integer定义维数组A元素数（ 8 ）
10．定子程：
Function fun(ByVal num As Long) As Long Dim k As Longi As Integer
k1 For i1 To num kk*i Next i End Function
执行语句Print fun(5) 窗体显示结果（ 0 ）
1 进入VB集成开发环境发现没显示工具箱窗口应选择 视图 菜单 工具箱 选项工具箱窗口显示
2VB中事件程名 象名 事件名 构成
3 工程文件扩展名 vbp 窗体文件扩展名 frm
4象时代码数集合例Visual Basic 中 窗体 钮 文框 等象
5象方法 实施某种操作功 方法需参数没返回值调象方法格式 象名方法名 例窗体Forml Show 方法应写成 form1show
6文框显示滚动条需 ScrollBars 属性设置 3
7欲设置定时时间间隔4秒属性Interval 值 4000
8标签框Caption属性做动调整应 AutoSize 属性设置 True
9通 窗体布局窗口 设计时直观调整窗体屏幕位置
10想代码中名 txtshow 文框赋予文：GOOD WORK时应编写语句 txtshowtext GOOD WORK
11命令钮名称Cmdopen程序求单击命令钮开窗口frml请事件程填空
Private Sub Cmdopen click() Frm1show End Sud
12事件象发生事情Visual Basic中事件 单击 装入 鼠标移动 等象响应事件 户建立新事件事件程指 响应某事件执行代码 假设某事件程：
Private Sub cmd1_Click() Form1CaptionVB示例 End Sub
响应程象名 cmd1 事件名 Click
13象方法 象实施某种操作功 方法需参数没返回值调象方法格式 象名方法名 例窗体Form1 Show 方法应写成 Form1 Show
14编写代码时动语法检查必须执行 工具 菜单中 选项 命令开 选项 话框然选择编辑器选项卡中 动语法检测
15定时器（Timer）控件识事件 Timer 生该事件时间间隔定时定时器 Interval 属性设置单位 毫秒
1．菜单般_拉式__弹出式__两种基类型
2．通话框控件显示常话框_开__保存__颜色__字体__印_
3．组合框具__文框___列表框_两种控件基功
4．数组默认标1开始应窗体标准模块代码声明部分语句__Option Base 1_
5．调Sub程时__call__语句语句程序控制传送Visual BasicSub程
6．已建立Form1Form2两窗体默认启动窗体Form1通_工程_菜单__属性_命令_通_选项卡启动窗体设置Form2程序中显示Form1窗体执行_Form1show_语句
7．列表框中项目序号_0_开始
8．Sub程Function程根区_Sub程名返回值Function程名返回值
9．VB代码存储模块中VB中提供三种类型模块：_类模块__窗体模块___标准模块_
10．Hide方法会隐藏调窗体调Hide方法会窗体卸载_调窗体中属性已处存中11．列数学式子写成VisualBasic表达式
⑴ 答：2*cos(a)*sin(a)(2*a) ⑵答：sqr(s*(sa)*(sb)*(sc)) ⑶sin45°sin(45*2*31415360)_
12列数学式子条件写成VisualBasic逻辑表达式
⑴1≤x<12 1
13．设A2B3C4D5表达式Not A
14．Visual Basic语言中三种形式循环结构中循环次数事先确定_For…next__循环求先判断循环进行条件_Do while…loop_循环_ while…Wend_循环
15．语句输出结果__3_ a314159 Print a
1果新建序文件Open语句时操作方式关键词 output
2．Visual Basic程序中实现复制文件C：＼commandcomD盘根目录语句 filecopy c＼commandcomd＼
3 Visual Basic程序中实现删文件D＼temtmp语句__kill d＼temtmp
4文件号1开序文件SEQNEWDAT写入数语句___open SEQNEWDAT for output as # 1
5文件号2开序文件SEQOLDDAT该文件读出数语句___open SEQOLDDAT for input as #2
6窗体左角坐标(200250)右角坐标(300150)X轴正 右 Y轴正 _
7Stretch属性设置_false_时图框动改变适应中图形
8图片框Picture1中画左角(500500)边长500红色实心正方形语句_picture1line (500500)step(500500) vbred BF
9设 CurrentX50CurrentY100执行指令line(10020)Step(300500)Current_(400520)_
10ADO模型时通ActiveConnect属性建立RecordsetConnection象连接
11VB中数库分数库 远程数库__外部数库_三种类型
12采ADO模型时Open方法开记录集ADOrsFields(学号)等效语句_ADOrs(符号)_
13ADO模型中般通Connection象Execute方法执行增加__删_修改_等三类返回结果集SQL语句
14设StrSQLStr1字符串变量中Str1值001执行赋值语句StrSQLSelect * from Tabel1 Where学号’+Str1+’StrSQL值等_select * from tabel1 where 学号’001’_
15VB中Foxpro称外部数库Access称__数库_SQL Server称__远程数库__
1Winsock控件时旦数达首先触发该控件DataArrival事件果发送数通常该控件senddata方法 2Winsock控件编制基TCPIPUDP协议通话程序
3ActiveXEX文件缀exe 4COM象两种类型接口标准接口户接口
5果希计算机IP址Winsock控件localIP属性
6Winsock控件BytesReceived属性返回接受数通常getdata方法获取数
7Winsock1Listen语句含义服务程序处侦听状态等客户访问
8常中VB网络编程控件Winsock Internet TransferWebBrowser 三种
9VB中程序错误类型编译错误逻辑错误实时错误等三种
10 VB中关闭错误捕获机制语句on error goto 0
1Visual Basic中种控件组合文框列表框特性种控件_组合框______
2Visual Basic提供数文件三种访问方式机访问方式__序访问方式_______二进制访问方式
3运行时d＼pic文件夹图形ajpg装入图片框Picture1语句_____Picture1pictureLoadPicture(d＼pic＼ajpg)______
4计时器控件规律定时间间隔触发__Timer_____事件执行该事件程中程序代码
5Visual Basic应程序中标准模块文件扩展名__bas__________
6数学表达式cos2(a+b)÷(3+x)+5应Visual Basic表达式__(cos(a+b)）^2(3*x)+5___________
7时选定窗体控件住__Shift_______ Ctrl____键然次单击窗体控件
8Visual Basic中基象___窗体_______
1 Visual Basic工程中添加新窗体窗口工具栏中选择_添加窗体______钮
2 代码窗口中输入某行代码回车键果代码变成__红色____颜色说明该行代码语法错误
1什视化编程事件驱动？
答：视化编程指须编程仅通直观操作方式完成界面设计工作种编程方式
VB应程序运行系统处等状态某事件发生程序执行事件事件程事件程执行完系统处等事件发生状态事件驱动程序方式
2象属性事件文件间关系？
答：象代码数封装体象操作通该象关属性事件方法描述
属性象基特性象属性方法象执行动作事件象发生事情
3简述事件驱动机制传统编程方式答：传统面程应程序中应程序身控制执行部分代码种序执行代码程序第行代码开始执行应程序中预定路径执行户法改变程序执行流程事件驱动机制户决定执行路线两者
4简述事件驱动工作程答：事件驱动工作程：（1）启动应程序装载显示窗体（2）窗体窗体控件等事件发生（3）某事件发生执行应事件程代码（4）重复执行（2）（3）直遇END语句单击结束钮停止程序运行
1简述基Sock e t通信程
答：Socket计算机提供通信端口通端口时具Socket接口计算机进行通信应程序网络传输接收信息通Socket接口实现需Socket接口进行数读写操作
2简设计错误处理程序3步骤
（1）捕捉错误强制程序跳转（2）编写错误处理程序预见错误作出反应（3）退出错误处理程序
3简述常程序调式技巧
（1）事先做备份（2）分离受怀疑程序（3）缩搜索范围（4）MSGBOX语句
4简述基Winsock控件开发模式
（1）服务器程序开发模式：(A)服务器程序必须设置LOCALPORT作侦听端口该值设置成意整数应谐没值均惯应1000（B）LISTRN方法服务器进入侦听状态等客户机程序连接请求（C）客户机程序发出连接请求触发服务器程序CONNECTIONREQUEST事件该事件参数REQUESTID（D）服务器程序ACCEPT方法接受客户机程序REQUESTID请求服务器程序SRNDDATA方法客户机发送数时应特注意两点：ACCEPT方法必须步REQUESTID作参数二执行ACCEPT方法前服务器处侦听状态时应首先CLOSE方法关闭服务器然调ACCEPT方法（E）服务器程序接收数时会产生DATAARRIVAL事件该事件中GETDATA方法接收数
(2)客户机程序开发模式：（A）客户程序首先应设置REMOTEHOST属性指运行器程序机名IP址
（B）设置REMOTEPORT属性指服务器程序侦听端口号（C）CONNECT方法服务器提出连接请求
（D）果服务器接受述连接请求客户机程序会产生CONNECT事件根需事件中编写程序MSGBOX函数户提示连接已成功类信息（E）连接成功根需SENDDATA方法服务器发送数
（F）客户机程序接收数时会产生DATAARRIVAL事件GETDATA方法接收数
1 简述文档特性
答：定义：文档界面(MDIMultiple Document Interface)允许创建单容器窗体中包含窗体应程序绝数基Windows型应程序文档界面例Microsoft WordMicrosoft Excel等文档界面时开文档简化文档间信息交换
文档界面特性：
子窗体均显示MDI窗体工作区中户改变移动子窗体限制MDI窗体中
化子窗体时图标显示MDI窗体务栏中化MDI窗体时子窗体化MDI窗体图标出现务栏中
化子窗体时标题MDI窗体标题起显示MDI窗体标题栏
MDI窗体子窗体菜单子窗体加载时覆盖MDI窗体菜单
2 简述话框分类特点
答：分类：话框分3种类型：预定义话框通话框定义话框
预定义话框称预制话框系统提供VB提供两种预定义话框输入框信息框(消息框)前者InputBox函数建立者MsgBox函数建立具体法参见第4章
通话框种控件种控件设计较复杂话框
定义话框称定制话框种话框户根需进行定义输入框信息框容易建立应定限制情况法满足需户根具体需建立话框章介绍两种话框通话框定义话框特点：般情况户没必改变话框边框固定
退出话框必须单击中某钮通单击话框外部某方关闭话框
话框中化钮(Max Button)化钮(Min Button)免意外扩缩成图标
话框应程序工作区时必须关闭
1．x输入值分4812时写出执行列事件程输出结果
Private Sub Command1_Click()
Dim x y
x InputBox(请输入x值：)
Select Case x
Case 1 3 5 7
y x + 10
Case 8 To 10
y x + 2
Case 2 4 6
y 5 * x
Case Is > 10
y x * x + 1
End Select
Print x x y y
End Sub
x4 y20 （ 记换行） x8 y10 （ 记换行） x12 y145
2 写出执行列事件程输出结果
Private Sub Command1_Click()
Const n 3
Dim i As Integer k As Integer
For i 1 To n
Print Tab((n i) * 2 + 1)
Next k
For k i 1 To 1 Step 1
Print Str(k)
Next k
Next i
End Sub
1
1 2 1
1 2 3 2 1
3设窗体（图示）中已设置组合框Combo1文框Text 1列程序试写出事件程Combo1_Click功
Dim str As String
Private Sub Form_Load()
str
Combo1AddItem 北京
Combo1AddItem 天津
Combo1AddItem 西安
Combo1AddItem 海
Combo1AddItem 武汉
Combo1AddItem 广州
Combo1AddItem 海口
Combo1Text 北京
End Sub
Private Sub Combo1_Click()
str str & Combo1Text &
Text1Text str
End Sub
文框中显示单击组合框列表项目时该项目容添加方式文框中显示选择项目容
4 写出执行列事件程输出结果
Private Sub Form_Click()
Dim a(1 To 2 1 To 2) As Integer
Dim i As Integer j As Integer
For i 1 To 2
For j 1 To 2
a(i j) (2 * i 1) * 4 + j
Next j
Next i
For i 1 To 2
Print a(i 3 i) a(3 i i)
Next i
End Sub 6 13 （ 记换行） 13 6
5．写出执行列事件程输出结果
Private Sub Command1_Click()
Dim a As Integer b As Integer
a 3 b 2
Call f(8 a)
Print a a b b
Call f(a b)
Print a a b b
End Sub
Private Sub f(ByVal x As Integer y As Integer)
x x + 1 y y 1
End Sub a2 b2 （ 记换行） a2 b1
6．窗体模块：
Dim a As Integer
Private Sub test()
Private Sub Command1_Click()
a 2 b 3
Call test
Call test
End Sub
写出程序启动单击命令钮窗体中显示结果Sub： 3 1 （记换行） Sub： 4 1
1 面事件程功：输入某学生某门课程百分制成绩根成绩输出评语0≤成绩＜60 时评语差60≤成绩＜70时评语通70≤成绩＜80时评语中等80≤成绩＜90时评语良90≤成绩≤100时评语优秀横线填适容
Private Sub Command1_Click()
Dim s
s InputBox(请输入学生成绩：)
If 0
(2) Case ElseIs >0
Print 差
End Select
End If
End Sub
2面程序功：计算 f1 1(2×3)+1(3×4)1(4×5)+ … +1(19×20)值横线填适容
Private Sub Form_Click()
Dim f As Singlei As Integersign As Integer
（3） sign1
f 1
（4） for i2 to 19
f f + sign(i*(i + 1))
（5） signsign*(1)
Next i
Print f f
End Sub
3面窗体模块功：键盘输入xyz值公式求f (xyz)值程序横线填适容
f(xyz)sin(x)(sin(xy)*sin(xz))+sin(y)(sin(yz)*sin(yx))+sin(z)(sin(zx)*sin(zy))
中xyz互相等
Function f(ByVal a As SingleByVal b As SingleByVal c As Single) (6) As Single
(7) fSin(a)(Sin(b)* Sin(c))
End Function
Private Sub Command1_Click()
sf(xxyxz)+f(yyzyx)+ (8) f(zzxzy)
Print s s
Else
Print 数输入错误
End If
End Sub
4面事件程功学生分数序文件D ＼file1dat中读取学生分数求该班均成绩横线填适容
Private Sub command1_Click()
Dim n score s
Open D＼file1dat (9) As #3 For Input
n 0 s 0
While (10) Not EOF(3)
Input #3score
s s + score
n (11) n+1
Wend
Print 均成绩： s n
Close #3
End Sub
1 假设体操赛10评委评分规定：①采10分制②掉高分掉低分然计算均分该均分作分试编写事件程输入10评委某运动员评分存放维数组s中计算该运动员分
Private Sub Command1_Click()
Dim s(1 To 10) max min i sum
max 0 min 11 sum 0
For i 1 To 10
s(i) InputBox(请输入第 & Str(i) & 评委分数)
Next i
For i 1 To 10
If s(i) > max Then max s(i)
If s(i) < min Then min s(i)
sum sum + s(i)
Next i
Print 分： (sum max min) 8
End Sub
2 勾股定理中三数abc关系：试编写事件程求出30满足述关系整数组合输出例345样整数组合
Private Sub Command1_Click()
Print abc
For a 1 To 30
For b 1 To 30
For c 1 To 30
If a*a+b*bc*c Then Print abc
Next c
Next b
Next a
End Sub
1窗体添加文框两命令钮两命令钮标题分设置隐藏文框显示文框单击第命令钮时文框消失单击第二命令钮时文框重新出现文框中显示VB程序设计（字体16）程序运行界面图示
解：隐藏文框钮中代码：Text1VisibleFalse
显示文框 钮中代码：Text1VisibleTrue Text1TextVB程序设计 Text1FontSize16
2设计计算程序该程序户界面图2示四文框：文框1（text1）文框2（text2）文框3（text3）文框4（text4）三钮：命令钮1（command1）命令钮2（command2）命令钮3（command3）组成程序运行户清钮清文框中显示容计算钮计算三科均成绩单击退出钮退出
解：command1中代码：text1： text2： text3： text4
command2中代码：text4(val(Text1)+ val(Text2)+ val(Text3))3
command2中代码：End
3编写收款计算程序求户输入商品单价数量折扣单击计算钮显示应付款单击清钮清文框中数程序运行界面图3示
答：计算钮代码：text4val(Text1)* val(Text2)* val(Text3)100
清钮代码：text1： text2： text3： text4
1Private Sub Form_Click( )
Static Sum As Integer
For I 1 to 100
SumSum+I
Next I
Print Sum
End Sub 程序运行结果：1+2+……+99+1005050
2private Sub Form_Click( )
A10 b15c20d25
Print ASpc(5)bSpc(7)c
Print ASpc(8)bSpace(5)c
Print cSpc(3)+Spc(3)c+d
End Sub
10(5空格)15(7空格)20
10(8空格)15(5空格)20
20(三空格)+(三空格)45
3Private Sub Form_click( )
For i 1 to3
Forj 1 to i
Print L Trim(Str(i))+ *+L Trim(Str(j))+ i * j
Next j
Next i
End Sub
1*1 1
2*1 2 2*2 4
3*1 3 3*2 6 3*3 9
4Private Sub Command1_Click( )
Dim ab As Integer
A34
B34
Text1Texta
Text2Textb
End Sub Text1显示3 4 （记换行） Text2显示3
5Private Sub Form_Click()
For I 1 to 5
Print Tab( 11 – I )
For J 1 To I * 2 – 1
Print *
Next
Next i
End Sub
*
***
*****
*******
*********
1购物优惠程序某商场加速促成商品流通采购物折优惠办法位顾客次购物（1）100元者九五折优惠（2）200元者九折优惠（3）300元者八折优惠（4）500元者七折优惠窗体添加两文框命令钮求Text1中输入购物商品总金额单击命令钮Text2中输入优惠价格程序运行结果图解示
If Val(text1)>500 then text2Val(text1)*07
Else if Val(text1)>300 then text2Val(text1)*085
Else if Val(text1)>200 then text2val(text1)*09
Else if val(text1)>100 then text2val(text1)*095
End if
2输出100~200间3整数求Do语句种形式实现程序运行结果图5示
窗体装入事件中加入代码：
Dim a as integer
A100
Do while a <200
If (a mod 3)<> 0 then
List1additen str(a)
End if
Aa+1
loop
3编写程序印积表：
Dim I j as integer
Print*space(5)
For i3 to 12 step 3
Print str(i)space(5)
Next i
For I 15 to18
Print str(i)space(3)
For j3 to 12 step3
Print str(i*j)space(4)
Next j
Next j
4设计计算程序该程序户界面图7示求程序运行户选中单击选钮程序作102相应计算计算结果文框中显示出户选中加法单选钮程序作102相加计算结果12文框中显示出结束退出
法单选钮单击事件中添加代码：
Text110*2
法单选钮中添加代码：
Text1102
加法单选钮中添加代码：
Text110+2
减法单选钮中添加代码：text1102
结束钮中代码 end unload me
5编写输入0~6数字显示汉字输出星期Function程程序运行结果图8示
文框change事件中代码
Select case val(text1)
Case 0
Label1caption星期天+chr(13)+(Sunday)
Case 1
Label1caption星期+chr(13)+(monday)
Case2
Label1caption星期二+chr(13)+(Tuesday)
Case 3
Label1caption星期三+chr(13)+(wednesday)
Case 4
Label1caption星期四+chr(13)+(thursday)
Case 5
Label1caption星期五+chr(13)+(firday)
Case 6
Label1caption星期六+chr(13)+(saturday)
End select
6编写程序鼠标移Picturel控件时鼠标指针改变形状Picturel控件单击鼠标右键时通消息框显示You pressed right button次改变鼠标指针形状
Picture1_mouseup
If button2 then
I1
Msgbox you pressed right button
End if
End sub
7列表框应程序求文框中输入姓名然添加钮姓名添加列表框中选择列表框中某项时删钮列表框中删列表框中某项时修改钮列表框中选取项送文框修改钮变修改确认文框容修改修改确认钮文框中修改信息送列表框修改确认钮变修改程序运行结果图9示
添加钮代码：list1additem text1text Text1text
删 if list1text<> then
List1removeitem list1listindex
End if
修改If command3caption修改 then
Text1textlist1text
Command3caption修改确认
Else
If command3caption修改确认 then
List1listlist1listindex>text1text
Command3caption修改
End if
End if
1窗体建立驱动器列表框目录列表框文件列表框图片框求程序运行驱动器列表框Drive1默认驱动器设置C盘选择File1中列确图片文件（*Bmp*jpg）相应图片显示图片框Picture1中程序运行结果图10示
解：图10设计界面文件列表框pattern属性设置：*Bmp *jpg
驱动器列表框change事件中添加代码：chdrive drive1drive dir1pathdrive1drive
目录列表框change事件中添加代码：chdir dir1path file1pathdir1path
文件列表框click事件中添加代码：picture1pictureloadpicture file1filename
2．余弦曲线方程ycosx画出x22确余弦曲线坐标轴标出刻度图11示
图窗体单击事件中添加代码：
Form1scale ( 2*3141591) (2*314159 1)
Form1line (2*3141590) (2*3141590)
Form1line (01)(01)
Form1currentx 02：form1currentY 01print 0
Form1currentx 32：form1currentY 01print pi
Form1currentx 33：form1currentY 01print pi
Form1currentx 62：form1currentY 01print 2pi
Form1currentx 57：form1currentY 01print 2pi
Form1currentx 02：form1currentY 05print 05
Form1currentx 02：form1currentY 05print 05
For I 6282 to 6282 step 008
Form1pset(I cos(I))
Next I
3Line控件显示直线显示直线线宽线型程序运行界面图12示
图 添加代码
复选框单击事件代码：
If check1value 1 then
Line1border width 4
Else
Line1border width 1
End if
实线虚线单选框弄成option1单选框控件数组单选框单击事件代码：
Select case index
Case 0
Line1borderstyle 1
Case 1
Line1borderstyle 2
Case 2
Line1borderstyle 3
End select
4Shape控件显示种图形设置图形边框填充效果等程序运行界面图13示
首先图作出程序界面形状框架里单选框做成option1控件数组边框类型框架里单选框成option2控件数组填充风格框架里单选做成option3控件数组
Option 1单击事件代码：
Select case index
Case 0
Shape1shape 0
Case 1
Shape1shape 1
Case 2
Shape1shape 3
Case 3
Shape1shape 4
End select
Option 2单击事件代码
Select case index
Case 0
Shape1borderstyle 0
Case 1
Shape1 borderstyle 2
Case 2
Shape1 borderstyle 1
Case 3
Shape1 borderstyle 3
Case 4
Shape1 borderstyle 4
End select
Option 3单击事件代码
Select case index
Case 0
Shape1fillstyle 1
Case 1
Shape1 fillstyle 1
Case 2
Shape1 fillstyle 3
Case 3
Shape1 fillstyle 6
End select
5SQL ServerAccess建立名称学生数库中创建students数库表结构初始记录表1示ADO象MSFlexGrid控件设计数库列表显示程序程序设计界面运行结果图14图15示
表1
学号 姓名 专业
2004001 张红 软件专业
2004003 李强 会计专业
2004002 王丽 软件专业
声名象变量ADOcn创建数库连接
Private ADOcn As connection
Readfromtable
Private sub readfromtable( )
Dim strtmp As string
Dim ADOrs As new recordset
ADOrsactiveconnection ADOcn
ADOrsopen select*from students order by 学号
MSFlexgrid1clear
MSFlexgrid1rows 0
MSFlexgrid1cols 3
Strtmp 学号+vbtab+姓名+vbtab+专业
MSFlexgrid1additem strtmp
Do while not ADOrseof
StrtmpADOrs(学号)+vbtab+ADOrs( 姓名)+vbtab+ADOrs(专业)
MSFlexgrid1addttem strtmp
ADOrs movenext
Loop
MSFlexgrid1fixedcols 0
MSFlexgrid1fixedrows 1
End sub
Private sub form_load()
Dim strDB As string
strDBproviderSQLOLEDBLSFUser IDsapassworddatabase学生
if ADOcn is nothing then
set ADOcnnew connection
ADOcnopen strDB
End if
Readfrom table
End sub
Private sub command1_click()
Unload me
End sub
1利泡排序算法开发程序请指出程序中存错误改正
Private Sub Command1_Click()
Dim A( 1 To 20 )As Integer
Dim c j T As Integer ＇处错应Dim c j T as integer
机生成组数
For c 1 To 20
A(c) Int ( Rnd *100 )
Next c
排序
For c 1 To 20
For j c+ 1 To 20
IF A(c)>A( j )Then
TA ( j )
A( j )A (c)
A( j )T ＇处错应A（C）＝T实现
End If ＇A（C）A（J）交换
Next
Next
窗体输出结果
Cls
For c 1 To 20
Print A ( i ) ＇处错应A（C）．标越界．
Next c
End Sub
2利Winsock控件开发点点聊天系统该系统服务器应程序客户端应程序组成够实现网络中两台计算机间通话务
解：界面设计中说明象均采默认名称
服务器程序界面设计
1创建标准EXE工程选中工程菜单部件选项控件中找Microsoft Winsock Control 选中果没找通常VB安装安全缘找安装盘安装中Mswinsckcad 压缩包
2form1名称改 frmSvr 中添加命令钮控件Caption属性修改退出
3窗体添加三添加TextBox控件分名称修改txtServerIP txtSend txtReceive显示服务器IP址需收发信息（答案）
4窗体添加Winsock控件名称改WinsockServerProtocol（协议）属性设置0（sckTCPProtocol）
控件事件代码：
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
txtreceiveText
txtsendText
WinsockserverLocalPort 10001
txtserveripText WinsockserverLocalIP
WinsockserverListen
End Sub
Private Sub txtsend_Change()
WinsockserverSendData txtsendText
End Sub
Private Sub Winsockserver_ConnectionRequest(ByVal requestID As Long)
WinsockserverClose
WinsockserverAccept requestID
End Sub
Private Sub Winsockserver_DataArrival(ByVal bytesTotal As Long)
Dim mystr As String
WinsockserverGetData mystr
txtreceiveText mystr
End Sub
客户机程序界面设计
1服务器程序类似创建新标准EXE工程添加Winsock控件
2form1名称改 frmClt添加两命令钮控件分Caption属性设置退出连接聊天服务器
3窗体添加四文框控件分名修改txtClientIP txtSenerIP txtsendtxtReceive显示客户机连接服务器IP址需收发信息
4窗体添加Winsock控件名称改WinsockClient（协议）属性设置0（sckTCPProtocol）
控件事件代码：
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click()
WinsockclientRemoteHost txtserverIPText
WinsockclientConnect
End Sub
Private Sub Form_Load()
txtreceiveText
txtsendText
WinsockclientRemotePort 10001
txtclientIPText WinsockclientLocalIP
End Sub
Private Sub txtsend_Change()
WinsockclientSendData txtsendText
End Sub
Private Sub Winsockclient_Connect()
MsgBox 成功聊天室服务器进行联接 vbInformation
End Sub
Private Sub Winsockclient_DataArrival(ByVal bytesTotal As Long)
Dim mystr As String
WinsockclientGetData mystr
txtreceiveText mystr
End Sub
1 程序功：已知248正整数子(：1234681224)24正子数8整问[100300]间少样数程序中两行错误改正错误输出正确结果
Private Sub Command1_Click()
Dim n1 As Integer n2 As Integer
Dim x As Integer
Dim i As Integer
n2 0
For x 100 To 300
n2 0 n2 0 改成 n1 0
For i 1 To 100 For i 1 To 100改成 For i 1 To x
If x Mod i 0 Then
n1 n1 + 1
End If
Next i
If x Mod n1 0 Then
n2 n2 + 1
End If
Next x
Print n2
End sub
2程序功：利函数pd计算1~5000间1737整数数程序中错误改正错误程序输出正确结果
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
s 0
For i 1 To 5000
If pd(i) Then s s + 1
Next i
Print s
End Sub
Private Function pd(x As Integer) As Boolean
If x Mod 17 0 Or x Mod 37 0 Then Or 改成 And
pd True
Else
pd False
End If
End Fuction
3 程序功：根整型参数m计算100999方根倒数程序函数fun()中行错误改正错误输出正确结果
Private Sub Command1_Click()
Print Format(fun(100 999) #######)
End Sub
Private Function fun(m As Integer n As Integer) As Single
y 0
For i m To n
t 1 Sqr(i)
y y + t
Next i
fun t fun t 改成 fun y
End Function
1士兵演练程中队伍变换成10213560行时队形成矩形问参加演练士兵少少？
Private Sub Form_Click()
Dim a b c d n
a 10
b 21
c 35
d 60
n 60
Do While ______(a * 1000 + b * 100 + c * 10 + d) * e b * 1000 + c * 100 + d * 10 + e__________________________
n n + 1
Loop
Print n
End Sub
2 cos(x)≈1－x^22+x^44……+(1)^(n)*(x^(2n))(2n)公式求似值直项绝值000001止设x＝7
Private Sub Form_click()
Dim x As Integer i As Integer
Dim xpower As Single
Dim y As Single
x Val(InputBox(请输入x：))
i 0
z 1
y 1
Do While Abs(z) > 000001
factor 1
i i + 1
For j 1 To 2 * i
factor factor * j
Next j
xpower x ^ (2 * i)
________100 i j (100 5 * i j) * 2________________________
y y + z
Loop
Print format(y 0######)
End Sub
3 已知数列前3项001第4项开始项前3项编程求数列第39数
Private Sub Form_Click()
Dim i f0& f1& f2& f3&
FontSize 14 FontBold True
f0 0
f1 0
f2 1
For i 4 to 39
___c (i Mod 100) ＼ 10_____________
f0 f1
f1 f2
f2 f3
Next i
Print f3
End Sub
1编写程序验证输入3位正整数否构数X出现方数末3位X构数625方390625625构数
Private Sub Command1_Click()
Dim i m As Integer
For i 100 To 999
m (i * i) Mod 1000
If i m Then
Print i
End If
Next i
End Sub
2设两组数：
A 1 23 4 56 7 8 9 10
B 100 99 98 97 96 9594 93 92 91
编写程序面两级数分读入两数组中然两数组中应元素相加1+100……10＋91相应结果放入三数组中输出第3数组值
Private Sub Command1_Click()
Dim a(10) b() c(10) As Integer
For i 1 To 10
a(i) i
Next i
b Array(100 99 98 97 96 95 94 93 92 91)
For i 1 To 10
c(i) a(i) + b(i 1)
Print c(i)
Next i
End Sub
3 Circle方法画圆弧椭圆弧图示求：中心点相圆弧长度角度机颜色机圆弧数20
Private Sub Command2_Click()
pi 31415926
a1 0
c 1
DrawWidth 1
For r 100 To 2000 Step 100
a2 (a2 + (pi 2)) Mod (2 * pi)
Circle (1800 1200) r QBColor(c) a1 a2
a1 a1 + (pi 4)
c c + 1
DrawWidth DrawWidth + 1
Next r
End Sub
Private Sub Command3_Click()
Cls
End Sub
4图片框中PSet方法机产生干彩色点窗体3命令钮：画点清退出图示
PSet方法：［象名］Pset［Step］（xy）［颜色］
Private Sub Command1_Click()
Picture1DrawWidth 10
For i 1 To 100
r Int(256 * Rnd)
g Int(256 * Rnd)
b Int(256 * Rnd)
x Rnd * Width
y Rnd * Height
Picture1PSet (x y) RGB(r g b)
Next i
End Sub
Private Sub Command2_Click()
Picture1Cls
End Sub
Private Sub Command3_Click()
End
End Sub
请您删容O(∩_∩)O谢谢2015年中央电期末复考试抄全电期末考试必备抄电考试必抄After earning his spurs in the kitchens of The Westin The Sheraton Sens on the Bund and a sprinkling of other topnotch venues Simpson Lu fi nally got the chance to become his own boss in November 2010 Sort of The Shanghaiborn chef might not actually own California Pizza Kitchen (CPK) but he is in sole charge of both kitchen and frontof house at this Sinan Mansions＇stalwart It’s certainly a responsibility to be the head chef and then to have to manage the rest of the restaurant as well the 31yearold tells Enjoy Shanghai In hotels for example these jobs are strictly demarcated so it’s a great opportunity to learn how a business operates across the board It was a task that management back in sunny California evidently felt he was ready for and a vote of confi dence from a company that to date has opened 250 outlets in 11 countries And for added pressure the Shanghai branch was also CPK’s China debut For sure it was a big step and unlike all their other Asia operations that are franchises they decided to manage it directly to begin with says Simpson Two years ago a private franchisee took over the lease but the links to CPK headquarters are still strong with a mainlandbased ＇brand ambassador’ on hand to ensure the business adheres to its ethos of creating innovative hearthbaked pizzas a slice of PR blurb that Simpson insists lives up to the hype They are very innovative he says The problem with most fast food places is that they use the same sauce on every pizza and just change the toppings Every one of our 16 pizza sauces is a unique recipe that has been formulated to complement the toppings perfectly The largely local customer base evidently agrees and on Saturday and Sunday at least the place is teeming The kidseatforfree policy at weekends is undoubtedly a big draw as well as is the spacious secondfl oor layout overlooked by a canopy of green from Fuxing Park over the road The company is also focusing on increasing brand recognition and in recent years has taken part in outside events such as the regular California Week Still the sta are honest enough to admit that business could be better as good in fact as in CPK’s second outlet in the popular Kerry Parkside shopping mall in Pudong Sinan Mansions has really struggled to get the number of visitors that were envisaged when it first opened and it hasn’t been easy for any of the tenants here adds Simpson We’re planning a third outlet in the city in 2015 and we will probably choose a shopping mall again because of the better foot traffic The tearooms once frequented by Coco Chanel and Marcel Proust are upping sticks and coming to Shanghai Xu Junqian visits the Parisian outpost with sweet treats One thing the centuryold Parisian tearoom Angelina has shown is that legendary fashion designer Coco Chanel not only had style and glamor but also boasted great taste in food pastries in particular One of the most popular tearooms in Paris Angelina is famous for having once been frequented by celebrities such as Chanel and writer Marcel Proust Now Angelina has packed up its French ambience efficient service and beautiful comforting desserts and flown them to Shanghai At the flagship dinein and takeout space in Shanghai everything mimics the original tearoom designed from the beginning of the 20th century in Paris the height of Belle Epoque The paintings on the wall for example are exactly the same as the one that depicts the landscape of southern France the hometown of the owner and the small tables are intentional imitations of the ones that Coco Chanel once sat at every afternoon for hot chocolate The famous hot chocolate known as L’Africain is a luxurious mixture of four types of cocoa beans imported from Africa blended in Paris and then shipped to Shanghai It’s sinfully sweet rich and thick as if putting a bar of melting chocolate directly on the tongue and the fresh whipped cream on the side makes a light but equally gratifying contrast It is also sold in glass bottles as takeaway The signature MontBlanc chestnut cake consists of three parts the pureed chestnut on top the vanilla cream like stuffing and the meringue as base Get all three layers in one scoop not only for the different textures but also various flavors of sweetness The dessert has maintained its popularity for a century even in a country like France perhaps the world’s most competitive place for desserts A much overlooked pairing is the ParisNew York choux pastry and N226 chocolate flavored tea The choux pastry is a mouthful of airy pecanflavored whipped cream while the tea a blend of black teas from China and Ceylon cocoa and rose petals offers a more subtle fragrance of flowers and chocolate Ordering these two items featuring a muted sweetness makes it easier for you to fit into your little black dress Breakfast brunch lunch and light supper are also served at the tearoom a hub of many cultures and takes in a mix of different styles of French cuisines according to the management team The semicooked foie gras terrine is seductive and deceptive It’s generously served at the size and shape of a toast while the actual brioche toast is baked into a curved slice dipped with fig chutney The flavor however is honest strong smooth and sublime And you don’t actually need the toast for crunchiness This is the season for high teas with dainty cups of fine china and little pastries that appeal to both visual and physical appetites But there is one high tea with a difference and Pauline D Loh finds out just exactly why it is special Earl Grey tea and macarons are all very well for the crucial recuperative break inbetween intensive bouts of holiday season shopping And for those who prefer savory to sweet there is still the selection of classic Chinese snacks called dim sum to satisfy and satiate High tea is a meal to eat with eye and mouth an inbetween indulgence that should be light enough not to spoil dinner but sufficiently robust to take the edge off the hunger that strikes hours after lunch The afternoon tea special at ShangXi at the Four Seasons Hotel Pudong has just the right elements It is a pampering meal with touches of luxury that make the high tea session a treat in itself Whole baby abalones are braised and then topped on a shortcrust pastry shell a sort of Chinese version of the Western volauvent but classier Even classier is the dim sum staple shrimp dumpling or hargow upgraded with the addition of slivers of midnight dark truffles This is a master touch and chef Simon Choi who presides unchallenged at ShangXi has scored a winner again Sweet prawns and aromatic truffles — what’s not to love His masterful craftsmanship is exhibited in yet another pastry — a sweet pastry that is shaped to look like a walnut but which you can put straight into the mouth It crumbles immediately and the slightly sweet nutty morsel is so easy to eat you’ll probably reach straight for another My favorite is the dessert that goes by the name yangzhi ganlu or ambrosia from the gods The hotel calls it chilled mango cream with sago pomelo and bird’s nest – made with ingredients that resonate with every female soul It does taste like ambrosia with the sweetsour fragrance of the mango forming the first layer of taste and sensation and the pomelo sacs and sago pearls providing the tactile contrast The bird’s nest — it’s the ingredient that gilds the lily since it is supposed to nourish and nurture a perfect complexion For those unfamiliar with this exotic ingredient the bird’s nest is not a bundle of twigs but is instead the dried secretion that cave swifts use to build their nest Technically it’s bird saliva but the Chinese believe that it has collagenboosting properties essential to beauty To me it just tastes good adding a slight gelatinous crunch to the back of the teeth There is also a baked mushroom puff pastry that includes the highly prized Matsutake or pine mushroom You also get a choice of teas but I strongly recommend the aged Pu’er from Yunnan province It is a mellow tea that will go perfectly with the rich little nuggets and will warm you up on a cold afternoon Incidentally the general guide is green tea such as Longjing or Dragonwell for the hot season semifermented teas like Wulong or Iron Buddha for autumn and more warming teas like Pu’er for winter The ShangXi afternoon tea costs 228 yuan (37) per person and 388 yuan for the more opule
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档
