全国计算机考试VB机试常见题型汇总.docVIP

几种简单操作 任何情况下，按回车键都相当于单击是（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牋牋燭imer1.Enabled?燭rue5牋牋End燬ub6牋牋Private燬ub燙ommand2_Click()7牋牋Timer1.Enabled?燜alse8牋牋End燬ub9牋牋Private燬ub燜orm_Load()10牋牋牋牋lenth?燣ine1.Y2?燣ine1.Y111牋牋牋牋q??012牋牋End燬ub13牋牋Private燬ub燭imer1_Timer()14牋牋牋牋q?爍??15牋牋牋牋Line1.Y1?燣ine1.Y2?爈enth?燬in(q?燩I??80)16牋牋牋牋Line1.X1?燣ine1.X2?爈enth?燙os(q?燩I??80)17牋牋End燬ub4 单击计时每秒显示一次，还是每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?爊um10牋牋?牋牋牋燛lse11牋牋牋牋牋牋牋牋If?num??0?燙Int(Int(num??0)))燭hen12牋牋