《常用标准控件（二）.doc》由会员分享，可在线阅读，更多相关《常用标准控件（二）.doc（9页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、1.2 常用标准控件（二）实验2.1 选项按钮的使用2.属性设置（请将表格补充完整）表1.2.1 对象属性对 象属性名称属性值Text1Text计算机等级考试Frame1Caption对齐方式Frame2Caption字体Option1Caption左对齐 Option2Caption居中Option3Caption右对齐Option4Caption宋体Option5Caption黑体3.完善程序代码Private Sub Option1_Click() Text1.Alignment = 0 End SubPrivate Sub Option2_Click() Text1.Alignment
2、 = 2 End SubPrivate Sub Option3_Click() Text1.Alignment = 1 End SubPrivate Sub Option4_Click() Text1.FontName = “宋体” End SubPrivate Sub Option5_Click() Text1.FontName = “黑体” End Sub实验2.2 复选框的使用2.属性设置（请将表格补充完整）表1.2.2 对象属性对 象属性名称属性值Form1Caption选课Check1NameCH1Caption数学Value0Check2NameCH2Caption语文Value1
3、Check3NameCH3Caption外语Value0Check4NameCH4Caption计算机Value1实验2.3 图像的使用2.属性设置（请将表格补充完整）表1.2.3 对象属性对 象属性名称属性值Image1Height2000Width3000StretchfalseCommandButton1NameCmd1Caption显示图片CommandButton2NameCmd2Caption隐藏图片3.完善程序代码Private Sub Cmd1_Click() Image1.Picture = loadpicture(“C:VBSy02图片1.jpg”) End Sub Pri
4、vate Sub Cmd2_Click() Image1.Picture = loadpicture() End Sub实验2.4 图片框和滚动条的使用2.属性设置（请将表格补充完整）表1.2.4 对象属性对 象属性名称属性值Pciture1AutoSizefalsePictureC:VBSy02图片2.jpgCommandButton1Caption设置属性3.完善程序代码Private Sub Command1_Click() VScroll1.Min = 100 VScroll1.Max = 2400 VScroll1.LargeChange = 200 VScroll1.SmallCh
5、ange = 20 End SubPrivate Sub VScroll1_Scroll() picture1.height=VScroll1.value End Sub实验2.5 滚动条的使用2.属性设置（请将表格补充完整）表1.2.5 对象属性对 象属性名称属性值HScroll1Min1Max100Text1Text13.完善程序代码Private Sub Form_Activate() HScroll1.setfoucs End SubPrivate Sub HScroll1_Change() Text1.text=HScroll1.value End Sub实验2.6 图形的使用(一)
6、表1.2.6 对象属性对 象属性名称属性值Form1Caption图形控件List1NameL1List1、2、3、4、53.完善程序代码Private Sub L1_Click() Shape1.shape=L1.text End Sub4.存盘时必须存放在C:VBSy02文件夹下，工程文件名为sjt6.vbp，窗体文件名为sjt6.frm。实验2.7 图形的使用(二)2.属性设置（请将表格补充完整）表1.2.7 对象属性对 象属性名称属性值Form1Caption圆形控件CommandButton1Caption圆形CommandButton2Caption红色边框3.完善程序代码Priv
7、ate Sub Command1_Click() Shape1.shape=3 End SubPrivate Sub Command2_Click() Shape1.BorderColor = &HFF& End Sub4.存盘时必须存放在C:VBSy02文件夹下，工程文件名为sjt7.vbp，窗体文件名为sjt7.frm。实验2.8 计时器的使用2.属性设置（请将表格补充完整）表1.2.8 对象属性对 象属性名称属性值Label1AutoSizetrueCaption空Font三号Timer1InterVal10003.完善程序代码Private Sub Timer1_Timer() Lab
8、el1.caption=Now End Sub1.3 选择结构 2.程序代码Private Sub Command1_Click() Timer1.Enabled =trueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = flaseEnd SubPrivate Sub Form_Load() Picture1.Picture = LoadPicture(C:VBSy03CARS.ICO)End SubPrivate Sub Timer1_Timer() Picture1.Left = Picture1.Left + 100 If Pic
9、ture1.Left + Picture1.Width = form1.width Then Picture1.Left = 0 End IfEnd Sub实验3.2 爱好选择 2.程序代码Dim s As StringPrivate Sub Check1_Click() If Check1.Value = 1 Then Frame1.Enabled = True Else Frame1.Enabled = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Frame2.Enabled = True E
10、lse Frame2.Enabled = False End IfEnd SubPrivate Sub Command1_Click() If Check1.Value = 1 Then If option1.value = True Then s = 古典音乐 Else s = 流行音乐 End If End If If Check2.Value = 1 Then If option3.value = True Then s = s & 篮球 Else s = s & 羽毛球 End If End If Label2.Caption =sEnd SubPrivate Sub Form_Loa
11、d() Check1.Value = 1 Check2.Value = 1End Sub实验3.3 圆的运动2.程序代码Dim d As IntegerPrivate Sub Command1_Click() Timer1.Enabled = trueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load() d = 1End SubPrivate Sub Timer1_Timer() If Option1 Then Shape2.Top = Shape2.Top + d *
12、50 If Shape2.Top = Shape1.Top + Shape1.Height Then d = -d End If ElseIf Option2 Then Shape2.Left = Shape2.Left + d * 50 If Shape2.Left = Shape1.Left + Shape1.Width Then d = -d End If End IfEnd Sub实验3.4 交通工具和目的地选择2.程序代码Private Sub Form_Click() 学生编写If Op1.Value = True Then If Op3.Value=true Then Lab1.
13、Caption = 坐飞机去广州 ElseIf Op4.Value=true Then Lab1.Caption = 坐飞机去昆明 End IfElse If Op3.Value=true Then Lab1.Caption = 坐火车去广州 ElseIf Op4.Value=true Then Lab1.Caption = 坐火车去昆明 End IfEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) Open out4.txt For Output As #1 Print #1, Op1.Value, Op2.Value, Op3.
14、Value, Op4.Value, Lab1.Caption Close #1End Sub实验3.5 交换与连接2.程序代码 Private Sub Form_Click() 学生编写If Op1.Value=true then t = Text1.Text Text1.Text = Text2.Text Text2.Text = t Lab1.Caption = 交换成功Else Lab1.Caption = Text1.Text + Text2.TextEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) Open out5.tx
15、t For Output As #1 Print #1, Op1.Value, Op2.Value, Text1.Text, Text2.Text, Lab1.Caption Close #1End Sub实验3.6 大小写转换2.程序代码Dim n As IntegerPrivate Sub Text1_Change() Dim ch As String ch = Right$(text1.text ,1) If ch = A And ch = a And ch =90 Text2 = 优秀 Case 80 to 89 Text2 = 良好 Case 70, 71, 72, 73, 74, 75, 76, 77, 78, 79 Text2 = 中等 Case 60, 61, 62, 63 To 66, Is = 67 Text2 = 及格 Case else Text2 = 不及格 End SelectEnd Sub