VB实验任务6参考答案.doc

实验任务6参考答案课程名称：程序设计基础VB实验名称实验六 Visual Basic程序设计基础(2)一、实验目的：1掌握顺序结构的程序设计方法2掌握常用的接收和输出数据的方法3进一步掌握常量、变量、运算符、表达式和常用函数的使用二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）：实验1 注意：类型符省略为%Integer，&Long，!Single，#Double，Currency，结果转换方向整型长整型单精度型双精度型货币型第（1）组总结u 加法和减法的情况相同u 通常相同类型的操作数进行运算,结果同操作数本身,但是除法/比较特殊,除单精度数据除外(Single),相同数据进行除运算结果是Doubleu 不同类型的操作数进行运算,结果通常按占用内存字节数多的方向转换(规则:转换方向整型长整型单精度型双精度型货币型);也有特例:单精度与长整型运算结果为Double,单精度与货币型相乘运算结果为Double, 双精度与货币型相乘运算结果为Double,单精度与整型相除运算结果为Single第（2）组Dim a As Integer, b As Single, c As Singlea 0ABCACBABC = abc200 + True#1/1/2007# - #1/1/2000#30 + 140123 & 456123 + 456123ab & 246实验2请先手工写出以下程序段的运行结果，然后使用立即窗口或在窗体的Click事件过程中分别添加如下的程序段，运行验证，进一步理解和掌握运算符和表达式的应用。（1）Print Sgn(2)Print Sgn(-45 Mod 2)Print Chr$(65)Print Asc(Chr$(65)Print Asc(Morning)Print Chr$(Asc(Morning) - 2)Print String(5, 97), String(5, Mm)（2）s$ = ABCDEFGgfedcbaPrint Left(s,4)Print Right(s,4)Print Mid(s, 4, 8)Print Instr(s, efg)Print Sqr(Len(s) + 1)Print Lcase(s)（3）Print CInt(3.56),Int(3.56),Fix(3.56)Print Round(3.56),format(3.56,”0”)Print CInt(-3.56),Int(-3.56),Fix(-3.56)Print Round(-3.56),format(-3.56,”0”)Print CInt(3.5),Int(3.5),Fix(3.5)Print Round(3.5),format(3.5,”0”)Print CInt(2.5),Int(2.5),Fix(2.5)Print Round(2.5),format(2.5,”0”)Print Round(2.445,2),format(2.445,”0.00”)(4)假定当前日期为2009-3-27Print Day(Now)Print Month(Now)Print Year(Now)Print DateDiff(”d”, Now, #2009/05/01#)Print Weekday(Now)Print Weekday(Now, vbMonday)实验3 实验书62页 实验4-2Option ExplicitPrivate Sub CmdInsert_Click() Dim S As String, InsStr As String, Pos As Integer S = TxtStr Pos = Val(TxtPos) InsStr = TxtInsStrTxtStr.Text = Left(S, Pos) & InsStr & Right(S, Len(S) - Pos)或者TxtStr.Text = Left(S, Pos) & InsStr & Mid(S, Pos + 1)End Sub实验4输入本金、年利息和存储年数，单击按钮计算出纯收益显示在标签上，提示：千分位、保留小数位数、￥格式设置应参看课本88采用Private Sub cmdnetincome_Click()Dim bj As Currency, lx As Single, year As Integer, income As Currencybj = Val(txtbj)lx = Val(Txtlx)year = Val(Txtyear)income = bj * (1 + lx) year - bjlblincome = 本金￥ & bj & , & year & 年期纯收益为 & Format(income, ￥#,0.00)End Sub实验5 实验书99页 实验5-3 （参考课本90页例题4-9和课本83-87页的inputbox函数和msgbox函数的用法。）要求用户输入一个三位正整数，然后逆序输出，产生的数与逆序数同时输出。例如，产生357，输出753。Option ExplicitDim x As StringPrivate Sub Command1_Click() x = InputBox(请输入一个三位数)End SubPrivate Sub Command2_Click() Dim x1 As String, x2 As String, x3 As String, y As Integer x1 = Left(x, 1) x2 = Mid(x, 2, 1) x3 = Right(x, 1) y = x3 & x2 & x1 MsgBox 逆序前的3位数是 & x & vbCrLf & _ 逆序后的数是 & yEnd Sub实验6 实验书63页 实验4-5方法1Private Sub Form_Click() Dim x As String, x1 As Integer, x2 As Integer, x3 As Integer, x4 As Integer, y As String x = CStr(Int(9999 - 1000 + 1) * Rnd) + 1000) x1 = (Val(Left(x, 1) + 7) Mod 10 x2 = (Val(Mid(x, 2, 1) + 7) Mod 10 x3 = (Val(Mid(x, 3, 1) + 7) Mod 10 x4 = (Val(Right(x, 1) + 7) Mod 10 y = x4 & x3 & x2 & x1 Print 加密前的4位整数是 & x Print 加密后的结果是 & yEnd Sub方法2Private Sub Form_Click() Dim x As Integer, x1 As Integer, x2 As Integer, x3 As Integer, x4 As Integer, y As Integer x = Int(9999 - 1000 + 1) * Rnd) + 1000 x1 = (x Mod 10 + 7) Mod 10 x2 = (x 10 Mod 10 + 7) Mod 10 x3 = (x 100