面向对象程序设计复习.doc
文本预览下载声明
面向对象程序设计复习
※上机操作题
一、设计一个程序
1、建立应用程序界面，并修改各控件的属性，使其最终显示结果如图所示
2、界面上的3个按钮功能为：单击“显示”按钮，在文本框中显示“欢迎您进入Visual Basic的世界！”；单击“清除”按钮，清除文本框中内容；单击“退出”按钮，退出应用程序的执行。
3、编写代码，实现上述功能
Private Sub Command1_Click()
Text1.Text = 欢迎您进入Visual Basic的世界！
End Sub
Private Sub Command2_Click()
Text1.Text =
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Click()
quit
End Sub
Private Sub Form_Load()
Text1.Text =
End Sub
二、要求：输入长宽高，计算长方体的表面积, 并且添加代码，实现相应功能
Private Sub Command1_Click()
Dim a, b, c
a = Text1.Text
b = Text2.Text
c = Text3.Text
MsgBox (a * b + a * c + b * c) * 2
End Sub
Private Sub Form_Load()
Text1.Text =
Text2.Text =
Text3.Text =
End Sub
三、设计一窗体要求：
标题为14计算机；窗体中有2空文本框和二个还原‘开始’按扭；点击‘开始’，光标由第一文本框自动转到第二文本框（setfocus）,同时使‘开始’按扭变为无效（Enabled）；点击还原按扭使还原。
Private Sub Command1_Click()
Text1.SetFocus
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Text2.SetFocus
Command2.Enabled = False
End Sub
Private Sub Form_Load()
Text1.Text =
Text2.Text =
End Sub
四、建立如下图所示账号和密码检验程序，当“账号”中输入非数字时，弹出“账号有非数字字符错误”对话框
图1
Private Sub Command1_Click()
Text1.SetFocus
If IsNumeric(Text1.Text) = True Then
Else
MsgBox 账号有非数字字符错误
End If
End Sub
Private Sub Form_Load()
Text1.Text =
Text2.Text =
End Sub
五、设计一个程序
设计一窗体要求：
标题为自己学号姓名；窗体中有2空文本框和二个还原‘开始’按扭；程序运行情况见图1；点击‘开始’，光标由第一文本框自动转到第二文本框（setfocus）,同时使‘开始’按扭变为无效（Enabled），见图2；点击还原按扭使还原，见图1。
图1 图2
与第三题一样，不雷同了啊
六、建立如下图所示工具栏，并且添加代码，实现相应功能
Private Sub Check2_Click()
Text1.FontItalic = True
End Sub
Private Sub Option1_Click()
Text1.Font = 宋体
End Sub
Private Sub Option2_Click()
Text1.Font = 楷体
End Sub
七、要求：输入长宽高，计算长方体的表面积, 并且添加代码，实现相应功能
界面设计正确，能够正确进行运算
与第二题一样，不雷同了啊
八、建立如下图所示窗体，并且添加代码，程序功能：能够使用12小时制或者24小时制显示计算机当前时间（15分）
界面设计正确7分，能够正确进行显示时间格式切换8分
Private Sub Form_Load()
Text1.Text = Format(Now(), HH:MM:SS)
End Sub
Private Sub Option1_Click()
Dim vhour
vhour = Hour(Time)
If vhour = 12 Then
Text1.Text = Format(Now
显示全部