福建省计算机2级考试重点总结.doc

弧度数 Text1.Text = Sin(Val(Text1.Text)val-数值 Text1.Text = Val(Text1.Text)*180/3.14 弧度数单击命令按钮则在Lable1中显示二位正整数Private Sub Command1_Click() Label1.Caption = Int(Rnd*(100)+1)单击Text2,则Text2显示20个Text1的第一个字符Text2.Text = String(20,Text1.Text)秒表设置：Private Sub Form_Click()， Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() L1.Caption = Str(Val(L1.Caption) + 1)End Sub第二组2题Text1.ForeColor = RGB(HS1.Value, HS2.Value, HS3.Value)第三组3题 画线画椭圆Private Sub Command1_Click() Picture1.Cls Picture1.Line (0, 0)-(1800, 1100)End SubPrivate Sub Command2_Click() Picture1.Cls Picture1.Circle (900, 550), 300, , , , 2End Sub选定对象复制（4组2题）Text2.Text = Text1.SelText 选定4组3题（将文本框输入的内容添加到list1中，并将其除去首尾空格后的长度添加到list2中，然后清空文本框，并使文本框获得焦点）Private Sub Command1_Click() List1.AddItem Text1.Text List2.AddItem Len(Trim(List1.List(List1.ListCount - 1) Text1.Text = Text1.SetFocusEnd Sub （5组2题）单击C1在窗体上加载图形“小狗” 单击C2则在窗体上清除该图形Private Sub C1_Click() Form1.Picture = LoadPicture(k:YdksmljwJztx.bmp)End SubPrivate Sub C2_Click() Form1.Picture = LoadPicture()End Sub大写=UCase7组3题（点击COMMOND1 FORM1卸载 FORM2显示图画 ）Private Sub Command1_Click() Unload Form1 Form2.Show Form2.Picture = LoadPicture(K:Ydksmljwravmon.jpg)End Sub第8组3题（在Combo1添加“北京市”等，单击添加按钮把Combo1添加到L1）Private Sub C1_Click() L1.AddItem Combo1.TextEnd SubPrivate Sub Form_Load() Combo1.AddItem 北京市 Combo1.AddItem 上海市 Combo1.AddItem 天津市 “自动”添入 Combo1.AddItem 广州市 Combo1.AddItem 厦门市End Sub10组2题Private Sub Label1_Click()Image1.Stretch = TrueImage1.Picture = LoadPicture(K:Ydksmljwautumn.jpg)End Sub运行时，单击按钮，将List1中所选项添加到List2中，并从List1中删除该项。Private Sub Command1_Click()List2.AddItem List1.TextList1.RemoveItem List1.ListIndex (用于单击命令按钮时所选项目被删除)End Sub#12组3题（单击全选时，可实现相应功能，即TEXT1内容全选中）Private Sub Choose_Click() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End Sub（Private Sub Copy_Click() Clipboard.SetText Text1.SelText Text1.SelText = Clipboard.GetTextEnd Sub）-可不要编写13组2题（image1随滚动条的移动而由左向右移动）Private Sub HScroll1_Scroll()Image1.Move HScroll1.ValueEnd Sub单击COMMAND1时即COMMAND1不可见，然后单击FORM窗体时命令按钮重新显示Private Sub Command1_Click()Command1.Visible = FalseEnd SubPrivate Sub Form_Click()Command1.Visible = TrueEnd Sub15组2题(在text1上编写半径为（4。5 ，1。5）单击命令按钮时在form1上显示圆)_在Form1画圆应记住在属性窗口上设置ScaleMode属性为7-CentimeterPrivate Sub Command1_Click() Form1.Circle (4.5, 1.5), Val(Text1.Text)End Sub15组3题（单击命令按钮1将list1所选项添加到list2中，单击命令按钮2将list2中所有选项的清空）Private Sub Command1_Click() List2.AddItem List1.TextEnd SubPrivate Sub Command2_Click() List1.RemoveItem List1.ListIndexEnd Sub Stretch(Ture图片能够自动伸缩以适应图象框的大小)16组3题（单击子菜单中新建，通过MsgBox对话框显示新建框） Private Sub New_Click() MsgBox 新建?, 4, 新建 End Sub注：在子菜单中的“新建”“退出”之间有分隔符（标题：- 名称fgx）17组3题（单击命令按钮在list2中添加上list1所选项与组合框combol1所选项通过一个空格连接起来）Private Sub Command1_Click() List2.AddItem List1.Text & & Combo1.TextEnd Sub 空格符注：命令按钮Style属性 值为0-standard:标准的，按钮上不能显示图形 值为1-Graphical:图形的，按钮上可以显示图形的样式，也能显示文字（所以编写时要使按钮的背景颜色显示时要先改变该属性）18组2题（改动滚动块位置，在label1中显示相应背景色）Private Sub HS1_Change() label1.BackColor = RGB(HS1.Value, HS2.Value, HS3.Value)End SubPrivate Sub HS2_Change() label1.BackColor = RGB(HS1.Value, HS2.Value, HS3.Value)End SubPrivate Sub HS3_Change() label1.BackColor = RGB(HS1.Value, HS2.Value, HS3.Value)End Sub18组3题（单选副选框后单击命令按钮在文本框内出现“报名参加篮球比赛” 以此类推）Private Sub C1_Click() If CH1.Value = 1 Then Text1.Text = 报名参加篮球比赛 End If If CH2.Value = 1 Then Text1.Text = 报名参加排球比赛 End If If CH1.Value = 1 And CH2.Value = 1 Then Text1.Text = 报名参加篮球和排球比赛 End If If CH1.Value = 0 And CH2.Value = 0 Then Text1.Text = End IfEnd Sub#19组3题（向text1输入“student”口令正确label2显示欢迎使用本系统若口令错误,label2显示“口令错，请重新输入”选定错误口令，等待重新输入）Private Sub Command1_Click() If Text1.Text = student Then Label2.Caption = 欢迎使用本系统！ Else Label2.Caption = 口令错，请重新输入！ Text1.SelStart = 0 单击按钮文本选中 Text1.SelLength = Len(Text1.Text) Text1.SetFocus End IfEnd Sub21组2题（选中“宋体”“黑体”按钮，文本框字体做相应的改变）Private Sub Option1_Click()Text1.FontName = 宋体End SubPrivate Sub Option2_Click()Text1.FontName = 黑体End Sub21组3题（在form1中添加一个计时器，计时器事件每3秒触发一次，运行时，form1首先启动，3秒钟后自动退出并加载form2）Private Sub Form_Load()Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Unload MeForm2.ShowEnd Sub22组2题（程序运行后图象框不可见，单击窗体图象框装入图片“k:Ydksmljwtaj.bmp”）Private Sub Form_Load() Image1.Visible = FalseEnd SubPrivate Sub Form_Click() Image1.Visible = True Image1.Picture = LoadPicture(k:Ydksmljwtaj.bmp)End Sub22组3题（单击“春夜喜雨”菜单项，则在文本框中显示唐诗春夜喜雨的诗句（分行形式）Private Sub A2_Click()Text1.Text = 好雨知时节，当春乃发生； & vbCrLf & 随风潜入夜，润物细无声。End Sub*可看可不看23组3题（选择“复制”或“粘贴”文本框实现文字的复制和粘贴功能）Option ExplicitDim st As StringPrivate Sub Cp_Click() st = Text1.SelTextEnd SubPrivate Sub Ps_Click() Text1.Text = stEnd Sub23组3题（单击commamd1，则用绘图方法在窗体上画一个矩形，单击commamd，则用清屏的方法清除该图）Private Sub Command1_Click() Form1.Line (400, 300)-(1200, 900), , BEnd SubPrivate Sub Command2_Click() Form1.ClsEnd Sub移动滑块 在文本框显示值Private Sub HScroll1_Change()Text1.Text = HScroll1.ValueEnd Sub25组3题（选中check1,文本框的文字放大两倍，选中“下划线”文本框中的文字加下划线，取消时，恢复到原来状态）Private Sub Check1_Click()If Check1.Value = 1 ThenText1.FontSize = 2 * (Text1.FontSize)ElseText1.FontSize = Text1.FontSize / 2End IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenText1.FontUnderline = TrueElseText1.FontUnderline = FalseEnd IfEnd Sub26组2题（计时器属性原本为非激活状态，单击命令按钮后激活，并且每隔0。5秒就-1 直到为0后，计时器停止）Private Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() Text1.Text = Text1.Text - 1 If Text1.Text = 0 Then Timer1.Enabled = FalseEnd Sub28组3题（单击命令按钮时，分别显示两个输入对话框，在两个对话框分别输入数字后，在两个文本框内显示出来）Private Sub Command1_Click() Text1.Text = InputBox(身高, 0) Text2.Text = InputBox(体重, 0)End Sub29组2题（单击命令按钮后，label1 text1消失，并在窗体上显示文本框的内容）Private Sub Command1_Click() If Text1.Text Then Print Text1.Text Label1.Visible = False Text1.Visible = False End IfEnd Sub29组3题（根据滚动块来放大或缩小图片框） 可看可不看Private Sub Command1_Click() VScroll1.Min = 100 VScroll1.Max = 2400 VScroll1.LargeChange = 200 VScroll1.SmallChange = 20 Picture1.Tag = Str(Picture1.Height) Picture1.Tag = Picture1.HeightEnd SubPrivate Sub VScroll1_Scroll() Picture1.Height = Val(Picture1.Tag) * VScroll1.Value / VScroll1.Max Picture1.Height = Picture1.Tag * VScroll1.Value / VScroll1.MaxEnd Sub30组2题（在文本框内输入姓名和年龄，单击命令按钮，则在窗体上显示两个文本框的内容）Private Sub Command1_Click() Form1.Cls Form1.Print Text1 & , 现年 & Text2 & 岁End Sub30组3题（程序运行后，文本框被清空，拖动滚动条上的滚动块，可由滚动条的取值决定文本框的宽度，并使得文本框的高度实在是其宽度的0.5倍）Private Sub Form_Load() Text1.Text = End SubPrivate Sub HScroll1_Scroll() Text1.Height = Text1.Width * 0.5 Text1.Width = HScroll1.ValueEnd Sub单击命令按钮1，窗体上显示“计算机程序设计”，单击命令按钮2，窗体上只显示“西方艺术欣赏”Private Sub C1_Click() Form1.Cls Form1.Print 计算机程序设计End SubPrivate Sub C2_Click() Form1.Cls Form1.Print 西方艺术欣赏End Sub 错误题目31组3题（单击命令按钮1时，form1卸载，form2显示，并且窗体上显示“单击窗体-”单击窗体任何一处清除窗体上的文字）Private Sub Command1_Click() Form2.Show Unload Me Form2.Print 单击窗体任一处可清除窗体上的文字End Sub单击命令按钮1，label1无边框不透明，单击命令按钮2，label1透明有边框Private Sub Command1_Click() Label1.BackStyle = 1 Label1.BorderStyle = 0End SubPrivate Sub Command2_Click() Label1.BackStyle = 0 Label1.BorderStyle = 1End Sub32组3题（在文本框输入一个字符，单击命令按钮，文本框显示该字符的ASCII码说明）Private Sub Command1_Click() Text1.Text = Text1.Text & 的ASCII码为 & Str(Asc(Text1.Text)End Sub33组1题（单击命令按钮时 在L1，L2，L3中显示10，99内的随机整数Private Sub C1_Click() L1.Caption = Str(Int(Rnd * 90 + 10) L2.Caption = Str(Int(Rnd * 90 + 10) L3.Caption = Str(Int(Rnd * 90 + 10)End Sub34组2题（单击命令按钮时，将文本框字体类型添加到组合框）Private Sub Command1_Click() Combo1.AddItem Text1.FontNameEnd Sub34组3题（运行时，在image1.image2中装入图片，单击命令按钮，3个图片框中间的图片互相交换）Private Sub Command1_Click() Image3.Picture = Image1.Picture Image1.Picture = Image2.Picture Image2.Picture = Image3.PictureEnd SubPrivate Sub Form_Load() Image1.Picture = LoadPicture(K:YdksmljwTree.jpg) Image2.Picture = LoadPicture(K:YdksmljwDog.jpg)End Sub35组2题（单击任意单选按钮，文本框文字按单选框的选择而改变）Private Sub Option1_Click() Text1.FontName = 黑体End SubPrivate Sub Option2_Click() Text1.FontName = 楷体_GB2312End SubPrivate Sub Option3_Click() Text1.FontSize = 12End SubPrivate Sub Option4_Click() Text1.FontSize = 20End Sub35组3题（单击命令按钮，把左方文本框中内容加到右放列表框的首项，单击列表框的某一项，则删除该项）Private Sub Command1_Click()List1.AddItem Text1.Text, 0End SubPrivate Sub List1_Click()List1.RemoveItem List1.ListIndexEnd Sub36组3题（单击“修改”按钮，将列表框中所选项目移到右方文本框中，单击“添加”按钮，将文本框中的内容加到列表框末尾）Private Sub Command1_Click() Text1.Text = List1.Text List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command2_Click() List1.AddItem Text1.TextEnd Sub选择组合框内的内容，label1中的字体也跟着改变Private Sub Combo1_Click()Label1.FontName = Combo1.TextEnd Sub39组3题（单击按钮，若img1,img2轮流显示）Private Sub C1_Click() Img1.Visible = Not Img1.Visible Img2.Visible = Not Img2.VisibleEnd Sub40组2题（运行时，标签显示当前时间，单击“停止”按钮，标签显示时间停止变化，单击“显示”按钮，标签技术显示当前时间）Private Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() Label1.Caption = TimeEnd Sub40组3题（单击“画圆”按钮，在图片框清屏并画一个中心为（900，500）半径为400的圆；单击“画椭圆”，清屏并画中心为（900，550）半径为300、长短轴比为2的椭圆Private Sub C1_Click() Pic1.Cls Pic1.Circle (900, 550), 400End SubPrivate Sub C2_Click() Pic1.Cls Pic1.Circle (900, 550), 300, , , , 2End Sub41组3题（运行时，在文本框内输入单个英文字母，单击按钮，则将文本中的添加到L1中，并将对应的ASCII值以十进制方式添加到L2中，然后清空文本框，并使文本框获得焦点）Private Sub C1_Click() L1.AddItem T1.Text L2.AddItem Asc(T1.Text) T1.Text = T1.SetFocusEnd Sub42组3题（运行时，在文本框输入运算数，选择“乘法”或“整除”妄称响应的运算，在标签中显示运算结果，选择“清除“，清除文本框和标签的内容）Private Sub Clean_Click() Text1.Text = Text2.Text = Label1.Caption = End SubPrivate Sub Div_Click() Label1.Caption = Str(Val(Text1.Text) Val(Text2.Text)End SubPrivate Sub Mul_Cli