参考代码如下:
Private Sub Command1_Click()
Text1.Text = ""
If Check1.Value = 1 Then
Text1.Text = Check1.Caption
End If
If Check2.Value = 1 Then
Text1.Text = Text1.Text + Check2.Caption
End If
End Sub
参考代码如下:
Dim K As Single, S As Single
Private Sub C1_Click()
S = 1: K = 1
Do
K = K + 1
S = S + (-1) ^ (K + 1) / K
Loop Until 1 / K < 0.0001
Text1.Text = S '将计算结果显示在文本框中
End Sub
Private Sub C2_Click()
Call putdata("kssj.dat", S)
End Sub
putdata过程的作用是打开指定的文件，进行写操作。
该过程有2个参数，一个是欲打开的文件名，一个是要保存的变量名。
这里按题目要求，指定的文件名是kssj.dat，变量是S，为了保证变量S
能够在两个过程中均能使用，把S定义为模块级变量。
操作步骤如下：
1. 打开考生文件夹中的工程Menu1.Vbp。
2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3. 在“标题”栏中输入菜单项的标题“播放(&P)”，在“名称”栏中输入菜单项的名称“播放”。
4. 单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“打开”；使用类似的操作，输入如下所示的菜单：
播放(P) 数据处理
打开计算
──────
退出 Ctrl+X
5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6. 单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.Bas”文件添加到本工程。该模块的功能是：随机产生10个1～99（包含1和99）之间的整数，找出其最大值、最小值和平均值。填空的参考答案如下：
'*****question*****
a(i) = Int(Rnd * 99 + 1)
'*****question*****
If a(i) < m_min Then m_min = a(i)
7. 添加如下所示的菜单事件过程代码：
Private Sub 退出_Click()
End
End Sub
Private Sub 计算_Click()
Call calculate
End Sub
8. 调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。
2
参考代码如下:
Dim k As Integer '定义模块级变量
Private Sub Command1_Click()
If Command1.Caption = "计数" Then
'按钮标题变为“暂停”
Command1.Caption = "暂停"
Timer1.Enabled = True '启动计时器
Else
Command1.Caption = "计数"
Timer1.Enabled = False
End If
End Sub
Private Sub HScroll1_Scroll()
'水平滚动条调整定时器时间间隔
Timer1.Interval = HScroll1.Value
Label2.Caption = "时间间隔=" & Timer1.Interval & "ms" '在标签中显示时间间隔End Sub
Private Sub Timer1_Timer()
k = k + 1 '变量k加1
Label1.Caption = k
If k >= 50 Then '计数达到50时，置变量k为0
Label1.Caption = "计数已达50"
Timer1.Enabled = False
End If
End Sub
参考代码如下:
Dim x As Single, y As Single
Private Sub C1_Click()
x = Val(Text1.Text)
If x <= 0 Then
y = Abs(x * (x + 2))
ElseIf x <= 10 Then
y = Log(2 * x)
Else
y = Exp((x+1) / 2)
End If
Label2.Caption = y
End Sub
Private Sub C2_Click()
Call putdata("kssj.dat", y)
End Sub
操作步骤如下：
1. 打开考生文件夹中的工程Menu1.Vbp。
2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“标注(&B)”，在“名称”栏中输入菜单项的名称“标注”。
4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“线性”；使用类似的操作，输入如下所示的菜单：
标注(B) 数据处理
线性计算
──────
退出 Ctrl+X
5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6. 单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。
该模块的功能是：在窗体上输出100～200之间的所有素数。填空的参考答案如下： '*****question*****
Exit Do
'*****question*****
If k > m Then
7. 添加如下所示的菜单事件过程代码：
Private Sub 退出_Click()
End
End Sub
Private Sub 计算_Click()
calculate
End Sub
8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。
3
参考代码如下：
Private Sub Command1_Click()
If Text1.Text = "ABC" Then
MsgBox "登录成功"
Else
MsgBox "密码错误"
End If
End Sub
Private Sub Form_Load()
Combo1.AddItem "张小三"
Combo1.AddItem "李四"
Combo1.AddItem "欧阳玉荣" End Sub
参考代码如下：
Dim sum As Integer, str1 As String Private Sub C1_Click()
Call getdata("INI.TXT", str1)
Text1.Text = str1
End Sub
Private Sub C2_Click()
Dim c As String, i As Integer
sum = 0
For i = 1 To Len(str1)
c = Mid(str1, i, 1)
If c >= "A" And c <= "Z" Then sum = sum + 1
End If
Next i
Text2.Text = Str(sum)
End Sub
Private Sub C3_Click()
Call putdata("kssj.dat", sum)
End Sub
操作步骤如下：
1. 打开考生文件夹中的工程Menu1.Vbp。
2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“插入(&C)”，在“名称”栏中输入菜单项的名称“插入”。
4. 单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“页码”；使用类似的操作，输入如下所示的菜单：
插入(C) 数据处理
页码计算
──────
退出 Ctrl+X
5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6. 单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。
该模块的功能是：使用选择排序法，将一组无序的数据按从小到大的顺序排列。填空的参考答案如下：
'*****question*****
For j = i + 1 To 10
'*****question*****
a(i) = a(j)
7. 添加如下所示的菜单事件过程代码：
Private Sub 退出_Click()
End
End Sub
Private Sub 计算_Click()
calculate
End Sub
8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。
4
参考代码如下:
Private Sub Command1_Click()
CommonDialog1.ShowOpen '调用通用对话框
'通过通用对话框选择考生文件夹下的“D22.JPG”文件
Image1.Picture = LoadPicture(CommonDialog1.FileName) '装载图形End Sub
Private Sub HScroll1_Scroll()
'在滚动条的滚动事件中调整图片的宽度
Image1.Width = HScroll1.Value
End Sub
参考代码如下:
Option Explicit
Private Sub Command1_Click()
Dim sum As Single, i As Integer, avg As Single
Dim cnt As Integer
Getdata
List1.Clear '清空列表框
For i = 1 To 50
List1.AddItem A(i)
sum = sum + A(i)
Next i
avg = sum / 50
For i = 1 To 50 '统计大于平均数的个数
If A(i) > avg Then
cnt = cnt + 1
End If
Next i
Text1.Text = avg
Text2.Text = cnt
End Sub
Private Sub Command2_Click()
Call Putdata("kssj.dat", Text2.Text)
End Sub
操作步骤如下：
1. 打开考生文件夹中的工程Menu1.Vbp。
2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“文件(&F)”，在“名称”栏中输入菜单项的名
称“文件”。
4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单
项“打开”；使用类似的操作，输入如下所示的菜单：
文件(F) 数据处理
打开计算
──────
退出 Ctrl+X
5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6. 单击“工程”菜单的“添加模块”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。
该模块中的calculate过程的功能是：求Sn=a+aa+aaa+aaaa+…（最后一项为n个a）的值。填空的参考答案如下：
'*****question*****
For i = 1 To n
'*****question*****
s = s + t
7. 添加如下所示的菜单事件过程代码：
Private Sub 退出_Click()
End
End Sub
Private Sub 计算_Click()
calculate
End Sub
8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。
5
参考代码如下：
Private Sub Option1_Click()
Text1.FontName = "宋体"
End Sub
Private Sub Option2_Click()
Text1.FontName = "黑体"
End Sub
排序的方法有多种，下面给出冒泡排序的算法，其它排序算法请参考有关书籍。参考代码如下:
Private Sub Command1_Click()
Dim i As Integer
getdata '调用Getdata过程，读取数据
For i = 1 To 50
'将数组中的数据添加到List1中
List1.AddItem A(i)
Next i
End Sub
Private Sub Command2_Click()
'以下为冒泡排序算法
Dim i As Integer, j As Integer
For i = 1 To 50
For j = 1 To 50 - i
If A(j) < A(j + 1) Then
t = A(j)
A(j) = A(j + 1)
A(j + 1) = t
End If
Next j
Next i
For i = 1 To 50
List2.AddItem A(i)
Next i
End Sub
Private Sub Command3_Click()
putdata "kssj.dat"
End Sub
操作步骤如下：
1. 打开考生文件夹中的工程Menu1.Vbp。
2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“文件(&F)”，在“名称”栏中输入菜单项的名称“文件”。
4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“打开”；使用类似的操作，输入如下所示的菜单：
文件(F) 数据处理
打开计算
──────
退出 Ctrl+X
5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6. 单击“工程”菜单的“添加模块”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。
该模块中的calculate过程的功能是：在窗体上打印由"#"组成的菱形。填空的参考答案如下：
'*****question*****
For i = 1 To 4
'*****question*****
Menu1.Print Spc(10 - i);
7. 添加如下所示的菜单事件过程代码：
Private Sub 退出_Click()
End
End Sub
Private Sub 计算_Click()
calculate
End Sub
8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。
6
参考代码如下:
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName) End Sub
参考代码如下：
Dim a, b, c, p, s As Single
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If (a + b) < c Or (a + c) < b Or (b + c) < a Then
MsgBox "输入的数据不能构成三角形！"
Else
p = (a + b + c) / 2
s = Sqr((p - a) * (p - b) * (p - c) * p)
Text4.Text = s
End If
End Sub
Private Sub Command2_Click()
putdata "kssj.dat", Text4.Text
End Sub
操作步骤如下：
1. 打开考生文件夹中的工程Menu1.Vbp。
2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“文件(&F)”，在“名称”栏中输入菜单项的名称“文件”。
4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“新建”；使用类似的操作，输入如下所示的菜单：
文件(F) 数据处理
新建计算
打开
退出 Ctrl+X
5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6. 单击“工程”菜单的“添加模块”命令，将考生文件夹下的“CDMK.Bas”文件添加到本工程。
该模块中的calculate过程的功能是：将任意长度的字符串中的字符顺序倒置。填空的参考答案如下：
'*****question*****
n = Len(s)
'*****question*****
c = Mid(s, i, 1)
7. 添加如下所示的菜单事件过程代码：
Private Sub 退出_Click()
End
End Sub
Private Sub 计算_Click()
calculate
End Sub
8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。
7
参考代码如下:
Private Sub Command1_Click()
Dim g As String
'根据文本框内容进行成绩判定
Select Case Val(Text2.Text)
Case Is >= 85
g = "优"
Case Is >= 60
g = "及格"
Case Else
g = "不及格"
End Select
'在图片框中输出相应信息
Picture1.Print "姓名：" & Text1.Text
Picture1.Print "成绩：" & g
End Sub
Private Sub Command2_Click()
Text1.Text = "" '清空文本框内容
Text2.Text = ""
Picture1.Cls '清除图片框内容
End Sub
参考代码如下:
Option Base 1
Dim A(7, 7) As Integer, I As Integer, J As Integer Private Sub C1_Click()
For I = 1 To 7
For J = 1 To 7
A(I, J) = 0
If J >= I And J + I <= 8 Then A(I, J) = 1
If J + I >= 8 And J <= I Then A(I, J) = 1
Print A(I, J); " ";
Next J
Next I
End Sub
Private Sub C2_Click()
Call putdata("kssj.dat", A)
End Sub
操作步骤如下：
1. 打开考生文件夹中的工程Menu1.Vbp。
2. 单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“文件(&F)”，在“名称”栏中输入菜单项的名称“文件”。
4. 单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“打开”；使用类似的操作，输入如下所示的菜单：
文件(F) 数据处理
打开计算
──────
退出 Ctrl+X
5. 说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6. 单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.Bas”文件添加到本工程。
该模块的功能是：用 Circle方法绘制图案。填空的参考答案如下：
全国计算机等级考试二级MSOffice高级应用考试大纲(最新版) 基本要求 1. 掌握计算机基础知识及计算机系统组成。 2. 了解信息安全的基本知识,掌握计算机病毒及防治的基本概念。 3. 掌握多媒体技术基本概念和基本应用。 4. 了解计算机网络的基本概念和基本原理,掌握因特网网络服务和应用。 5. 正确采集信息并能在文字处理软件Word、电子表格软件Excel、演示文稿制作软件Power-Point 中熟练应用。 6. 掌握Word的操作技能,并熟练应用编制文档。 7. 掌握Excel 的操作技能,并熟练应用进行数据计算及分析。 8. 掌握PowerPoint 的操作技能,并熟练应用制作演示文稿。 考试内容 一、计算机基础知识 1. 计算机的发展、类型及其应用领域。 2. 计算机软硬件系统的组成及主要技术指标。 3. 计算机中数据的表示与存储。 4. 多媒体技术的概念与应用。 5. 计算机病毒的特征、分类与防治。 6. 计算机网络的概念、组成和分类;计算机与网络信息安全的概念和防控。 7. 因特网网络服务的概念、原理和应用。 二、Word的功能和使用 1. Microsoft Office应用界面使用和功能设置。 2. Word的基本功能,文档的创建、编辑、保存、打印和保护等基本操作。
3. 设置字体和段落格式、应用文档样式和主题、调整页面布局等排版操作。 4. 文档中表格的制作与编辑。 5. 文档中图形、图像(片)对象的编辑和处理,文本框和文档部件的使用,符号与数学公式的输入与编辑。 6. 文档的分栏、分页和分节操作,文档页眉、页脚的设置,文档内容引用操作。 7. 文档审阅和修订。 8. 利用邮件合并功能批量制作和处理文档。 9. 多窗口和多文档的编辑,文档视图的使用。 10. 分析图文素材,并根据需求提取相关信息引用到Word文档中。 三、Excel 的功能和使用 1. Excel 的基本功能,工作簿和工作表的基本操作,工作视图的控制。 2. 工作表数据的输入、编辑和修改。 3. 单元格格式化操作、数据格式的设置。 4. 工作簿和工作表的保护、共享及修订。 5. 单元格的引用、公式和函数的使用。 6. 多个工作表的联动操作。 7. 迷你图和图表的创建、编辑与修饰。 8. 数据的排序、筛选、分类汇总、分组显示和合并计算。 9. 数据透视表和数据透视图的使用。 10. 数据模拟分析和运算。 11. 宏功能的简单使用。 12. 获取外部数据并分析处理。 13. 分析数据素材,并根据需求提取相关信息引用到Excel 文档中。
用VB5实现窗口图象缩放、滚动技巧 成都理工学院计算机工程系 洪志全 ---- Visual Basic 是Windows 平台中最常用的应用软件开发语言, 窗口图像缩放、滚动是图像处理、多媒体数据库等应用软件开发中的基本功能。本文将介绍如何用VB 5.0 实现地窗口图像缩放和滚动技巧, 供读者在各种语言系统开发中参考。 ---- 一、获取图像 ---- 本文所介绍的图像缩放并没有对真正的图像进行缩放, 而是复制一幅窗口图像的真实画面, 对这个窗口图像附本进行局部缩放和滚动, 获取窗口图像可使用Windows 的API 函数来实现。具体来说, 实现窗口图像缩放、滚动需要用GetDeskTopWindow() 函数获取桌面窗口句柄, 再通过GetDC() 函数转换为描述表句柄, 则用BitBlt() 函数把桌面图像复制到任意图形容器控件中, 桌面图像复制完成后, 再用ReleaseDC 释放窗口描述表, 各API 函数的具体使用方法参见本文的例子程序。 ---- 本文所用的API 函数包含在WIN95/98 的GDI32.DLL 和USER32.DLL 动态链接库中, 在使用时可通过VB5.0 的TEXT VIEWER 复制到所开发的应用程序中。 ---- 二、图像缩放 ---- 图像缩放显示的基本原理就是把原图像的一部分缩放后再送入窗口的图形容器控件中, 在VB 中可用内部命令PaintPicture 来进行, 语法格式为: PaintPicture Pic,DestX,DestY,DestWidth, DestHeight,ScrX,ScrY,ScrWidth,ScrHeight ---- 其中,Pic 为图片对象, 如图形控件对象等; DestX,DestY为目标图像起始坐标; DestWidth,DestHeight为目标图像幅面尺寸; ScrX,ScrY为源图像起始坐标; ScrWidth,ScrHeight为源图像剪裁尺寸。 ---- 该命令就是把一个源图像资源任意复制到指定的区域, 其功能相当于API 函数的BitBlt, 但使用更简单, 若复制时改变源图像的ScrWidth,ScrHeight 或目标图像的DestWidth,DestHeight 可使复制后的图像尺寸发生变化, 实现窗口图像的缩放显示。若ScrWidth,ScrHeight 或
一、增加模块 1．增加一个模块，命名为“我的模块” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块" 系统常量vbext_ct_StdModule=1 2．增加一个类模块，命名为“我的类” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类" vbext_ct_ClassModule=2 3．增加一个窗体，命名为“我的窗体” ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "我的窗体" vbext_ct_MSForm=3 二、删除模块 1．删除“模块1” ThisWorkbook.VBProject.VBComponents.Remove hisWorkbook.VBProject.VBComponents("模块1") 2．删除窗体“UserForm1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("UserForm1") 3．删除类模块“类1” ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("类1") 4.删除所有的窗体 Sub RmvForms() Dim vbCmp As VBComponent For Each vbCmp In ThisWorkbook.VBProject.VBComponents If vbCmp.Type = vbext_ct_MSForm Then ThisWorkbook.VBProject.VBComponents.Remove vbCmp Next vbCmp End Sub 相关： 工作表和ThisWorkbook的模块类型为vbext_ct_Document=100 三、增加代码 1.在“模块1”中插入代码 如果需要在“Sheet1”、“Thisworkbook”、或“Userform1”中操作，用只需将下面的“模块1”换成相应的名称即可。 方法1： 在模块的开始增加代码，增加的代码放在公共声明option,全局变量等后面。 Sub AddCode1() ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString _ "sub aTest()" & Chr(10) & _ "msgbox ""Hello""" & Chr(10) & _ "end sub" End Sub
1.Private Sub Command1_Click() Dim r As Double, c As Double, s As Double Dim pi As Double pi = 3.1415926 r = Val(Text1.Text) c = pi * 2 * r s = pi * r * r Label3.Caption = "圆的周长为" + Str(c) + "厘米" Label4.Caption = "圆的面积为" + Str(s) + "平方厘米" End Sub 2.（5秒5分倒计时） Dim n As Integer Private Sub Command1_Click() If Option1.Value Then n = 5 If Option2.Value Then n = 300 Timer1.Enabled = True Frame1.Enabled = False Command1.Enabled = False End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() n = n - 1 Text1.Text = Str(n \ 60) & "分" & Str(n Mod 60) & "秒" If n <= 0 Then Timer1.Enabled = False Frame1.Enabled = True Text1.Text = "时间到" End If End Sub 3.心想事成 Dim x As Integer Private Sub Command1_Click() Timer1.Enabled = True If Command1.Caption = "开始" Then Timer1.Enabled = True Command1.Caption = "停止" Else Timer1.Enabled = False Command1.Caption = "开始" End If End Sub Private Sub Form_Load() Timer1.Interval = 100 x = -100 End Sub Private Sub Timer1_Timer() Label1.Left = Label1.Left + x If Label1.Left <= 0 Then x = 100 If Label1.Left >= Form1.ScaleWidth - Label1.Width Then x = -100 End Sub 4.我的调色板（滚动条） Private Sub Command1_Click() Label5.ForeColor = Label4.BackColor End Sub Private Sub HScroll1_Change() Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll2_Change() Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll3_Change() Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub 5.字形字体颜色（复选框，单选）Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End If End Sub Private Sub Check2_Click() If Check1.Value = 1 Then
全国计算机等级考试二级MS Office高级应用考试大纲 （2014年新版） 基本要求 1.掌握计算机基础知识及计算机系统组成。 2.了解信息安全的基本知识，掌握计算机病毒及防治的基本概念。 3.掌握多媒体技术基本概念和基本应用 4.了解计算机网络的基本概念和基本原理，掌握因特网网络服务和应用。 5.正确采集信息并能在文字处理软件Word、电子表格软件Excel、演示文稿制作软件Powerpoint中熟练应用。 6.掌握Word的操作技能，并熟练应用编制文档。 7.掌握Excel的操作技能，并熟练应用进行数据计算及分析。 8.掌握Powerpoint的操作技能，并熟练应用制作演示文稿。 考试内容 一、计算机基础知识 1. 计算机的发展、类型、特点及其应用领域。 计算机的发展：1943年美国宾夕法尼亚大学的教授莫克利和他的研究生埃克特开始研制电子数字积分计算机（ENIAC)，1946年研制成功。 发展的四个阶段： 阶段部件第一阶段 （1946-1959） 第二阶段 （1959-1964） 第三阶段 （1964-1972) 第四阶段 （1972年至今） 主机电子器件电子管晶体管中小规模集成电 路大规模，超大规模集成电路 内存汞延迟线磁芯存储器半导体存储器半导体存储器 外存储器穿孔卡片，纸 袋磁带磁带，磁盘磁带，磁盘，挂 盘等大容量存 储器 处理速度几千条几万至几十 万条几十万至几百万上千万至万亿 条 计算机的类型： 按处理数据的类型分：模拟计算机，数字计算机，数字和模拟计算机 按用途分：通用计算机，专用计算机 按计算机的性能、规模、处理能力分：巨型机、大型通用机、微型计算机、工作站及服
1、算法描述：求的1~100之间所有偶数的和 '注：请不要更改原程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码'Function func() (1) i As Integer dim func = (2)0 For i = 2 To 100 Step (3)2 func = func + i Next i End Function 2、操作要求: 顺序查找单词“name”： 输入10个不同的单词给数组，查找单词“name”是否在数组中；如果在，输出单词在数组中的位置，否则，输出“不在数组中”。 Sub main() Dim i As Integer Dim buzai As Boolean '定义数组d,下界为1,上界为10,数据类型为string，在dim后完善语句 Dim (1) d(1 To 10) As String '输入10个单词，在for语句后完善i的初始值与终值 For i =(2) 1 to 10 '输入每个单词给数组元素，在赋值号左侧添加变量 (3) = InputBox("Please input word " & i) d(i) Next i buzai = True i = 0 While buzai = True And i < 10 '顺序查找单词，数组下标增1，在赋值号右侧添加表达式 i =(4) i+1 '判断数组元素是否为单词"name",在if语句后添加判断条件 If (5) Then d(i) = "name" buzai = False End If Wend If buzai = False Then MsgBox "在数组中的位置为：" + Str(i) Else MsgBox "不在数组中" End If End Sub 3、小王今年26岁，资助了一名贫困大学生， '他想从明年开始每年比上一年多资助一名贫困大学生。 '编程求解小王到多少岁，就能资助到n名甚至更多大学生？ Function func(n) stu = 1
在考生文件夹下打开文档WORD.DOCX。 某高校学生会计划举办一场"大学生网络创业交流会"的活动，拟邀请部分专家和老师给在校学生进行演讲。因此，校学生会外联部需制作一批邀请函，并分别递送给相关的专家和老师。 请按如下要求，完成邀请函的制作： 1. 调整文档版面，要求页面高度18厘米、宽度30厘米，页边距（上、下）为2厘米，页边距（左、右）为3厘米。 2. 将考生文件夹下的图片"背景图片.jpg"设置为邀请函背景。 3. 根据"Word-邀请函参考样式.docx"文件，调整邀请函中内容文字的字体、字号和颜色。 4. 调整邀请函中内容文字段落对齐方式。 5. 根据页面布局需要，调整邀请函中"大学生网络创业交流会"和"邀请函"两个段落的间距。 6. 在"尊敬的"和"（老师）"文字之间，插入拟邀请的专家和老师姓名，拟邀请的专家和老师姓名在考生文件夹下的"通讯录.xlsx "文件中。每页邀请函中只能包含1位专家或老师的姓名，所有的邀请函页面请另外保存在一个名为"Word-邀请函.docx"文件中。 7. 邀请函文档制作完成后，请保存"Word.docx"文件。
小李今年毕业后，在一家计算机图书销售公司担任市场部助理，主要的工作职责是为部门经理提供销售信息的分析和汇总。 请你根据销售数据报表（"Excel.xlsx" 文件），按照如下要求完成统计和分析工作： 1. 请对"订单明细表"工作表进行格式调整，通过套用表格格式方法将所有的销售记录调整为一致的外观格式，并将"单价"列和"小计"列所包含的单元格调整为"会计专用"（人民币）数字格式。 2. 根据图书编号，请在"订单明细表"工作表的"图书名称"列中，使用VLOOKUP 函数完成图书名称的自动填充。"图书名称"和"图书编号"的对应关系在"编号对照"工作表中。 3. 根据图书编号，请在"订单明细表"工作表的"单价"列中，使用VLOOKUP函数完成图书单价的自动填充。"单价"和"图书编号"的对应关系在"编号对照"工作表中。 4. 在"订单明细表"工作表的"小计"列中，计算每笔订单的销售额。 5. 根据"订单明细表"工作表中的销售数据，统计所有订单的总销售金额，并将其填写在"统计报告"工作表的B3单元格中。 6. 根据"订单明细表"工作表中的销售数据，统计《MS Office高级应用》图书在2012年的总销售额，并将其填写在"统计报告"工作表的B4单元格中。 7. 根据"订单明细表"工作表中的销售数据，统计隆华书店在2011年第3季度的总销售额，并将其填写在"统计报告"工作表的B5单元格中。 8. 根据"订单明细表"工作表中的销售数据，统计隆华书店在2011年的每月平
Public Const VK_LBUTTON = &H1 Public Const VK_RBUTTON = &H2 Public Const VK_CANCEL = &H3 Public Const VK_MBUTTON = &H4 Public Const VK_BACK = &H8 Public Const VK_TAB = &H9 Public Const VK_CLEAR = &HC Public Const VK_RETURN = &HD Public Const VK_SHIFT = &H10 Public Const VK_CONTROL = &H11 Public Const VK_MENU = &H12 Public Const VK_PAUSE = &H13 Public Const VK_CAPITAL = &H14 Public Const VK_ESCAPE = &H1B Public Const VK_SPACE = &H20 Public Const VK_PRIOR = &H21 Public Const VK_NEXT = &H22 Public Const VK_END = &H23 Public Const VK_HOME = &H24 Public Const VK_LEFT = &H25 Public Const VK_UP = &H26 Public Const VK_RIGHT = &H27 Public Const VK_DOWN = &H28 Public Const VK_Select = &H29 Public Const VK_PRINT = &H2A Public Const VK_EXECUTE = &H2B Public Const VK_SNAPSHOT = &H2C Public Const VK_Insert = &H2D Public Const VK_Delete = &H2E Public Const VK_HELP = &H2F Public Const VK_0 = &H30 Public Const VK_1 = &H31 Public Const VK_2 = &H32 Public Const VK_3 = &H33 Public Const VK_4 = &H34 Public Const VK_5 = &H35 Public Const VK_6 = &H36 Public Const VK_7 = &H37 Public Const VK_8 = &H38 Public Const VK_9 = &H39 Public Const VK_A = &H41 Public Const VK_B = &H42 Public Const VK_C = &H43 Public Const VK_D = &H44
1、求半径为r的圆的面积，要求用户从键盘输入半r。 程序代码： Private Sub Form_click() Const PI = 3.14 Dim r% Dim s! r = InputBox("请输入半径r的值：", "求圆的面积") s = PI * r * r Form1.FontSize = 16 Print "半径是" + Str(r) + "的圆的面积是" + Str(s) End Sub 2、输入三个整数，从小到大顺序输出。 程序代码： Private Sub Form_click() a = InputBox("a") b = InputBox("b") c = InputBox("c") Print "排序前："; a, b, c If a > b Then t = a: a = b: b = t If a > c Then t = a: a = c: c = t If b > c Then t = b: b = c: c = t Print "排序后："; a, b, c End Sub 3、输入三个整数，从大到小顺序输出。 程序代码： Private Sub Form_click() a = InputBox("a") b = InputBox("b") c = InputBox("c") Print "排序前："; a, b, c If a VB编程常用代码 大一练习专用
A,B,C排序由大到小 Dim a As Single,b As Single,c As Single a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) If b>a Then d=a:a=b:b=d End If If c>a Then d=a:a=c:c=d End If If c>b Then d=b:b=c:c=d End If Text4.Text=a Text5.Text=b Text6.Text=c End Sub Private Sub Command2_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text4.Text="" Text5.Text="" Text6.Text="" End Sub 计算a+b Private Sub Command1_Click() Text4.Text=Val(Text2.Text)+Val(Text3.Text) Text1.Text="欢迎新同学" End Sub 清除
Private Sub Command2_Click() Text1.Text="" Text2.Text="" Text3.Text="" Text4.Text="" End Sub 奇偶数显示器 显示 Private Sub Command1_Click() Dim a As Integer a=Val(Text1.Text) If a/2=Int(a/2)Then Text2.Text="您输入的数是偶数" Else Text2.Text="您输入的数是奇数" End If End Sub 清除 Private Sub Command2_Click() Text1.Text="" Text2.Text="" End Sub 奇偶数判断 Dim a,b As Integer Dim result As Integer a=Val(InputBox("请输入一个整数","数的输入",300,400)) b=Val(InputBox("请输入一个整数","数的输入",300,400)) If a/2=Int(a/2)Then result=MsgBox("您输入的数:"&a&"是一个偶数",1,"判断结果") Form1.Print rusult Else m="您输入的数:"&a&"是一个奇数" result=MsgBox("您输入的数:"&a&"是一个奇数",1,"判断结果") Form1.Print result End If If b/2=Int(b/2)Then result=MsgBox("您输入的数:"&b&"是一个偶数",1,"判断结果") Form1.Print rusult Else result=MsgBox("您输入的数:"&b&"是一个奇数",1,"判断结果")
Word 2010 高级应用综合操作题打开素材库中的“典型试题”文件，按下面的操作要求进行操作，并把操作结果存盘。 1．操作要求 （1）对正文进行排版。 ①使用多级符号对章名、小节名进行自动编号，代替原始的编号。要求： * 章号的自动编号格式为：第X 章（例：第1 章），其中：X 为自动排序，阿拉伯数字序号。对应级别1。居中显示。 *小节名自动编号格式为：，X为章数字序号，Y为节数字序号（例：）,X、Y均为阿拉伯数字序号。对应级别2。左对齐显示。 ②新建样式，样式名为：“样式”＋考生准考证号后5 位。其中： *字体：中文字体为“楷体” ，西文字体为“ Time New Roman ”，字号为“小四” 。 *段落：首行缩进2 字符，段前行，段后行，行距倍；两端对齐。其余格式，默认设置。 ③对正文中的图添加题注“图” ，位于图下方，居中。要求： *编号为“章序号” -“图在章中的序号” 。例如，第1 章中第2 幅图，题注编号为1-2。 *图的说明使用图下一行的文字，格式同编号。 *图居中。 ④对正文中出现“如下图所示”的“下图”两字，使用交叉引用。 *改为“图X-Y”，其中“ X-Y'为图题注的编号。 ⑤对正文中的表添加题注“表” ，位于表上方，居中。 *编号为“章序号” -“表在章中的序号” 。例如，第1 章中第1 张表，题注编号为1-1。 *表的说明使用表上一行的文字，格式同编号。 *表居中，表内文字不要求居中。 ⑥对正文中出现“如下表所示”中的“下表”两字，使用交叉引用。 *改为“表X-Y，其中“ X-Y'为表题注的编号。 ⑦对正文中首次出现“ Access'的地方插入脚注。 *添加文字“ Access是由微软发布的关联式数据库管理系统。”。 ⑧将②中的新建样式应用到正文中无编号的文字。不包括章名、小节名、表文字、表和图的题注、脚注。 （2）在正文前按序插入三节，使用Word 提供的功能，自动生成如下内容： ①第1 节：目录。其中：“目录”使用样式“标题1”，并居中；“目录”下为目录项。 ②第2 节：图索引。其中：“图索引”使用样式“标题1”，并居中；“图索引”下为图索引项。 ③第3 节：表索引。其中：“表索引”使用样式“标题1”，并居中；“表索引”下为表索引项。 （3）使用适合的分节符，对正文进行分节。添加页脚，使用域插入页码，居中显示。要求： ①正文前的节，页码采用“i ,ii』［,???”格式，页码连续。 ②正文中的节，页码采用“ 1,2,3,…”格式，页码连续。 ③正文中每章为单独一节，页码总是从奇数开始。 ④更新目录、图索引和表索引。
常用命令 FontStrikeThru属性是逻辑型，决定对象上正文是否加一删除线。 FontItalic属性是逻辑型，决定对象上正文是否是斜体。 窗体的其它常用属性 2．Icon 控制图标属性：返回或设置窗体左上角显示或最小化时显示的图标。 注意：此属性必须在ControlBox属性设置为Ture才有效 3．ControlBox控制菜单框属性：设置Ture为有，如设置为False则无控件菜单，同时窗体也无最大化按钮和最小化按钮，即使MaxButton属性和MinButton属性设置为Ture。 5. BorderStyle：边框风格, 通过改变BorderStyle 属性，可以控制窗体如何调整大小。 0-None：无边框； 1-Fixed Single：单线边框，不可以改变窗口大小； 2-Sizable：双线边框，可以改变窗口大小； 3-Fixed Double：双线框架，不可以改变窗口大小。 4-Fixed Tool Window:窗体外观与工具条相似。有关闭按钮，不可以改变窗口大小。 5-Sizable Tool Window：窗体外观与工具条相似。有关闭按钮，可以改变窗口大小。 6. WindowsState属性 用来设置窗体的运行状态。 0-Normal：正常窗口状态，有窗口边界； 1-Minimized：最小化状态，以图标方式运行； 2-Maximized：最大化状态，无边框，充满整个屏幕。 7. AutoRedraw属性 该属性决定窗体被隐藏或被另一窗口覆盖之后，是否重新还原该窗体被隐藏或覆盖以前的画面。即是否重画如Circle、Line、Pset和Print等方法的输出。 当为True时，重新还原该窗体以前的画面。 当为False时，则不重画AutoRedraw属性。 4 Resize事件 无论是因为用户交互，还是通过代码调整窗体的大小，都会触发一个Resize事件。 5 Activate事件：当窗体由非活动窗体变为活动窗体，即当窗体得到焦点时触发该事件。窗体常用的方法有： 打印输出Print 移动Move 清除Cls 显示Show 隐藏Hide等方法。 方法的使用的形式: [对象.]方法[参数] 1.Print方法 形式: [窗体名.]Print[{Spc(n)|Tab(n)}][表达式列表][；|，] 作用: 在对象上输出信息 Spc(n)函数：插入n个空格，允许重复使用。 Tab(n)函数：从窗体第n列开始输出，允许重复使用。 ；(分号)：光标定位上一个显示的字符后(紧凑格式)。 ，(逗号)：光标定位在下一个打印区的开始位置处。每个打印区占14列(标准格式)。无；，换行。
第四章 1、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过inputbox 函数输入数据，在窗体上显示和及平均值。 Dim a as single For i=1 to 4 a=inputbox（“请输入一个数：”，“数据输入”） sum=sum+a n=n+1 avg=sum/n next i print “和是：”,sum print “平均值是：”，avg 2、编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。 Dim a as variant Fontsize=20 a=inputbox（“请输入姓名：”，“数据输入”） print “姓名：”；a a=inputbox（“请输入年龄：”，“数据输入”） print “年龄：”；a a=inputbox（“请输入通信地址：”，“数据输入”） print “通信地址：”；a a=inputbox（“请输入邮政编码：”，“数据输入”） print “邮政编码：”；a a=inputbox（“请输入电话：”，“数据输入”） print “电话：”；a 3．a=5，b=2.5，c=7.8，编程序计算： y=（πab）/（a+bc） 程序： Dim a as single，b as single，c as single a=5 b=2.5 c=7.8 pi=3.14 y=（pi*a*b）/（a+b*c） print “结果是：”;y 4、输入以秒为单位表示的时间，编写程序，将其转换为几日几时几秒。 Dim a as long，d as integer ，h as integer，s as integer a=inputbox（“请输入秒数：”，“数据输入”） d=int（a/86400） h=int（（a-d*86400）/3600） s=a-d*86400-h*3600 print d；“日”；h；“时”；s；“秒” 5、自由落体位移公式为：s=gt2/2+v0t
隐藏form1： form1.hide 显示form1： form1.show --------------------------------------------------------------------------------------------- 退出程序时，弹出窗口提示是否要退出： Private Sub Form_Unload(Cancel As Integer) Dim iAnswer As Integer iAnswer = MsgBox("真要退出吗?", vbYesNo) If iAnswer = vbNo Then Cancel = True Else End End If End Sub ---------------------------------------------------------------------------------------------- 只能用任务管理器关闭程序的代码： Private Sub From_Unload(Cancel As Integer) Cancel = true End Sub ------------------------------------------------------------------------------------------------ 点击command1打开33IQ网： Dim strURL Private Sub Command1_Click() strURL = "错误！超链接引用无效。 Shell "explorer.exe " & strURL, 1 End Sub ------------------------------------------------------------------------------------------------ 运行c:\1.exe shell "c:\1.exe" 执行c:\1.bat shell "c:\1.bat" 注：只适用于大部分exe和全部bat。
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），两个命令按钮，
上海市高等学校计算机等级考试（二级）《C程序设计》考试大纲 （2010年修订） 一、考试性质 上海市高等学校计算机等级考试是上海市教育委员会组织的全市高校统一的教学考试，是检测和评价高校计算机应用基础知识教学水平和教学质量的重要依据之一。该项考试旨在规范和加强上海高校非计算机专业的计算机教学工作，提高非计算机专业学生的计算机应用能力。考试对象主要是上海高等学校非计算机专业学生，考试每年举行一次，当年的十月下旬、十一月上旬的星期六或星期日。凡考试成绩达到合格者或优秀者，由上海市教育委员会颁发相应的证书。 本考试由上海市教育委员会统一领导，聘请有关专家组成考试委员会，委托上海市教育考试院组织实施。 二、考试目标 C语言是当前常用的一种简洁、高效、功能丰富的程序设计语言，是理工科大学生学习计算机编程能力、理解计算机解决问题的方法的重要工具。学生通过该课程的学习，应能了解、掌握C语言的语法和使用它进行编程的方法，并能上机调试运行解决简单实际问题。 《C程序设计》的考试目标是测试考生掌握C语言知识的程度和综合运用语言知识进行程序设计的能力。 三、考试细则 考试采用基于网络环境的无纸化上机考试系统。考试时间为120分钟。试卷总分为100分。 试题由四部分组成：单选题、程序调试题、程序填空题和综合编程题。试卷从局域网的服务器下载、考试结果上传到服务器，若不按照要求上传到服务器，则考试无效。考试阅卷采用机器和人工相结合的网上阅卷方式。 四、试卷参考样式
五、考试内容和要求
六、几点说明 （一）建议学时数 48-64学时，其中16-32学时为实验课 （二）建议考试对象 理、工、农、医专业类非计算机专业本科生 （三）建议计算机配置 计算机硬件基本要求： 中央处理器Pentium III 550MGHz以上 内存 128MB以上 硬盘 20GB以上 计算机软件基本要求： 操作系统Windows 2000及以上 编程环境中文Microsoft Visual C++ 6.0 （四）考试环境 安装并使用“上海市高校计算机等级考试通用平台”进行考试。
1.冒泡排序法 Private Sub Form_Click() Dim A(1 To 10) As Integer Dim i As Integer, t As Integer For i = 1 To 10 A(i) = Int(Rnd * 100) + 1 Print A(i) Next i Print For i = 1 To 9 For j = 1 To 10 - i If A(j) > A(j + 1) Then t = A(j): A(j) = A(j + 1): A(j + 1) = t End If Next j Next i For i = 1 To 10 Print A(i) Next i Print End Sub 2.判断一个数是否是素数 Private Sub Form_Click() Dim n, i# n = InputBox("n=") i = 2 While n Mod i <> 0 i = i + 1 Wend If i = n Then Print n & "是素数" Else Print n & "不是素数" End If End Sub 3. 产生100个100以内的随机数，将他们从大到小排序后输出 Private Sub Command1_Click() For i = 1 To 100 Dim a(1 To 100) As Integer a(i) = Int(Rnd * 100) + 1 Print a(i); If i Mod 10 = 0 Then Print Next Print For i = 1 To 100 - 1 For j = 1 To 99 If a(j) > a(j + 1) Then t = a(j) a(j) = a(j + 1) a(j + 1) = t End If Next j Next i For i = 1 To 100 Print a(i); If i Mod 10 = 0 Then Print Next i End Sub 4.九九乘法表（上三角） Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 1 To 9 For j = i To 9 Print Tab(j * 12 - 12); i; "x"; j; "="; i * j; Next j Print Next i End Sub 5.杨辉三角（等腰形） Private Sub Command1_Click() Dim a(11, 11) For i = 1 To 6 For j = 1 To i a(1, 1) = 1 a(2, 1) = 1 a(2, 2) = 1 If j > 1 And j < i Then a(i, j) = a(i - 1, j - 1) + a(i - 1, j) ElseIf j = 1 Or j = i Then a(i, j) = 1 End If Print Tab((j - 1) * 6 + 40 - 3 * i); a(i, j); Next j Print Next i End Sub