10年计算机二级vb设计题.docx
- 文档编号:23986099
- 上传时间:2023-05-23
- 格式:DOCX
- 页数:51
- 大小:2.70MB
10年计算机二级vb设计题.docx
《10年计算机二级vb设计题.docx》由会员分享,可在线阅读,更多相关《10年计算机二级vb设计题.docx(51页珍藏版)》请在冰豆网上搜索。
10年计算机二级vb设计题
10年12月25日设计题
0123
属性窗口:
Form1.Caption
交通工具
List1.Left
200
List1.Top
120
List1.List
飞机
轮船
汽车
火车
List1.Style
1-Checkbox
0124
属性窗口:
Label1.Caption
文本编辑器
Label1.Font
隶书、斜体、小四号
Label1.AutoSize
True
Text1.MultiLine
True
Text1.ScrollBars
2-Vertical
Text1.Text
欢迎使用
VisualBasic
6.0
Text1.Font
楷体、小四号
Text1.Alignment
2-Center
0125
属性窗口:
Frame1.Caption
业余爱好
Check1.Caption
体育
Check2.Caption
音乐
Check3.Caption
美术
Check1.Value
1-Checked
Check2.Value
0-Unchecked
Check3.Value
2-Grayed
0126
属性窗口:
Form1.Caption
文本显示
Label1.Cation
密码形式
Label2.Cation
锁定长度
Text1.Text
Text2.Text
空
Label1.Font
Label2.Font
Text1.Font
Text2.Font
小四号
Text1.PasswordChar
&
Text2.MaxLength
6
0127
属性窗口:
Form1.Caption
文本框设计
Text1.Font
楷体、小四号
Text1.MultiLine
True
Text1.Text
实践是检验真理
的唯一标准
0223
属性窗口:
Image1.BorderStyle
1-FixedSingle
Image1.Stretch
True
Command1.Caption
显示
Command2.Caption
隐藏
PrivateSubCommand1_Click()
Image1.Visible=True
Image1.Picture=
LoadPicture("k:
\Fjexam95\xrk.JPG")
EndSub
PrivateSubCommand2_Click()
Image1.Visible=False
EndSub
0224
属性窗口:
Picture1.AutoSize
True
Command1.Caption
图像
Command2.Caption
文字
PrivateSubCommand1_Click()
Picture1.Cls
Picture1.Picture=
LoadPicture("k:
\Fjexam95\Zebra.bmp")
EndSub
PrivateSubCommand2_Click()
Picture1.Picture=LoadPicture()
Picture1.Print"斑马"
EndSub
0225
属性窗口:
Text1.MultiLine
True
菜单编辑器:
标题
名称
唐诗
Ts
静夜思(注:
内缩一层)
Jys
春夜喜雨(注:
内缩一层)
Cyxy
清除
Qc
PrivateSubJys_Click()
Text1.Text="床前明月光,"&vbCrLf&"疑是地上霜。
"&vbCrLf&"举头望明月,"&vbCrLf&"低头思故乡。
"
EndSub
PrivateSubCyxy_Click()
Text1.Text="好雨知时节,"&vbCrLf&"当春乃发生。
"&vbCrLf&"随风潜入夜,"&vbCrLf&"润物细无声。
"
EndSub
PrivateSubQc_Click()
Text1.Text=""
EndSub
0226
属性窗口:
Text1.Font
宋体、小四号
Text1.Alignment
2-Center
Option1.Caption
本科生
Option2.Caption
研究生
PrivateSubOption1_Click()
Text1.Text="我是本科生"
EndSub
PrivateSubOption2_Click()
Text1.Text="我是研究生"
EndSub
0227
属性窗口:
Form1.Caption
运行控制
Command1.Caption
运行
Command2.Caption
停止
PrivateSubCommand1_Click()
Command1.Caption="继续运行"
EndSub
PrivateSubCommand2_Click()
Command2.Enabled=False
EndSub
0323
属性窗口:
Label1.Caption
选修课目录:
Label2.Caption
已选课程:
List1.List
古诗欣赏
动态网站设计
Flash设计
西洋美术史
非线性编辑
Command1.Caption
选择
Command2.Caption
清除
PrivateSubCommand1_Click()
List2.AddItemList1.Text
EndSub
PrivateSubCommand2_Click()
List2.RemoveItemList2.ListIndex
EndSub
0324
属性窗口:
Form1.Caption
动画电子钟表
Timer1.Enabled
True
Timer1.Interval
1000
Label1.Alignment
2-Center
Label1.Caption
北京时间
Label1.Font
隶书、四号、粗体
Label2.Left
600
PrivateSubTimer1_Timer()
IfLabel2.Left<=1199Then
Label2.Caption=Time()
Label2.Left=Label2.Left+100
Else
Label2.Enabled=False
EndIf
EndSub
0325
属性窗口:
Form1.Caption
画图示例
Picture1.Width
1800
Picture1.Height
1200
Command1.Caption
矩形1
Command2.Caption
矩形2
PrivateSubCommand1_Click()
Picture1.Cls
Picture1.Line(600,400)-(1200,800),,B
EndSub
PrivateSubCommand2_Click()
Picture1.Cls
Picture1.Line(600,400)-(1200,800),,BF
EndSub
0326
属性窗口:
Label1.AutoSize
True
Label1.Caption
VB集成开发环境
Combo1.List
宋体
楷体
Combo2.List
12
16
PrivateSubCombo1_Click()
Label1.FontName=Combo1.Text
EndSub
PrivateSubCombo2_Click()
Label1.FontSize=Combo2.Text
EndSub
0327
属性窗口:
Combo1.Style
1-SimpleCombo
Command1.Caption
选购
Command2.Caption
删除
Combo1.List
计算机
电视机
影碟机
移动电话
PrivateSubCommand1_Click()
Combo1.AddItemCombo1.Text
EndSub
PrivateSubCommand2_Click()
Combo1.RemoveItemCombo1.ListIndex
EndSub
09年12月26日设计题
0113
属性窗口:
Form1.Caption
设置滚动条
HS1.Name
HS1
HS1.Min
0
HS1.Max
100
HS1.SmallChange
2
HS1.LargeChange
5
0114属性窗口:
Picture1.BorderStyle
1-FixedSingle
Picture1.Height
1095
Picture1.Width
1095
Image1.BorderStyle
1-FixedSingle
Image1.Height
1095
Image1.Width
1095
Picture1.AutoSize
False
Picture1.Picture
选择“k:
\fjexam95\RAVMON.jpg”
Image1.Stretch
True
Image1.Picture
选择“k:
\fjexam95\RAVMON.jpg”
0115
属性窗口:
Check1.Style
1-Graphical
Check2.Style
1-Graphical
Check1.Height
Check2.Height
400
Check1.Width
Check2.Width
2000
Check1.Enabled
True
Check2.Enabled
False
0117
属性窗口:
MyList.Name
MyList
MyList.Left
700
MyList.Top
100
MyList.MultiSelect
1-Simple
MyList.List
篮球
唱歌
旅游
阅读
0213
属性窗口:
Form1.Caption
数值运算
Text1.Alignment
Text2.Alignment
2-Center
Text1.Text
Text2.Text
空
Command1.Caption
求立方根
PrivateSubCommand1_Click()
Text2.Text=Val(Text1.Text)^(1/3)
EndSub
0214
属性窗口:
Form1.Caption
文字演示
Label1.BorderStyle
1-FixedSingle
Label1.Font
粗体,小四号
Label1.Alignment
2-Center
Label1.Caption
生于忧患,死于安乐。
Option1.Caption
楷体
Option2.Caption
华文新魏
PrivateSubOption1_Click()
Label1.FontName="楷体"
EndSub
PrivateSubOption2_Click()
Label1.FontName="华文新魏"
EndSub
0215
属性窗口:
Form1.Caption
计秒器
Timer1.Enabled
False
Timer1.Interval
1000
Label1.BorderStyle
1-FixedSingle
Label1.Font
粗体,三号
Label1.Caption
0
Command1.Caption
计秒
Command2.Caption
停止
PrivateSubCommand1_Click()
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click()
Timer1.Enabled=False
EndSub
PrivateSubTimer1_Timer()
Label1.Caption=Val(Label1.Caption)+1
EndSub
0216
属性窗口:
Form1.Caption
打印文字
Picture1.Font
楷体,粗体,四号
Command1.Caption
显示
Command2.Caption
清除
PrivateSubCommand1_Click()
Picture1.Print"欢迎参加计算机应用水平考试!
"
EndSub
PrivateSubCommand2_Click()
Picture1.Cls
EndSub
0217
属性窗口:
Image1.BorderStyle
1-FixedSingle
Image1.Stretch
True
Check1.Caption
显示图片
PrivateSubCheck1_Click()
IfCheck1.Value=1Then
Image1.Picture=
LoadPicture("k:
\fjexam95\Jztx.bmp")
Else
Image1.Picture=LoadPicture()
EndIf
EndSub
0313
属性窗口:
F1.Name
F1
F1.Caption
时钟
T1.Name
T1
Timer1.Enabled
True
Timer1.Interval
1000
PrivateSubForm_Click()
Timer1.Enabled=False
EndSub
PrivateSubT1_Click()
Timer1.Enabled=True
EndSub
PrivateSubTimer1_Timer()
T1.Text=Time()
EndSub
0314
属性窗口:
Form1.Caption
设置颜色
T1.Name
T1
T1.Font
粗体,小四号
T1.Alignment
2-Center
Lb1.Name
Lb1
Lb1.Caption
前景
Lb2.Name
Lb2
Lb2.Caption
背景
HS1.Name
HS1
HS2.Name
HS2
HS1.Min
HS2.Min
0
HS1.Max
HS2.Max
255
PrivateSubHS1_Change()
T1.ForeColor=RGB(HS1.Value,0,0)
EndSub
PrivateSubHS2_Change()
T1.BackColor=RGB(0,0,HS2.Value)
EndSub
0315
属性窗口:
Form1.Caption
画图示例
Pic1.Name
Pic1
Pic1.Width
1800
Pic1.Height
1100
C1.Name
C1
C1.Caption
画线
C2.Name
C2
C2.Caption
画圆
PrivateSubC1_Click()
Pic1.Cls
Pic1.Line(0,550)-(1800,550)
EndSub
PrivateSubC2_Click()
Pic1.Cls
Pic1.Circle(900,550),400
EndSub
0317
菜单编辑器中:
标题
名称
计算
Js
平方和(注:
内缩一层)
Pfh
平方差(注:
内缩一层)
Pfc
清除
Qc
属性窗口:
Label1.BorderStyle
1-FixedSingle
PrivateSubPfh_Click()
Label1.Caption=Val(Text1.Text)^2+Val(Text2.Text)^2
EndSub
PrivateSubPfc_Click()
Label1.Caption=Val(Text1.Text)^2-Val(Text2.Text)^2
EndSub
PrivateSubQc_Click()
Text1.Text=""
Text2.Text=""
Label1.Caption=""
EndSub
08年12月27日设计题
0101
属性窗口:
L1.Name
L1
L1.Caption
设置滚动条
L1.Alignment
2-Center
L1.Font
楷体,四号
HS1.Name
HS1
HS1.Min
0
HS1.Max
100
HS1.Value
30
0104
属性窗口:
Form1.Caption
形状控件
Shape1.Shape
2-Oval
Shape1.FillStyle
4-UpwardDiagonal
0105
属性窗口:
MyList.Name
MyList
MyList.Left
700
MyList.Top
100
MyList.List
篮球
唱歌
旅游
阅读
MyList.MultiSelect
2-Extended
0106
属性窗口:
MyLab.Name
MyLab
MyLab.Caption
自然美景
MyLab.Font
宋体、粗体、三号
MyLab.Alignment
2-Center
Image1.BorderStyle
1-FixedSingle
Image1.Stretch
True
Image1.Picture
选择“k:
\fjexam95\Sunset.jpg”
0201
属性窗口:
Form1.Caption
函数计算
Text1.Alignment
2-Center
Text1.Text
空
Command1.Caption
求平方根
PrivateSubCommand1_Click()
Text1.Text=Sqr(Val(Text1.Text))
EndSub
0202
属性窗口:
C1.Name
C1
C1.Caption
颜色设置
T1.Name
T1
T1.Text
计算机应用水平测试
Lb1.Name
Lb1
Lb1.Caption
红
Lb2.Name
Lb2
Lb2.Caption
绿
Lb3.Name
Lb3
Lb3.Caption
蓝
HS1.Name
HS1
HS2.Name
HS2
HS3.Name
HS3
HS1.Min
HS2.Min
HS3.Min
0
HS1.Max
HS2.Max
HS3.Max
255
PrivateSubC1_Click()
T1.ForeColor=RGB(HS1.Value,HS2.Value,HS3.Value)
EndSub
0203
属性窗口:
Timer1.Enabled
True
Timer1.Interval
1000
Label1.Caption
00:
00:
00
Command1.Caption
显示
Command2.Caption
停止
PrivateSubTimer1_Timer()
Label1.Caption=Time()
EndSub
PrivateSubCommand1_Click()
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click()
Timer1.Enabled=False
EndSub
0205
属性窗口:
Label1.Caption
加载图形
Label2.Caption
清除图形
PrivateSubLabel1_Click()
Form1.Picture=
LoadPicture("K:
\Fjexam95\Jztx.bmp")
EndSub
PrivateSubLabel2_Click()
Form1.Picture=LoadPicture()
EndSub
0301
属性窗口:
T1.Name
T1
T1.Text
0
T1.Font
四号
Timer1.Enabled
True
Timer1.Interval
2000
PrivateSubTimer1_Timer()
T1.Text=Str(Val(T1.Text)+1)
EndSub
PrivateSubT1_Click()
Timer1.Enabled=False
EndSub
0302
属性窗口:
Img1.Name
Img1
Img2.Name
Img2
Img1.BorderStyle
Img2.BorderStyle
1-FixedSingle
Img1.Stretch
Img2.Stretch
True
C1.Name
C1
C1.Caption
轮流显示
PrivateSubC1_Click()
Img1.Visible=NotImg1.Visible
Img2.Visible=NotImg2.Visible
EndSub
PrivateSubForm_Load()
Img1.Picture=LoadPicture("k:
\fjexam95\RAVMON.JPG")
Img2.Picture=LoadPicture("k:
\fjexam95\Artist.GIF")
Img2.Visible=False
EndSub
0303
属性窗口:
Form1.Caption
画图示例
Pic1.Name
Pic1
Pic1.Width
1800
Pic1.Height
1100
C1.Name
C1
C1.Caption
画圆
C2.Name
C2
C2.Caption
画椭圆
PrivateSubC1_Click()
Pic1.Cls
Pi
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 10 计算机 二级 vb 设计