西安邮电学院学院vb实习报告.docVIP

西安郵電學院 ? ? VB实验报告 ? 题 目： 学生证管理系统 ? ? 系部名称 ： 信息与管理工程系 专业名称 ： 工业工程 班 级 ： 0801 学号 ：学生姓名 ： 张小立 指导教师 ： 邓万宇 时间 ： 2009年4月18日 至2009年6月29日 ? 一、?课程设计目的 1.??? ? ? 掌握正确书写表达式，赋值语句的规则 2.??? ? ? 掌握常用函数的使用。 3.??? ? ? 掌握Inputbox与Msgbox的使用。 4.??? ? ? 掌握Print方法和format格式的使用 ? 二、实验内容与实验结果 2.??? ? ? 输入半径，计算圆周长和圆面积。 Const n = 3.14 Private Sub Command1_Click() r = Text1 Text2 = Format(n * r * r, 0.00) End Sub Private Sub Text1_LostFocus() If Not IsNumeric(Text1) Then MsgBox 输入有非数字字符，请重新输入, , 2-2 Text1 = Text1.SetFocus End If End Sub 4.输入一字符串，分别调用UCase Len函数将其转换成大写字母并显示其字符串长度。 Private Sub Command1_Click() Dim i$, m$, n% i = InputBox(输入一个字符串) m = UCase(i) n = Len(i) Print m 长度 n End Sub 5.??? ? ? 随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数同时显示。 Private Sub Command1_Click() Dim a%, g% a = Int(Rnd * 900 + 100) g = (a Mod 10) * 100 + (a \ 10 Mod 10) * 10 + a \ 100 Print a g End Sub 6.使用Mid Left Right函数。在Text1文本框中输入一字符串，在Label1 label2 和 label3标签显示如图所示的效果。 Private Sub Text1_Change() Label1 = Left(Text1, 11) Label2 = Mid(Text1, 12, 6) Label3 = Right(Text1, 6) End Sub 8.用输入一个正实数，用方法在一行上显示它的平方和平方根，立方和立方根，每个数保留三位小数，期间有间隔。 Private Sub Command1_Click() Dim i% i = InputBox(输入一个正实数) m = i * i n = Sqr(i) p = i * i * i q = i ^ (1 / 3) Print 平方 ; Format(m, 0.000); 平方根 ; Format(n, 0.000); 立方 ; Format(p, 0.000); 立方根 ; Format(q, 0.000) End Sub 1.试验D Private Sub Form_Click()For i = 1 To 9 ? Print Tab(10 - i); String(2 * i - 1, Trim(Str(i)))Next i End Sub 3.Private Sub Form_Click()Dim i%, t, ee!i = 0: ee = 0: t = 1Do While 1 / t 10 ^ (-4)ee = ee + 1 / ti = i + 1t = t + iLoopPrint s= eePrint 1 / (t - 1) 1 / t End Sub ? 2. Private Sub Form_Click()For i = 65 To 73?Print Tab(i - 64); String(2 * (10 - (i - 64)), Trim(Chr(i)))?Next i End Sub ? ? 6.Private Sub Form_Click()Dim s%, bw%, sw%, gw%For i = 1 To 9? bw = i? s1 = 1 ^ 3? For j = 0 To 9? ? sw = j? ? s2 =