VB实验2Word文档下载推荐.docx

1、实验结果：【请将你的代码粘贴到下面】Private Sub cmdClear_Click（） txtNo.Text = End SubPrivate Sub cmdExit_Click（） EndPrivate Sub cmdOK_Click（） Dim i As Integer If txtPas.Text = majq Then MsgBox 输入正确 Else i = MsgBox（密码错误, 5 + vbExclamation, 输入密码） If i 4 Then txtPas.Text = txtPas.SetFocus End IfPrivate Sub Form_Load（）Pr

2、ivate Sub txtNo_LostFocus（） If Not IsNumeric（txtNo） Then账号有非数字字符, vbExclamation, 输入账号 清空 txtNo.SetFocus txtno获得焦点上面两步是文本框重新输入的惯用操作End If【请将你的典型结果的截图粘贴到下面】【实验3-2】税务部门征收所得税，规定如下（用IF语句实现）（10分）当收入为200 元以内（含200元）时，免征；当收入为 200 400 元（含400元）时，将超过 200 元的部分纳税 3% ；当收入为 400 5000元（不含5000元）时，将超过 400 元的部分纳税 4% ；当收

3、入为 5000 元或5000元以上时，将超过400元的部分纳税5% 。程序运行后，单击窗体，在输人对话框中输入收入数，程序将输出纳税金额，运行情况如下图所示 ，要求纳税程序界面掌握多分支if语句的使用，可自行用select语句改写。Private Sub Form_click（） Dim x As Integer Dim y As Single x = Val（InputBox（输入收入） If x = 200 Then y = 0 ElseIf x = 400 Then y = （x - 200） * 0.03 =5000 Then y = （x - 400） * 0.04 y = （x -

4、 400） * 0.05 Print 收入为; x; 应纳税为： y【实验3-3】猜数游戏程序自动产生一个1，100内的正整数，要用户猜，用户猜的值与被猜值的差距用“*”号个数表示，“*”越少表示差得越远，“*”越多表示相差越近。（用select case语句实现）（10分）界面设计参见下图:。猜数游戏界面掌握select case语句的使用，可自行用if语句改写。 Dim N As IntegerPrivate Sub Command1_Click（） Dim d As Integer d = Abs（Val（Text1.Text） - N） Select Case d Case Is =

5、0 ds = 你猜对了！真聪明！ Case 1 To 2* * * * * * Case 3 To 5* * * * * Case 6 To 10* * * * Case 11 To 20* * * Case 21 To 50* * Case Else* End Select MsgBox ds二、循环结构程序设计【实验3-4】求自然数 N 的阶乘 N！，运行结果如下图所示（10分）求阶乘界面掌握for语句的使用方法，可用其它循环语句编写、对比。 Dim n As Integer Dim i As Integer Dim s As Double n = Val（Text1.Text） s =

6、1 For i = 1 To n s = s * i Next i Text2.Text = s End Sub 【实验3-5】编程实现如图5-2所示的打印效果（10分）打印菱形界面掌握多重循环程序设计，可自行扩展称为等边三角形、直角三角形。Private Sub Command1_Click（） Dim i As Integer, j As Integer n = InputBox（输入图案偶数行） For i = 1 To n / 2 Print Tab（10 - i）; string（2*i-1,）; For i = n / 2 To 1 Step -1 【实验3-6】素数问题：计算小于

7、1000且最靠近1000的10个素数之和。掌握素数算法，可用其它循环语句编写、对比。 Dim n%, sum#, k% n = 999 Do While k n - 1 Then k = k + 1 sum = sum + n n = n - 1 Loop Print sum三、常见程序设计【实验3-7】编写一个简易计算器编写程序计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+当第i项的值= 0.00001 MsgBox s 【实验3-8】将200300之间的素数输出到列表框中。掌握素数算法 For i = 200 To 300判断I是否是素数 For J = 2 To i

8、- 1 If i Mod J = 0 Then Exit For Next J If J i - 1 Then List1.AddItem i Next i【实验3-9】编写程序，在窗体上输出上三角形式的九九乘法表。掌握多重For循环程序设计Private Sub Form_Click（） Dim a As Integer Dim b As Integer For a = 1 To 9 For b = 1 To a Print CStr（b） & & CStr（a） &= CStr（a * b）; Spc（2）; Next b Print Next a【实验3-10】任意输入一个或者多个英文句

9、子，统计这些句子中的单词数量。根据实际问题，找出解决方案，结合循环和分支结构语句，解决问题。提示：有很多种方法可以解决这个问题，注意特殊情况。 Dim BufStr As String, LS As Long, LE As Long, V（） As String BufStr = Text1.Text BufStr = Replace（BufStr, , BufStr = Replace（BufStr, vbCrLf, BufStr = Replace（BufStr, vbCr, BufStr = Replace（BufStr, vbLf, BufStr = Trim（BufStr） Do LS = Len（BufStr） LE = Len（BufStr） Loop Until LS = LE V = Split（BufStr, Text2.Text = Trim（UBound（V） - LBound（V） + 1）【加分1】百钱买百鸡问题，一