- 1、本文档共21页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB操作题答案
第一次作业
Private Sub Command1_Click()
Text1.Text = 欢迎你学习VB程序设计
Text1.ForeColor = vbGreen
Text1.Font = 宋体
Text1.FontSize = 25
Text1.FontItalic = True
Text1.FontBold = True
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Click()
Text1.ForeColor = vbRed
Text1.Font = 隶书
Text1.Text = 佛山大学理学院
End Sub
第二次作业(服务员密码)
1、请建立一个工程( zy02.vbp),含有1个窗体(zy02.frm),该窗体有两个标签,两个命令按钮(设置成不同的背景色),一个文本框。要求如下:1)当程序启动运行时,命令按钮不可用(变灰色),当在文本框中输入正确密码时,显示出来的是星号,(2)…
3)点击结帐按钮后,窗体所有控件消失,仅显示出标签“谢谢你,再见!”这样的服务用语。
Private Sub Command1_Click()
Text1.Visible = False
Label2.Visible = True
Label2.Caption = 你好,你需要什么
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Command1.Visible = False
Command2.Visible = False
Label1.Visible = False
Label2.Caption = 谢谢你,再见!
End Sub
Private Sub Form_Load()
Label2.Visible = False
Command1.Enabled = False
Command2.Enabled = False
End Sub
Private Sub Text1_Change()
If Text1.Text = 12345 Then Command1.Enabled = True
Text1.PasswordChar = *
End Sub
第三次
建立一个工程(zy03.vbp),含有一个窗体(zy03.frm)。请在该窗体上设计两个文本框,三个命令按钮,标题分别是减运算和除运算,退出,如图。请编写适当的程序,根据两个文本框中输入的数据(整型数据)分别进行减运算和除运算,并将运算结果(注意:除运算结果采用浮点数)用标签控件显示出来。特别要求:总是用两个文本框中输入的大数据做被减数或被除数。工程文件和窗体文件上传到你的操作题子目录下。
Private Sub Cd1_Click()
Dim X%, Y%, Z%
Dim P$
X = Int(Tt1.Text)
Y = Int(Tt2.Text)
If X Y Then Z = X - Y Else Z = Y - X
P = Str(Z)
Ll2.Caption = P
End Sub
Private Sub Cd2_Click()
Dim X%, Y%, Z#
Dim P$
X = Int(Tt1.Text)
Y = Int(Tt2.Text)
If X Y Then Z = X / Y Else Z = Y / X
P = Str(Z)
Ll2.Caption = P
End Sub
Private Sub Cd3_Click()
Visible = False
End Sub
第四次
1、建立一个工程(zy041.vbp),含有一个窗体(zy041.frm)。请在该窗体上设计三个文本框,两个命令按钮,标题分别是计算和与清除,如图。请编写两个命令按钮适当的程序,点击命令按钮计算,利用inputbox函数输入任意两个正整数,将这两个数显示在前两个文本框中,然后根据两个数的和进行判断,如果是奇数,将其放在第3个文本框中,如果是偶数,将其打印在窗体上,点击清除按钮后,清除文本框中的数和窗体上的数据。
Private Sub C1_Click()
Dim x As Integer, y As Integer, z As Integer, m As Integer
x = InputBox(请输入第一个正整数:, 数据输入)
y = InputBox(请输入第二个正整数:, 数据输入)
If x 0 And y 0 Then
T1.Text = x
T2.Text = y
z = x + y
m = z Mod 2
If m = 0 The
您可能关注的文档
- Texaco煤气化炉数学模型的研究_建模部分_李政.pdf
- TBI滚珠丝杆的特长与选定步骤说明.pdf
- the 关于引入特定投资人向内蒙古牙克石五九煤炭集团新大洲控股股.pdf
- Testomat ECO中文说明书(简版).pdf
- the 用于压裂液的胶囊破胶剂性能评价Ξguide download.pdf
- TG-NETS6200E-15TF万兆核心光口交换机--产品资料.pdf
- Ti-Al系金属间化合物的高温热腐蚀.pdf
- Ti6Al4V合金表面激光重熔Ni60B_TiN喷涂层的组织与性能.pdf
- thermo浊度仪和polymetron浊度仪价格.docx
- TI—ZR微合金化高强钢焊接热影响区性能及组织特征.pdf
最近下载
- 7.2 类比推理及其方法-高中政治课件 (统编版选择性必修3).pptx VIP
- 《数学物理方程-福州大学-江飞》作业chapter1.pdf VIP
- 重庆渝北中交·中央公园 C96, C98-1 地块山地新中式商业街项目 GOA.pdf
- 2024年江苏省高考物理真题试卷含答案.pdf VIP
- 《数学物理方程-福州大学-江飞》数学物理方程A.doc VIP
- 《数学物理方程-福州大学-江飞》作业chapter2.ppt VIP
- 《数学物理方程-福州大学-江飞》第四章.doc VIP
- 《数学物理方程-福州大学-江飞》数学物理方程A答案.doc VIP
- 2023年辽宁省检察系统招聘聘用制书记员考试真题及答案.docx VIP
- 2024年高考真题——物理(河北卷)含答案.pdf VIP
文档评论(0)