- 1、本文档共16页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
实 验 报 告 二
课 程 VB程序设计 实验项目 选择、循环结构程序设计(6学时) 成 绩 专业班级 2015级经济学四班 姓 名 杨自然 学 号 201531100361 实验日期 实验目的
(1)掌握分支结构(if、if else、select case)语句
(2)掌握基本循环控制结构(For-Next、While-Wend、Do-Loop)语句
(3)掌握循环嵌套结构
(4)掌握素数算法
(5)能综合运用循环控制结构解决较复杂的问题
实验内容
一、选择结构程序设计
【实验3-1】编写一个“系统登录”程序,对用户输入的账号和密码进行检验。(10分)(实验教材P39)
要求:
① 账号不超过6位数,密码为4位字符,本题的密码假设为“majq”。
② 账号中不能有非数字字符,可以通过IsNumeric函数对文本框中的输入内容进行测试。
③ 密码输入时,屏幕上不能显示输入字符,以“*”代替。
④ 当输入不正确时,显示提示信息。若单击“重试”按钮,则清除原输入内容,焦点定位在原输入的文本框中,重新输入;若单击“取消”按钮,则停止程序的运行。
⑤ 密码检验运行界面和输入密码错误显示的信息分别如图3-2和图3-3所示。
图3-2 密码检验运行界面 图3-3 输入密码错误显示信息
掌握简单if语句的使用
实验结果:
【请将你的代码粘贴到下面】
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Command1_Click()
Dim i As Integer
If Textpas.Text = majq Then
MsgBox 输入正确
Else
i = MsgBox(密码错误, 5 + vbExclamation, 输入密码)
If i 4 Then
End
Else
Textpas.Text =
Textpas.SetFocus
End If
End If
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
TextNo.Text =
Textpas.Text =
End Sub
Private Sub Text1_Change()
End Sub
Private Sub TextNo_LostFocus()
If Not IsNumeric(TextNo) Then
MsgBox 账号有非数字字符, vbExclamation, 输入账号
TextNo.Text =
TextNo.SetFocus
End If
End Sub【请将你的典型结果的截图粘贴到下面】
【实验3-2】税务部门征收所得税,规定如下(用IF语句实现)(10分)(P42)
①当收入为200 元以内(含200元)时,免征;
②当收入为 200 ~ 400 元(含400元)时,将超过 200 元的部分纳税 3% ;
③当收入为 400 ~ 5000元(不含5000元)时,将超过 400 元的部分纳税 4% ;
④当收入为 5000 元或5000元以上时,将超过400元的部分纳税5% 。
程序运行后,单击窗体,在输人对话框中输入收入数,程序将输出纳税金额,运行情况如下图所示 ,要求
纳税程序界面
掌握多分支if语句的使用,可自行用select语句改写。
实验结果:
【请将你的代码粘贴到下面】
Private Sub Form_Load()
Dim x As Integer
Dim y As Single
Show
x = Val(InputBox(输入收入))
If x = 200 Then
y = 0
ElseIf x = 400 Then
y = (x - 200) * 0.03
ElseIf x 5000 Then
y = (x - 400) * 0.04
Else
y = (x - 400) * 0.05
End If
Print 收入为; x; 应纳税为; y
End Sub
【请将你的典型结果的截图粘贴到下面】
【实验3-3】猜数游戏
程序自动产生一个[1,100]内的正整数,要用户猜,用户猜的值与被猜值的差距用“*”号个数表示,“*”越少表示差得越远,“*”越多表示相差越近。(用select case语句实现)(10分)(P
文档评论(0)