求vb高手帮忙解答作品题!在这里先说声谢谢了。 答案满意可以追加
答案可以发到我的邮箱121725956@qq.com1、如图1-9:在名称为Form1的窗体上,画一个文本框和两个命令按钮。文本框的名称为Txt1,内容在开始时为空。两个...
答案可以发到我的邮箱121725956@qq.com
1、如图1-9:
在名称为Form1的窗体上,画一个文本框和两个命令按钮。文本框的名称为Txt1,内容在开始时为空。两个命令按钮的 名称分别为Cmd1、Cmd2,标题分别为“输入”、“取消”。要求:
(1)编写适当的事件过程,当程序运行时,单击Cmd1按钮,文本框中显示“祝你考试成功!”;单击Cmd2命令按钮时,文本框中内容为空。程序运行界面如图9所示。
(2)将应用程序打包,并安装运行。
注意:
(1)程序中不得使用任何变量。
(2)存盘时保存在以学号或姓名命名的文件夹下,工程文件名为vbxk1-09.vbp,窗体文件名为vbxk1-09.frm,包文件夹名为vbxk1-09。
2、如图1-2:
创建一个验证身份的程序,运行界面如图2所示。要求:
(1)输入的密码以“*”表示,若密码正确(设正确密码为vb1234),用MsgBox显示“欢迎使用本系统!”否则显示错误信息:“密码错误,请重新输入!”。单击退出按纽,退出该程序。
(2)将应用程序打包,并安装运行。
注意:存盘时保存在以学号或姓名命名的文件夹下,工程文件名为vbxk1-02.vbp,窗体文件名为vbxk1-02.frm,文件夹名为vbxk1-02。
3、
创建一个多功能计算器程序,程序运算界面如图2-6所示。
要求:
(1)用控件数组设计数字按钮
(2)用API函数实现“总在前面效果”
注意:存盘时保存在以学号或姓名命名的文件夹下,工程文件名为vbxk2-03.vbp,窗体文件名为vbxk2-03.frm,文件夹名为vbxk2-03。
4、
开发一个成绩查询数据库应用程序。它具有数据增加(Insert)、修改(Update)、删除(Delete)和查询(Select)功能。
开发步骤及要求:
1.准备工作
建立名称为“vbxk5-成绩查询”文件夹,在该文件夹下,建立“图标”文件夹,在其中存入界面设计时所用图标。开发过程中的全部文件存放在“vbxk5-成绩查询”文件夹中。
2.建立成绩查询数据库
用Microsoft Access或SQL Server创建一个名称为“成绩”的数据库,其中包含三张数据表,即学生成绩表、学生情况表、课程情况表,如表5-3、表5-4、表5-5、表5-6所示。 展开
1、如图1-9:
在名称为Form1的窗体上,画一个文本框和两个命令按钮。文本框的名称为Txt1,内容在开始时为空。两个命令按钮的 名称分别为Cmd1、Cmd2,标题分别为“输入”、“取消”。要求:
(1)编写适当的事件过程,当程序运行时,单击Cmd1按钮,文本框中显示“祝你考试成功!”;单击Cmd2命令按钮时,文本框中内容为空。程序运行界面如图9所示。
(2)将应用程序打包,并安装运行。
注意:
(1)程序中不得使用任何变量。
(2)存盘时保存在以学号或姓名命名的文件夹下,工程文件名为vbxk1-09.vbp,窗体文件名为vbxk1-09.frm,包文件夹名为vbxk1-09。
2、如图1-2:
创建一个验证身份的程序,运行界面如图2所示。要求:
(1)输入的密码以“*”表示,若密码正确(设正确密码为vb1234),用MsgBox显示“欢迎使用本系统!”否则显示错误信息:“密码错误,请重新输入!”。单击退出按纽,退出该程序。
(2)将应用程序打包,并安装运行。
注意:存盘时保存在以学号或姓名命名的文件夹下,工程文件名为vbxk1-02.vbp,窗体文件名为vbxk1-02.frm,文件夹名为vbxk1-02。
3、
创建一个多功能计算器程序,程序运算界面如图2-6所示。
要求:
(1)用控件数组设计数字按钮
(2)用API函数实现“总在前面效果”
注意:存盘时保存在以学号或姓名命名的文件夹下,工程文件名为vbxk2-03.vbp,窗体文件名为vbxk2-03.frm,文件夹名为vbxk2-03。
4、
开发一个成绩查询数据库应用程序。它具有数据增加(Insert)、修改(Update)、删除(Delete)和查询(Select)功能。
开发步骤及要求:
1.准备工作
建立名称为“vbxk5-成绩查询”文件夹,在该文件夹下,建立“图标”文件夹,在其中存入界面设计时所用图标。开发过程中的全部文件存放在“vbxk5-成绩查询”文件夹中。
2.建立成绩查询数据库
用Microsoft Access或SQL Server创建一个名称为“成绩”的数据库,其中包含三张数据表,即学生成绩表、学生情况表、课程情况表,如表5-3、表5-4、表5-5、表5-6所示。 展开
2015-05-21
展开全部
1,
Private Sub Command1_Click()
Text1.Text = "祝你考试成功"
End Sub
Private Sub Command2_Click()
Text1.Text = ""
End Sub
2,
Private Sub Command1_Click()
Dim a As Integer
If Text1.Text = "vb1234" Then
a = MsgBox("欢迎使用本系统", vbInformation, "提示")
Else
a = MsgBox("密码错误,请重新输入", vbInformation, "提示")
Text1.Text = ""
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
追问
太感谢了!还有2题怎么样?完成了给你再加20分
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询