200字范文,内容丰富有趣,生活中的好帮手!
200字范文 > 全国计算机vb二级题型 全国计算机二级考VB机试常见题型汇总.doc

全国计算机vb二级题型 全国计算机二级考VB机试常见题型汇总.doc

时间:2022-11-09 06:38:34

相关推荐

全国计算机vb二级题型 全国计算机二级考VB机试常见题型汇总.doc

全国计算机二级考VB机试常见题型汇总,计算机二级vb考试题型,计算机二级vb题型,vb二级考试题型,全国计算机二级vb题型,几何概型常见题型归类,线性规划的常见题型,解三角形常见题型,记叙文阅读常见题型,数列常见题型

几种简单操作

任何情况下,按回车键都相当于单击"是"(C1)按钮;按ESC键都相当于单击"否"(C2)按钮(把C1的Default属性设置为"true",?把C2的Cancel属性性设置为"true"

还需在C2的Click事件中使用C1的SetFocus方法。

Private?Sub?C2_Click()????C1.SetFocusEnd?Sub

滚动条的刻度值改变文本框的宽度

Private Sub Vsb1_Change()

Text1.width = hs1.Value

End Sub

当使用Tab键选择控制按钮时,焦点从Cmd2上跳过,直接过渡到Cmd3。设置Cmd2的TabStop属性为False。

在图片框的中心画出一个点

图片框Picture1、控制按钮Cmd1,标题为"画点"。(Pset方法的格式为:对象名.Pset(x,y),其中x,y为点的坐标。x=Me.Picture1.Width?/?2,y=Me.Picture1.Height?/?2)

1????Private?Sub?Command1_Click()2????Me.Picture1.PSet?(Me.Picture1.Width?/?2,?Me.Picture1.Height?/?2)3????End?Sub

单击Cmd1,按钮移动到窗体的左上角

单击Cmd2,按钮在长度和宽度上各扩大到原来的2倍

1????Private?Sub?Cmd1_Click()2????Cmd1.Move?0,?03????End?Sub4????Private?Sub?Cmd2_Click()5????Cmd2.Width?=?Cmd2.Width?*?26????Cmd2.Height?=?Cmd2.Height?*?27????End?Sub

新建一个工程,在窗体上创建命令按钮,名称为C1。创建一个组合框控件,命名为Com1。程序运行,实现功能单击C1按钮,读取打印机的字体。并在组合框中的列表框中显示第一种字体。程序运行时的界面如图所示。

1????Option?Explicit2????Dim?i?As?Integer3????Private?Sub?C1_Click()4????For?i?=?0?To?Printer.FontCount?-?15????Com1.AddItem?(Printer.Fonts(i))6????Next7????Com1.Text?=?Com1.List(0)8????End?Sub

时间及图形相关题型

有一个圆和一条直线构成一个钟表;单击"开始"按钮,则钟表上的指针(即Line1)开始顺时针旋转(每秒转6?,一分钟一圈);单击"停止"按钮,则指针停止旋转1????Dim?lenth?As?Integer,?q?As?Integer2????Const?PI?=?3.141593????Private?Sub?Command1_Click()4?????Timer1.Enabled?=?True5????End?Sub6????Private?Sub?Command2_Click()7????Timer1.Enabled?=?False8????End?Sub9????Private?Sub?Form_Load()10????????lenth?=?Line1.Y2?-?Line1.Y111????????q?=?9012????End?Sub13????Private?Sub?Timer1_Timer()14????????q?=?q?-?615????????Line1.Y1?=?Line1.Y2?-?lenth?*?Sin(q?*?PI?/?180)16????????Line1.X1?=?Line1.X2?+?lenth?*?Cos(q?*?PI?/?180)17????End?Sub4

单击"计时"每秒显示一次,还是每10秒显示一次

1????Dim?num2????Private?Sub?Command1_Click()3????????Timer1.Enabled?=?True4????End?Sub5????Private?Sub?Timer1_Timer()6?????????num?=?num?+?17????????If?num?60?Then8????????????If?Option1.Value?=?True?Then9????????????????Text2.Text?=?num10????????????Else11????????????????If?(num?

本内容不代表本网观点和政治立场,如有侵犯你的权益请联系我们处理。
网友评论
网友评论仅供其表达个人看法,并不表明网站立场。