- 1、本文档共5页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB实验报告作业
eq \o\ac(○,温) eq \o\ac(○,馨) eq \o\ac(◇,提) eq \o\ac(◇,示):
1、实验报告中的学生自我小结一定要写,可以是疑惑、心得,我会给出无声的回答。
2、作业不能有抄袭,If 你一定要触犯的话,Then请一并写出原创单位。
第1次 VB实验报告作业
实验项目
顺序结构的运用
实验目的
(1)掌握顺序结构程序设计的特点。
(2)掌握函数的使用。
(3)掌握赋值语句、Visual Basic数据的输入/输出。
1、单击命令按钮后,两个文本框中的文本能进行交换。(效果如下图所示)
第2次 VB实验报告作业
实验项目
选择结构IF语句
实验目的
(1)掌握选择结构的流程。
(2)掌握IF语句的语法及应用。
1.判断方程式ax2+bx+c=0的实根情况,在三个文本框中输入a、b、c的值,显示最终的实根信息。请补充空白(1)、(2)处,以便能得到正确答案,但不得增删原语句。
程序代码如下:
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
Dim d As Single
a = Val(text1.Text)
b = Val(text2.Text)
c = Val(text3.Text)
d = (1)
If d 0 Then
Label1.Caption = 该方程式有两个不等的实根
(2) Then
label1.Caption = 该方程式有两个相等的实根
Else
Label1.Caption = 该方程式没有实根
End If
End Sub
提示:一元二次方程的求根公式:△=b2-4ac;当△0时,方程有两个不相等的实根;当△=0时,方程有两个相等的实根;当△0时,方程有两个不相等的虚根。
第3次 VB实验报告作业
实验项目
选择结构SELECT CASE语句
实验目的:
掌握SELECT CASE多分支选择结构的语法
了解IIF函数和CHOOSE函数的使用
1、程序填空题:利用Select Case语句来判断一个字符串变量a的值。如果是数字字符,则输出“Nums”;如果是其他符号,则输出“Chars”。请将程序代码补充完整。
Private Sub Form_Click()
x = InputBox(请输入字符串)
Select Case x
Case (1)
Print Nums
(2)
Print Chars
End Select
End Sub
Private Sub Form_Load()
MsgBox 单击窗体, , 提示
End Sub
第4次 VB实验报告作业
实验项目
计时器的使用
实验目的:
掌握选择控件(单选框与复选框)及计时器的常用属性与事件
掌握几个位置属性(top,left,width,height)
1、程序改错题:(请直接把正确的代码写在实验报告上)
具体要求
(1)Timer1用来控制图片框每隔0.1秒进行午上下移动
(2)在编写的二个过程代码Timer1_Timer()中有二处错误;Command1_Click()中有一处错误,请调试改正。
调试改正中,每个过程代码只能改一处,并不得增删语句。
Dim step As Integer
Private Sub Command1_Click()
If Command1.Caption = HI,同志们好! Then
Command1.Caption = 飘移的感觉真好
Timer1.Enabled = False
Else
Command1.Caption = HI,同志们好!
Timer1.Enabled = False
End If
End Sub
Private Sub Form_Load()
step = 1
End Sub
Private Sub Timer1_Timer()
Picture1.Move Picture1.Left, Picture1.Top + 50 * step
If Picture1.Top + Picture1.Width Form1.ScaleHeight Then
step = -1 图片框移至窗体最下边时则向上飘移
ElseIf Picture1.Top 0 Then
step = 1 移到最顶部时则向下飘移
End If
End Sub
1亿VIP精品文档
相关文档
最近下载
- 脉冲电路中电阻功率的计算.pdf
- 有限空间作业管理制范本.pdf
- QC七大手法试题附答案.doc VIP
- GB∕T 33881-2017 罐车用铝合金板、带材.pdf
- 2024云南红河州个旧市城市发展集团限公司招聘工作人员2人高频考题难、易错点模拟试题(共500题)附带答案详解.docx
- EPC项目质量管理要点.pdf VIP
- 冀教版(三起)英语三年级下册Unit 4 Food and restaurants Lesson 19 I Like Fruit课件.pptx
- 《美术鉴赏》学业水平考试复习资料.docx VIP
- 体育与健康《田径--投掷》大单元教学计划(18课时).docx
- 小学五年级信息技术《设计环保标志——word插入形状,并在形状中填充图片》说课课件.pptx
文档评论(0)