全国计算机等级考试二级教程Visual Basic 语言程序设计全书例题程序代码第三部分Word文档格式.docx
- 文档编号:4453989
- 上传时间:2023-05-03
- 格式:DOCX
- 页数:13
- 大小:98.70KB
全国计算机等级考试二级教程Visual Basic 语言程序设计全书例题程序代码第三部分Word文档格式.docx
《全国计算机等级考试二级教程Visual Basic 语言程序设计全书例题程序代码第三部分Word文档格式.docx》由会员分享,可在线阅读,更多相关《全国计算机等级考试二级教程Visual Basic 语言程序设计全书例题程序代码第三部分Word文档格式.docx(13页珍藏版)》请在冰点文库上搜索。
List1.AddItem"
IBM"
Compad"
HP"
FUJI"
Digital"
长城"
联想"
Canon"
四通"
Acer"
Nec"
NCR"
PrivateSubList1_DblClick()
List2.AddItemList1.Text
List1.RemoveItemList1.ListIndex
PrivateSubList2_DblClick()
List1.AddItemList2.Text
List2.RemoveItemList2.ListIndex
23、例题6.10从屏幕上选择微机的配置,并显示出来。
PrivateSubCommand1_Click()
Debug.Print"
所选择的配置为:
"
机型:
;
Combo1
CPU:
Combo2
内存:
Combo3
硬盘:
Combo4
PrivateSubCommand2_Click()
End
Combo1.AddItem"
Compaq"
方正"
DEC"
Combo2.AddItem"
奔腾3900"
奔腾3933"
奔腾31.0G"
奔腾41.2G"
奔腾41.5G"
奔腾41.7G"
奔腾42.0G"
Combo3.AddItem"
64"
128"
256"
Combo4.AddItem"
10GB"
20GB"
32GB"
40GB"
60GB"
24、例题6.11建立一个滚动条。
PrivateSubSpeedbar_Change()
Display.Text=Str$(Speedbar.Value)
PrivateSubSpeedbar_Scroll()
Label4.Caption="
Movingto"
+Str$(Speedbar.Value)
25、例题6.12用计时器实现字体的放大。
用计时器实现字体的放大
Label1.FontName="
Label1.Caption="
字体"
Label1.Width=Width
Label1.Height=Height
Timer1.Interval=1000
PrivateSubTimer1_Timer()
IfLabel1.FontSize<
100Then
Label1.FontSize=Label1.FontSize*1.2
Else
Label1.FontSize=10
EndIf
26、例题6.13编写程序,通过单选按钮设置字体类型和大小。
IfOption1Then
Text1.FontName="
黑体"
IfOption3Then
Text1.FontSize=16
Text1.FontSize=24
Form1.Caption="
框架用法示例"
Command1.Caption="
确定"
Command2.Caption="
结束"
Frame1.Caption="
字体类型"
Frame2.Caption="
字体大小"
Option1.Caption="
Option2.Caption="
Option3.Caption="
16"
Option4.Caption="
24"
Text1.Text="
VisualBasic程序设计"
27、例题7.1设计一个程序,从键盘上输入学生的分数,计算并输出及格(大于或等于60分)、不及格人数及总平均分数。
DimnAsSingle
Dimn1AsSingle
Dimn2AsSingle
DimscoreAsSingle
DimtotalAsSingle
msg$="
请输入分数(-1结束)"
msgtitle$="
输入数据"
start:
score=InputBox(msg$,msgtitle$)
Ifscore<
0Orscore>
GoTofinish
total=total+score
n=n+1
60Then
n1=n1+1
n2=n2+1
GoTostart
finish:
Text1.Text=Str$(n2)
Text2.Text=Str$(n1)
Text3.Text=Str$(total/n)
PrivateSubCommand3_Click()
n=0:
n1=0:
n2=0:
total=0
28、例题7.2从键盘上输入字母或0-9的数字,编写程序对其进行分类。
PrivateSubForm_Click()
Dimmsg,userinput
msg="
Pleaseenteraletterornumberfrom0through9."
userinput=InputBox(msg)
IfNotIsNumeric(userinput)Then'
IsNumeric函数有一个自变量,如果自变量是数值,函数返回Ture,否则返回False。
IfLen(userinput)<
>
0Then
SelectCaseAsc(userinput)'
通过ASCII码值来实现大小写字母的判断。
Case65To90'
大写字母
msg="
Youenteredtheuppercaseletter'
msg=msg&
Chr(Asc(userinput))&
"
."
Case97To122'
小写字母
Youenteredthelowercaseletter'
CaseElse
Youdidnotenteraletteroranumber."
EndSelect
EndIf
SelectCaseCDbl(userinput)'
Ifit'
sanumber
Case1,3,5,7,9'
奇数
msg=userinput&
isanoddnumber."
Case0,2,4,6,8'
偶数
isanevennumber."
CaseElse'
出界
Youenteredanumberoutside"
therequestedrange."
MsgBoxmsg'
通过MsgBox语句输出所需要的信息。
29、例题7.3求N!
DimNAsInteger
N=InputBox("
EnterN:
)
k=1
Fori=1ToN'
i是一个操作变量
k=k*i
Nexti
PrintN;
!
="
k
令i改用形式变量
k=1:
m=1
i是一个形式变量
k=k*m:
m=m+1
30、例题7.4有如下10个数:
-2,73,82,-76,-1,24,321,-25,89,-20
编写程序,打印出其中的每一个负数,分别计算并输出正数及负数的和。
DimnumberAsInteger
NegativeSum=0:
PositiveSum=0
Fori=1To10
number=InputBox("
EnterData:
Ifnumber<
Printnumber;
NegativeSum=NegativeSum+number
Else
PositiveSum=PositiveSum+number
Print"
NegativeSumis:
NegativeSum
PositiveSumis:
PositiveSum
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 全国计算机等级考试二级教程Visual Basic 语言程序设计全书例题程序代码第三部分 全国 计算机等级考试 二级 教程 Visual 语言程序设计 全书 例题 程序代码 第三 部分
链接地址:https://www.bingdoc.com/p-4453989.html