VB上机综合测试题（一）
一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分）
二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分）
三、请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。（40分）
答案：
一、
界面设计------10分
Private Sub Check1_Click()
Text1.FontBold = Check1.Value ------5分End Sub
Private Sub Check2_Click()
Text1.FontItalic = Check2.Value------5分End Sub
Private Sub Check3_Click()
Text1.FontUnderline = Check3.Value ------5分End Sub
二、
界面设计------10分
Private Sub Cmd1_Click()------2分
Dim a%(19), i%, sum!, aver! ------4分Randomize ------3分
For i = 0 To 19------3分
a(i) = Int(Rnd * 1001) ------3分
sum = sum + a(i) ------3分
Next i ------2分
aver = sum / 20 ------3分
Print aver ------2分
End Sub
三、
界面设计------10分
Dim n%------2分
Private Sub Form_Load()
End Sub
Private Sub Option1_Click()------2分Dim i% ------2分
n = Val(Text1) ------3分
m = 1 ------1分
For i = 1 To n ------2分
m = m * i -----2分
Next i ------2分
Text2 = m ------2分
End Sub
Private Sub Option2_Click()------1分Dim i% ------2分
m = 1 ------1分
For i = 1 To n + 2 ------2分
m = m * i ------2分
Next i ------2分
Text2 = m ------2分
End Sub
VB上机综合测试题（二）
1．设计如图所示界面，编程实现如下功能：在文本框中输入平时成绩和考试成绩，单击“确定”按钮，将最终成绩显示到第三个文本框中，其中，平时成绩占最终成绩的30%，考试成绩占最终成绩的70%；单击“清除”按钮，清除文本框中的内容；单击“退出”按钮，关闭窗口。（35分）
2．设计左图所示界面，编程实现如下功能：单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中（见右图）（25分）。
3、使用提供素材设计如图所示界面，编程实现如下功能：程序运行时太阳静止不动，单击“太阳升起”按钮时，太阳升起（以0.5s为时间间隔，太阳向右移动80，向上移动160）；单击“停止升起”时，太阳静止不动。(40分)
答案：
一、
界面设计------10分
Private Sub Command1_Click()-----2分
Text3.Text = Val(Text1.Text) * 0.3 + Val(Text2.Text) * 0.7-----7分End Sub
Private Sub Command2_Click()------2分
Text1.Text = ""------3分
Text2.Text = ""------3分
Text3.Text = ""------3分
End Sub
Private Sub Command3_Click()------2分
End------3分
End Sub
二、
界面设计------10分
Private Sub Check1_Click(Indes As Integer）------2分
Text1.Text =""------3分
For k = 0 To 3------2分
If Check1(k）.value = 1 Then-----2分
Text1.Text = Text1.Text & Check1(k）.Caption & " " ------2分End If------2分
Next k------2分
End Sub
三、
界面设计-----10-分
Private Sub Command1_Click()------2分
Timer1.Enabled = True------3分
End Sub
Private Sub Command2_Click()------2分
Timer1.Enabled = False------3分
End Sub
Private Sub Form_Load()------2分
Timer1.Enabled = False------3分
End Sub
Private Sub Timer1_Timer()------2分
If Image1.Top = 0 Then------3分
Image1.Move Image1.Left + 80, Image1.Top + 160------3分Else------2分
Image1.Move Image1.Left + 80, Image1.Top - 160-----3分End If------2分
End Sub
VB 上机综合测试题（三）
一、银行卡密码验证程序
1. 输入密码后点击确认按钮，如果正确，窗体上输出“密码输入正确，请继续操作！”。
2. 如果密码错误，窗体上输出“密码错误，请重新输入！”，同时将文本框中密码清空，设置焦点。
3. 密码为123456，要求密码框中以“*”的形式显示。
二、输出图形
应用嵌套的循环结构，输出由字符构成的特定图案。程序运行时单击窗体，即可在窗体上输出如下图案。
三、计算球体积和表面积
设计下图所示界面的程序，程序运行后，输入球的半径，单击“球体积”、 “球表面积”复选框，根据复选框是否可选，决定是否在右侧相应的文本框内显示球体积（
）和球表面积（
）的计算结果。
** 1 **
** 2** 2 ** ** 3** 3** 3 ** ** 4 **4**4**4 **
** 5** 5** 5** 5** 5 **
答案：
一、银行卡密码验证程序（30分）
Private Sub Command1_Click() 2分If Text1.Text = 123456 Then 4分
Form1.Cls 2分
Print "密码正确!" 2分Else 3分
Cls 3分
Print "密码错误,请重新输入!" 2分
Text1.Text = "" 2分
Text1.SetFocus 4分End If 4分End Sub 2分
二、输出图形（30分）
Private Sub Form_Click() 2分For i = 1 To 5 4分
Print "**"; 4分
For j = 1 To i 4分
Print i; 4分
Print "**"; 4分
Next j 2分
Print 2分
Next I 2分End Sub 2分
三、计算球体积和表面积（40分）
Private Sub Check1_Click() 2分
r = Val(Text1.Text) 2分
If Check1.Value = 1 Then 3分v = 4 * 3.14159 * r ^ 3 / 3 3分
Text2.Text = v 3分Else 1分Text2.Text = "" 2分End If 2分
End Sub 2分
Private Sub Check2_Click() 2分
r = Val(Text1.Text) 2分
If Check2.Value = 1 Then 3分
s = 4 * 3.14159 * r ^ 2 3分
Text3.Text = s 3分
Else 1分
Text3.Text = "" 2分
End If 2分
End Sub 2分
VB上机综合测试题（四）
一、在窗体上按下图放置两个标签和一个文本框，一个列表框和一个命令按钮，各控件的名称属性取默认值。其他属性按下图进行设置。要求：当用户在文本框输入他的籍贯后，单击“添加籍贯”按钮时，能够将籍贯添加到列表框中。双击列表框中的某一项时将该项删除。(25分)
二、输入圆的半径，计算圆的面积。要求自行设计界面，使用到的控件包括文本框，文字标签等。（35分）
三、定义一个下标上界为10的整型数组，并用随机函数为其赋值（值介于0-100）之间计算数组中所有偶数的数据的和，并用Msgbox函数输出。（40分）
答案：
一、
界面设计------10分
Private Sub Command1_Click()------2分
List1.AddItem Text1.Text ------5分
End Sub
Private Sub List1_DblClick() ------3分
List1.RemoveItem List1.ListIndex ------5分
End Sub
二、
界面-10分
Private Sub Command1_Click()------2分
Const PI As Single = 3.14------3分
Dim r As Integer, s As Single------5分
r = Val(Text1.Text) ------5分
s = PI * r * r------5分
Text2.Text = s------5分
End Sub
三、
Private Sub Form_Click()------2分
Dim a(10) As Integer, i As Integer, sum As Integer------5分For i = 0 To 10------5分
a(i) = Int(100 * Rnd) ------5分
Print a(i); ------3分
If a(i) Mod 2 = 0 Then------5分
sum = sum + a(i) ------5分
End If------2分
Next i------3分
MsgBox "随机数中偶数之和为：" & sum------5分
End Sub
VB上机综合测试题（五）
一、在窗体上画两个名称分别为Text1、Text2的文本框，再画两个命令按钮，名称分别为C1、C2，标题分别为“复制”、“删除”。程序运行时，在Text1中输入以下文本：
“最是那一低头的温柔，像一朵水莲花不胜凉风的娇羞，道一声珍重，道一声珍重，那一声珍重里有蜜甜的忧愁。”要求多行显示。
并用鼠标拖拽的方法选择任意一行后，单击“复制”按钮，则选中的一行字符被复制到Text2中，若单击“删除”按钮，则被选择的字符从Text1中被删除，请编写两个命令按钮的Click事件过程完成上述功能。（30分）
二、购买地铁车票，若乘1到4站，3元/位；若乘5到9站，4元/位；若乘10站以上，5元/位；输入人数person、站数n，输出应付款pay。（35分）
三、从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。（35分）
答案：
一、
界面设计----10分
Private Sub C1_Click()----3分
Text2.Text = Text1.SelText----7分
End Sub
Private Sub C2_Click()----3分
Text1.SelText = ""----7分
End Sub
二、
Private Sub Command1_Click()----1分
Dim x As Single, y As Single, z----3分
x = Val(Text1.Text) ----2分
y = Val(Text2.Text) ----2分
Select Case y----2分
Case Is >= 10----3分
z = 5 * x----3分
Case Is >= 5----3分
z = 4 * x----3分
Case Is >= 1----3分
z = 3 * x----3分
End Select----1分
Text3.Text = z----2分
End Sub
Private Sub Command2_Click()----1分
Text1.Text = ""----1分
Text2.Text = ""----1分
Text3.Text = ""----1分
End Sub
三、
Private Sub Form_Click()----2分
Dim max!, min!, x! ----3分
x = InputBox("请输入学生考试成绩")----3分max = x----2分
min = x----2分
Do While x > 0----2分
If x > max Then----3分
max = x----2分
ElseIf x < min Then----3分
min = x----2分
End If----2分
x = InputBox("请输入学生考试成绩")----3分Loop----2分
Print "max="; max; "min="; min----4分
End Sub
VB上机综合测试题（六）
1、窗体中有一个名称为Hscroll1的水平滚动条控件，要设置它的如下属性值，请编写代码实现如下内容：（20分）
(1) Hscroll1控件的滑块处于最小位置时值为8
(2) Hscroll1控件的滑块处于最大位置时值为72
(3)单击Hscroll1控件两端箭头时，滑块的增量值为2
(4)单击Hscroll1控件的空白处时，滑块的增量值为8
2、以下数列：1，1，3，5，9，15，25，41，…，的规律是从第3个数开始，每个数是它前面两个数的和加1。请编写适当的事件过程实现以下功能：在文本框Text1中输入整数40，单击Command1“计算”按钮，则在文本框Text2中显示该数列第40项的值。（提示：因数据较大，应使用Long型变量）（35分）
3、窗体上有两个标题分别是“读数据”和“统计”的命令按钮两个标签，名称分别为Label1和Label2，标题分别为“出现次数最多的字母是”和“它出现的次数为”；两个初始值为空的文本框名称分别为Text1和Text2。程序功能如下：单击“统计”按钮，则自动统计字符串s中所含各字母（不区分大小写）出现的次数，并将出现次数最多的字母显示在Text1文本框内，它所出现的次数显示在Text2文本框内，请为“统计”按钮编写适当的事件过程实现上述功能。（45分）
答案：
一、
Hscroll1.Min = 8：5分
Hscroll1.Max = 72：5分
Hscroll1.SmallChange =2：5分
https://www.doczj.com/doc/e214748432.html,rgeChange = 8 5分
二、
界面设计------10分
单击“计算”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click() 3分
Dim f As Long 3分
a(1) = 1 4分
a(2) = 1 4分For i = 3 To Val(Text1.Text) 5分
f = a(i - 2) + a(i - 1) + 1 5分
a(i) = f 4分Next i 3分Text2.Text = f 4分End Sub
三、
界面设计------10分
Private Sub Command2_Click() 1分Dim a(26) As Integer 1分n = Len(s) 3分For i = 1 To n 1分
c = UCase(Mid(s, i, 1)) 3分
If c >= "A" And c <= "Z" Then 3分
j = Asc(c) - Asc("A") + 1 3分
a(j) = a(j) + 1 2分
End If
Next i
Max = a(1) 2分t = Chr(Asc("A")) 3分For i = 2 To 26 2分
If a(i) > Max Then 2分
Max = a(i) 2分
t = Chr(Asc("A") + i - 1) 3分
End If
Next i
Text1.Text = t 2分Text2.Text = Max 2分End Sub
VB上机综合测试题（七）
1、在窗体上建立一个标签，其名称为Label1，窗体的标题为“设置标签属性”；标签的位置为距窗体左边界500，距窗体顶边界300；标签的标题为“等级考试”；标签可以根据标题的内容自动调整大小。请用代码列写出图片中对象的属性设置。（30分）
2、由键盘输入10个数，再逆序输出。（35分）
3、求1～20之间能被5整除的所有数的乘积。（35分）
答案：
一、
界面设计-----10-分
Label1.Caption = "等级考试"-----4-分
Form1.Caption = "设置标签属性"-----4-分
Label1.Left = 500-----4-分
Label1.Top = 300-----4-分
Label1.AutoSize = True-----4分
二、
界面设计------5分
Dim a(1 To 10) As Integer-----2分
Option Explicit-----2分
Private Sub Command1_Click()----2分
Dim i%-----2分
Print "输入的10个数"----2分
For i = 1 To 10-----2分
a(i) = Val(InputBox("输入第" & i & "个数"))-----2分Next i-----2分
For i = 1 To 10-----2分
Print a(i); -----2分
Next i-----2分
Print: Print-----2分
End Sub
Private Sub Command2_Click()-----2分
Dim i%----2分
Print "逆序后的10个数"-----2分
For i = 10 To 1 Step -1----2分
Print a(i); ----2分
Next i-----2分
End Sub
三、
界面设计------10分
Private Sub Form_Click()------3分
Dim i%, s As Long------2分
s = 1------3分
For i = 1 To 20------3分
If i Mod 5 = 0 Then------3分
s = s * i-----3分
End If------2分
Next i------2分
Print s------3分
End Sub
VB上机综合测试题（八）
1、编写程序，打印如图所示图形。(30分)
2、1—100之间自然数的平方和，程序参考界面如图所示：(30分)
3、找出在1～1000中同时满足被7除余5、被5除余3、被3除余2条件的数，界面自定。(40分)
答案：
1评分标准：
Private Sub Form_Click() 2分
Dim i%, j% 2分
For i = 1 To 5 4分
Print Tab(15 - i); 5分
For j = 1 To (2 * i - 1) 5分
Print "*"; 2分
Next j 2分
Next I 2分
Print 2分
End sub 2分
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
w o r d上机操作基础试题 Revised by Liu Jing on January 12, 2021
W o r d上机操作题注意事项： 1、本次决赛包含十个大题，其中五个word大题，四个Excel大题。共一百分 （word 50分，Excel 50分）。 2、本次决赛时间是分钟。 3、决赛中新建word文档后缀是”.doc”。 第一题，将素材一按要求排版。（新建一个文档名为”第一题.doc”） (1)、将标题字体设置为“华文行楷”，字形设置为“常规”，字号设置为“小初”、选定“效果”为“空心字”且居中显示。（2分） (2)、将“李白”的字体设置为“隶书”、字号设置为“小三”，文字右对齐加双曲线边框，线型宽度应用系统默认值显示。且首行缩进两个字符。（3分） (3)将正文行距设置为25磅，。将文本“蜀道难”作为水印插入文档，水印格式版式”斜式”其他均为默认。（2分） (4). 将全文中的“难”加粗，并设置为斜体，颜色为红色。（1分） 《素材一》 蜀道难 --李白 噫吁嚱(yī xū xī)！危乎高哉！蜀道之难，难于上青天！蚕丛及鱼凫(fú)，开国何茫然！尔来四万八千岁，不与秦塞(sài)通人烟。西当太白有鸟道，可以横绝峨眉颠。地崩山摧壮士死，然后天梯石栈(zhàn)相钩连。上有六龙回日之高标，下有冲波逆折之回川。黄鹤之飞尚不得过，猿猱(náo)欲度愁攀援。青泥何盘盘，百
步九折萦(yíng)岩峦。扪(mén)参(shēn)历井仰胁(xié)息，以手抚膺(yīng)坐长叹。 问君西游何时还畏途巉(chán)岩不可攀。但见悲鸟号(háo)古木雄飞雌从绕林间。又闻子规啼夜月，愁空山。蜀道之难，难于上青天，使人听此凋朱颜！连峰去天不盈尺，枯松倒挂倚绝壁。飞湍瀑流争喧豗(huī)，砯(pīng)崖转(zhuǎn)石万壑（hè）雷。其险也如此，嗟(jiē)尔远道之人胡为(wèi)乎来哉！ 剑阁峥嵘而崔嵬(wéi)，一夫当关，万夫莫开。所守或匪(fēi)亲，化为狼与豺。朝避猛虎，夕避长蛇，磨牙吮(shǔn)血，杀人如麻。锦城虽云乐，不如早还家。蜀道之难，难于上青天，侧身西望长咨(zī)嗟(jiē)。 第二题，对素材二操作要求如下（新建一个文档名为”第二题.doc”） (1)设置第一段首字下沉，第二段首行缩进两个字符。（分） (2)将第一段(除首字)字体设置为“宋体”，字号设置为“五号”（1分）。 (3)将第二段字体设置为“方正舒体”，字号设置为“四号”，加双横线下划线。（分） (4)在该页插入页眉页脚均输入”归去来兮辞”。将文本“归去来兮”作为水印插入文档，水印格式版式”斜式”颜色为”黄色”其他均为默认。（3分）《素材二》 归去来兮，请息交以绝游。世与我而相遗，复驾言兮焉求悦亲戚之情话，乐琴书以消忧。农人告余以春兮，将有事乎西畴。或命巾车，或棹孤舟。既窈窕以寻壑，亦崎岖而经丘。木欣欣以向荣，泉涓涓而始流。羡万物之得时，感吾生之行休。
大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.doczj.com/doc/e214748432.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。
A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0
VB上机综合测试题（一） 一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分） 二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分） 三、请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。（40分）
答案： 一、 界面设计------10分 Private Sub Check1_Click() = ------5分 End Sub Private Sub Check2_Click() = 分 End Sub Private Sub Check3_Click() = ------5分 End Sub 二、 界面设计------10分 Private Sub Cmd1_Click()------2分Dim a%(19), i%, sum!, aver! ------4分Randomize ------3分 For i = 0 To 19------3分 a(i) = Int(Rnd * 1001) ------3分 sum = sum + a(i) ------3分 Next i ------2分 aver = sum / 20 ------3分 Print aver ------2分 End Sub 三、 界面设计------10分 Dim? n%------2分 Private Sub Form_Load() End Sub
办公软件上机操作及试题 1．在D盘下建立一新文件夹excel。并将新建的excel表用＂成绩．xls＂名字存放到新建立的文件夹中。 ２．将上图内容填写到新建文件中． 具体要求： （1）计算每个学生的总分，并求出各科目的最高分、平均分。 （2）将表格标题设置成华文彩云、24磅大小、跨列居中对齐方式。 （3）将制表日期移到表格的下边，并设置成隶书、加粗倾斜、12磅， （4）将表格各栏列宽设置为8.5。列标题行行高设置为25，其余行高为最合适的行高。列标题粗体、水平和垂直居中，天蓝色的底纹。再将表格中的其他内容居中，平均分保留小数1位。按样张设置表格边框线。 （5）对学生的每门课中最高分以粗体、蓝色字、12.5％灰色底纹显示。【提示】使用条件格式。 （6）选中表格中A3:C8范围的数据，在当前工作表Sheet1中创建嵌入的簇状柱形图图表，图表标题为“学生成绩表”。将该图表移动，放大到B16:H29区域。 （7）将工作表改名为“成绩表”。 （8）对“成绩表”进行页面设置：纸张大小为A4，表格打印设置为水平、垂直居中，上、下边距为3厘米。设置页眉为“学生成绩表”，格式为居中、粗斜体。设置页脚为“制表人：×××”，×××为自己的姓名，靠右对齐。 EXCEL上机试题（二） ２.在D盘下建立一新ＥＸＣＥＬ文件＂Sheet2．xls＂．并将上图内容写入文件中．
（1）删除工作表上方的表格标题和制表日期，仅保留表格列标题（字段名）及各学生的内容。 （2）在数据列表的姓名右边增加性别字段，第2、4、7、8条记录为女同学，其他为男同学。将工作表Sheet2复制且放置到工作簿的最后，并重命名为“Sheet3”，然后回到工作表Sheet2中进行操作。 （3）对Sheet2中数据按性别排列，男同学在上，女同学在下，性别相同的按总分降序排列。 （4）筛选出总分小于200或大于270的女生记录，效果参见下图。 3．对工作表Sheet3进行操作，效果参见下图： （1）按性别分别求出男生和女生的各科平均分（不包括总分），平均分成绩保留1位小数。【提示】按性别进行分类，对三门课程的成绩进行汇总，汇总的的方式是求平均值。 4．另以Test1.xls为文件名存盘退出。 2004年10月全国高等教育自学考试办公自动化原理及应用试题 一、单项选择题（本大题共15小题，每小题1分，共15分） 4.Excel排序时，最多可用到（）个关键字。 A.2 B.3 C.1 D.任意个 5.根据工作表中的数据建立好图表后，若再修改表中的数据，则下面正确的说法是（） A.图表会自动相应调整 B.图表不会自动调整 C.单击图表后才会自动调整 D.双击图表后才会自动调整
第二部分VB上机考试模拟试题 一、程序调试题(改错或填空) （二）程序调试题 [题1] Modify.bas模块中的getanswer过程是用于计算一元二次方程的根，并将结果输出来。 Option Explicit Public Sub getanswer() '该过程是用于计算一元二次方程的根，并将结果输出来。 Dim dalt!, a#, b#, c# a = InputBox("输入系数a") b = InputBox("输入系数b") c = InputBox("输入系数c") dalt = b * b - 4 * a * c If ----1---- dalt >0 then dalt = Sqr(dalt) MsgBox Format((-b + dalt) / 2 / a), "0.00" + Chr(13) + Chr(10) + Format((-b - dalt) / 2 / a, "0.00") Elseif ---2---- dalt =0 then MsgBox Format(-b / 2 / a, "0.00") + Chr(13) + Chr(10) + Format(-b / 2 / a, "0.00") Else dalt= ---3---- Sqr(-dalt) MsgBox Format((-b + dalt) / 2 / a, "0.00") + "+i" + Chr(13) + Chr(10) + Format((-b - dalt) / 2 / a, "0.00") + "-i" End If End Sub [题2] 打印输出一菱形图案。 Public Sub prt() '打印由#组成的菱形图案 ' # ' ### ' ##### ' ####### ' ######### ' ####### ' ##### ' ### Dim start As String '每行起始空格数 Dim count As Integer '每行#个数 For i = 1 To 9 If i <= 5 Then '------1------ start=space(21-i) count = 2 * i - 1 Else start = Space(11 + i) '-------2------ count=19-2*i End If '------3------ form1.print start; For j = 1 To count Form1.Print "#"; Next j '------4------ form1.print Next i [题3] 过程pyramid用以打印一个数字金字塔，请在横线上填入必要的内容（将横线删除掉后填入正确的内容），使其完整。 Option Explicit Public Sub pyramid() '打印数字金字塔 ' 1 ' 222 ' 33333 ' 4444444 ' 555555555 ' 6666666 ' 77777 ' 888 ' 9 Dim i As Integer Dim j As Integer Dim start As String '每行起始空格数 Dim num As Integer '每行数字个数 For i = 1 To 9 If i <= 5 Then start = Space(20 - i) num = 2 * i - 1 Else start= '------1------ Space(10 + i) num= '------2------ 2 * (10-i) - 1 End If Form1.Print start; For j = 1 To num '------3------ form1.print trim(str(i)); Next j '------4------ form1.print Next i End Sub [题4] 改错。 Option Explicit Public Sub prt() '打印由数字组成的如下所示金字塔图案 ' 9 ' 888 ' 77777 ' 6666666 ' 555555555 ' 44444444444 ' 3333333333333 ' 222222222222222 ' 11111111111111111 Dim i As Integer, j As Integer '****** 错误1 ****** For i = 9 To 1 step -1 Form1.Print Space(i); '****** 错误2 ****** For j = 1 To 2 *(10- i) - 1 '****** 错误3 ****** Form1.Print trim(str(i)); Next j
2015学年北京企业管理研修学院 新思维全网创业班期末考试试卷 Microsoft Office Word （上机部分） 注意事项：1、本科分笔试部分和上机部分。总分100分，笔试部分50分。 2、本科上机部分满分50分。 3、新建一个文档操作下列各题。 Word 操作题一：（共20分） 网络发展面临的挑战 1、网络投资 近来,网络投资日渐升温,有一种说法认为,目前中国网络热潮已经到来,如果发展符合,“中国有可能做到网络第一”。但是很多专家认为,网络接入存在瓶颈,内容提供少得可怜,仍然制约着网络的推进与发展,其实真正的赢利方式以及不同运营之间的利益分配比例,都有待于进一步的探讨和实践。 2、网络接入热潮原因 中国出现网络接入热潮，很大一个原因是由于以太网不像中国电信骨干网或者有线电视网那样受到控制，其接入谁都可以做，而国家目前却没有相应的法律法规来管理。房地产业的蓬勃发展的兴起以及互联网用户的激增，都为网络市场提供了一个难得的历史机会。 3、Office 办公 Microsoft Office 首开办公集成软件之先河，深受广大用户的钟爱，至今青睐有加。它将极富特色的应用程序有机地集成到一起，浑然天成，而且更胜一筹。 所有这一切归结为最根本的一点：Microsoft Office 使您可以方便地极尽软件所能，集
Word操作题二：（共10分） 在文档建立如下的表格： 1、插入一个8行7列表格。 2、调整行高与列宽： 第一行行高为22磅、第4、7行行高为5磅；其余均为35磅。 第一列列宽为1厘米、第二列列宽为2厘米；其余各列1.4厘米。 4、按表样所示合并单元格； 5、按要求填充颜色： 左上角单元格：绿色. 第4、7行：红色 第一列：20%灰色. 第1行、第2列：黄色. 6、设置表格线：周边粗线1.5磅；其余细线0.5磅. Word操作题三：（共20分） 按下列要求操作： 1、录入文字，如下图“样张”所示。 2、将“计算N！的算法”设置为艺术字，楷体40号，加粗，居中，如样张所示。 3、将Step1～Step5设置为项目符号，项目符号缩进2字符，文字的起始位置为4字 符。字体设置为黑体小四号。 4、在文中插入自选图形，如样张所示。 5、“开始”和“结束”为圆角矩形，宽2cm高0.8cm，填充颜色为浅绿色，透明度50％， 边框线为1磅绿色； 6、平行四边形宽3cm高0.8cm，边框线为3磅蓝色双线； 7、其它矩形宽3cm高0.8cm； 8、菱形宽4高1cm，其内部文本框上下内部边距为0cm。 9、所有的自选图形中的文字居中对齐。使用连接符在自选图形中进行连接，箭头使用箭头1（最小的箭头），粗细1磅。 10、将自选图形的圆角矩形、矩形、菱形和平行四边形水平居中对齐（图形的中心线 在一条直线上），并将该图形组合为一个整体。 11、将画布的版式设置为四周型。 12、加入如样张所示的表格，表格宽度为6cm，将表格的版式设置为环绕型，使表格置 于流程图右侧。第一行和最后一行的单元格填充色为浅绿色，与相邻行的分割线为双线。第一行中的文字加粗。
第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else
ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。
Word上机操作题 注意事项： 1、本次决赛包含十个大题，其中五个word大题，四个Excel大题。共一百分 （word 50分，Excel 50分）。 2、本次决赛时间是分钟。 3、决赛中新建word文档后缀是”.doc”。 第一题，将素材一按要求排版。（新建一个文档名为”第一题.doc”） (1)、将标题字体设置为“华文行楷”，字形设置为“常规”，字号设置为“小初”、选定“效果”为“空心字”且居中显示。（2分） (2)、将“李白”的字体设置为“隶书”、字号设置为“小三”，文字右对齐加双曲线边框，线型宽度应用系统默认值显示。且首行缩进两个字符。（3分） (3)将正文行距设置为25磅，。将文本“蜀道难”作为水印插入文档，水印格式版式”斜式”其他均为默认。（2分） (4).将全文中的“难”加粗，并设置为斜体，颜色为红色。（1分） 《素材一》 蜀道难 --李白 噫吁嚱(yīxūxī)！危乎高哉！蜀道之难，难于上青天！蚕丛及鱼凫(fú)，开国何茫然！尔来四万八千岁，不与秦塞(sài)通人烟。西当太白有鸟道，可以横绝峨眉颠。地崩山摧壮士死，然后天梯石栈(zhàn)相钩连。上有六龙回日之高标，下有冲波逆折之回川。黄鹤之飞尚不得过，猿猱(náo)欲度愁攀援。青泥何盘盘，百步九折萦(yíng)岩峦。扪(mén)参(shēn)历井仰胁(xié)息，以手抚膺(yīng)坐长叹。问君西游何时还？畏途巉(chán)岩不可攀。但见悲鸟号(háo)古木雄飞雌从绕林间。又闻子规啼夜月，愁空山。蜀道之难，难于上青天，使人听此凋朱颜！连峰去天不盈尺，枯松倒挂倚绝壁。飞湍瀑流争喧豗(huī)，砯(pīng)崖转(zhuǎn)石万壑（hè）雷。其险也如此，嗟(jiē)尔远道之人胡为(wèi)乎来哉！ 剑阁峥嵘而崔嵬(wéi)，一夫当关，万夫莫开。所守或匪(fēi)亲，化为狼与豺。朝避猛虎，夕避长蛇，磨牙吮(shǔn)血，杀人如麻。锦城虽云乐，不如早还家。蜀道之难，难于上青天，侧身西望长咨(zī)嗟(jiē)。 第二题，对素材二操作要求如下（新建一个文档名为”第二题.doc”） (1)设置第一段首字下沉，第二段首行缩进两个字符。（1.5分） (2)将第一段(除首字)字体设置为“宋体”，字号设置为“五号”（1分）。 (3)将第二段字体设置为“方正舒体”，字号设置为“四号”，加双横线下划线。（1.5分） (4)在该页插入页眉页脚均输入”归去来兮辞”。将文本“归去来兮”作为水印插入文档，水印格式版式”斜式”颜色为”黄色”其他均为默认。（3分）《素材二》
VB程序设计期末考试题 一、选择题 1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D).
A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile
WORD上机操作试题 试题一（ 25 分） 请在“答题”菜单上选择“字处理”命令，然后按照题目要求再打开相应的命令， 完成下面的内容。具体要求如下： * * * * * * *本套题共有5小题* * * * * * * 1.在考生文件夹下打开文档，其内容如下： 【文档开始】 甲A 第 20 轮前瞻 戚务生和朱广沪无疑是国产教练中的佼佼者，就算在洋帅占主导地位的甲Ａ，他俩也出尽 风头。在他们的统领下，云南红塔和深圳平安两队稳居积分榜的前三甲。朱、戚两名国产 教练周日面对面的交锋是本轮甲Ａ最引人注目的一场比赛。本场比赛将于明天下午 15:30 在深圳市体育中心进行。 红塔和平安两队在打法上有相似的地方，中前场主要靠两三名攻击力出众的球员去突击， 平安有堤亚哥和李毅，红塔也有基利亚科夫。相比之下，红塔队的防守较平安队稳固。两 队今年首回合交手，红塔在主场 2:1 战胜平安。不过经过十多轮联赛的锤炼，深 圳队的实力已有明显的提高。另外，郑智和李建华两名主将的复出，使深圳队如虎添翼。这场比赛的结果对双方能否保持在积分第一集团都至关重要。现在红塔领先平安两分，但平安少赛一轮，而且红塔下轮轮空。红塔队如果不敌平安，红塔将极有可能被踢出第 一集团。对平安队来说，最近两个客场一平一负，前进的脚步悄然放慢。本轮回到主场，只有取胜才能继续保持在前三名。 2002赛季甲 A 联赛积分榜前三名 ( 截止到 19 轮) 名次队名场次胜平负进球数失球数积分 1大连实德1911443620 2深圳平安189632913 3北京国安199642819 【文档结束】
按要求完成以下操作并原名保存： （1）将段文字（“甲 A 第 20 前瞻”）置三号、色、仿宋_GB2312（西文使用中文字体）、居中、加色方框，段后距行。（6 分，置一个得 1 分）（2）将正文各段（“戚生??前三名。”）置挂 2 字符，左右各1字符，行距倍行距。（3 分，置一个得 1 分） （3）置面型“ A4”。（2 分） （4）将文中最后 4 行文字成一个 4 行 9 列的表格，并在“ 分” 列按公式“ 分 =3* +平” 算并入相内容。（8 分，每行正确得 2 分） （5）置表格第 2 列、第 7 列、第 8 列列 1.7 厘米，其余列列行高 0.6 厘米、表格居中；置表格所有文字中部居中；置所有表格1 厘米，0.75 磅 色双窄。（6分，置一个步得 1 分） 试题二（ 25 分 , 提示：文件在素材目录中） 入考生文件中的文件，参考按下列要求行操作。 1.置面型自定大小，度 20 厘米，高度 26 厘米；（2 分，高正确各得 1 分） 2.文章加“黄河的今天与明天” ，置其格式：文新魏、一号字、色、居中，填充灰色 -25%的底；（2 分，加 1 分，置正确 1 分） 3.将正文第一段置首字下沉 3 行，首字字体楷体、色，其余段落置首行 2 字符；（ 2 分，首字置正确 1 分，其余段落置正确 1 分） 4.参考，在正文第二段适当位置以四周型方式插入片，并置片高 度 4 厘米，度 6 厘米；（2 分，插入片正确 1 分，置正确 1 分） 得 5.将正文中所有的“黄河” 置加粗、色、着重号；（2分，全部改来2 分，有漏得 1 分） 6.参考，在正文适当位置插入排文本框“保母河”，置其条金色、 1.5 磅，方式四周型、右，置文字格式文行楷、二号字、色；（ 2 分，插入正确 1 分，置正确 1 分） 7.将正文最后一段分等的两，不加分隔；（2 分） 8.根据提供的数据，制作如所示表，具体要求如下： (1)将文件中的数据 Excel 工作表，要求自第一行第一列开始存放，工作表命名 “沙量” ；（ 2 分） (2)在“沙量”工作表中，将 A1:D1 元格区域合并及居中，并置其中文字格式黑体、16 号字、色；（2 分，全部正确得 2 分，有漏 1 分）
VB试卷 一、单项选择题(每题2分,共40分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置属性为False来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下4个选项，不属于VB的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置属性为False来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由属性的设置值决定。
1、在考生文件夹下有工程文件wy7、vbp及窗体文件wy7、frm,该程序就是不完整的,请在有？号的地方填入正确的程序代码,然后删除？及所有注释符号(即 '号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹与文件名。 本题描述如下: 在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别就是C1、C2与C3,标题分别就是"读入"、"加密"与"存盘"。要求程序运行后,点击"读入"按钮,将文本文件in7、txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击"加密"按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母就是"a",则转换后的就是"c",转换前就是"E",转换后就是"G";点击"存盘"按钮, 则将转换后的文本框中的文本保存到out7、txt 文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click() Dim strinfo As String Open "in7、txt" For Input As 1 Input #1, strinfo Close #1 Text1、Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1、Text) strchange = strchange + Chr(Asc(Mid(Text1、Text, i, 1)) + 2) Next Text1、Text = strchange End Sub Private Sub C3_Click() Open "out7、txt" For Output As 1 Print #1, Text1、Text Close #1 End Sub 2、(1)在考生文件夹下有工程文件wy5、vbp及窗体文件wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下: 在窗口中有一个RichText文本框控件(名称为rtx1)与一个文本框控件(名称为Text1),两个命令按钮,名称 分别为Command1与Command2,标题分别为"加入WY01、TXT"、"统计字符个数"。要求程序运行后,单击command1将考生文件夹下的wy01、txt的内容显示到rtx1中;单击"统计字符个数"按钮统计Text1中有多少个字符,将结果显示在Text1中。
一、文字格式的设置 1、设置文字的字体、字形和字号 （１）将所有文字设置为“宋体”“常规”“五号”。 2、设置文字的效果 (1)将“花王”二字“加粗”,设置“字符边框”、“字符底纹”、“字符缩放选择2０0％”、字体颜色“黑色”. （2)将“洛阳牡丹甲天下”等字设置为“楷体/新宋体”、“五号”、“加粗”、“海绿色”，将“白居易”等字设置为“宋体”、“五号”、“加粗”、“黑色”,将“花开花落二十日,一城之人皆若狂”设置为“宋体”、“五号”、“倾斜”、“下划线”、“蓝色”，将“欧阳修”等字设置为“宋体”、“五号”、“加粗”、“黑色”,将“洛阳地脉花最宜,牡丹尤为天下奇”等字设置为“宋体”、“五号”、“倾斜”、“下划线”、“蓝色”,将“牡丹图案寓意”等字设置为“仿宋”、“四号”、“加粗”、“倾斜”、“红色”,后面十小段“牡丹图案寓意”全部设置为“楷体”、“五号”、“黑色”。 二、段落和页面的设置 1、段落格式的设置 （1）将“洛阳牡丹甲天下”另起一段。 (2）将所有文字进行段落设置,“行距”设置为“固定值”“20磅”。 2、页面设置 将“页边距”设置为“默认值”，将“纸张”设置为“Ａ4210．0×297．0mm”,“方向”为“横向”。 3、分栏设置 将文档设置为两栏。 4、页眉页脚的设置 在“页眉”编辑框中输入“中华牡丹园”，然后“居中”对齐。 二、项目符号和编号的设置 将牡丹图案的九种寓意设置项目符号的星形符号。 三、页面边框的设置 1、标题的制作 （1）将标题插入到文档合适的位置，并将其设置为艺术字。“艺术字”选择第三行第四列。“字体”设置为“隶书”,“字号”设置为“4４”，在“文字”框内输入“中华牡丹园”。“艺术字”形式为“细上弯弧”,环绕方式为“紧密型环绕”。 四、文本框的制作 （1)在文档窗口右侧的适当位置插入一个“竖排”“文本框”。在“设置文本框格式”对话框里设置“填充颜色”为“浅绿”，线型粗细为“4.５磅”。 （2)在文本框内输入：你知道吗?牡丹花的食用从宋代就已经开始了。到了明清时人们已有了较为完满的原料配方和制作方法。《养小录》记载:『牡丹花瓣,汤焯可，蜜浸可,肉汗绘亦可』。其意,无论滑炒,勾芡，还是清炖,牡丹花那浓郁的香气终不改变。 （3）将“你知道吗?”等字设置为“宋体”“五号”“倾斜”“红色”。 （4)将“牡丹的花……”等字设置为“宋体”“五号”“绿色”。 五、图片的插入 在文档的开始处“插入”→“图片”并对其大小和位置进行适当的调整，“图片”与“文字”的环绕方式为“四周型”。 六、绘图工具的使用 在文档的右下方插入一张图片,并进行适当的调整。“图片”环绕方式设置为“紧密型环绕”。
| 最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。 A、 , B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面（）是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、 4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) — C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A",