INTRANET网络工程实施报告(doc69)

上传人:痛*** 文档编号:76840415 上传时间:2022-04-19 格式:DOC 页数:14 大小:147KB
收藏 版权申诉 举报 下载
INTRANET网络工程实施报告(doc69)_第1页
第1页 / 共14页
INTRANET网络工程实施报告(doc69)_第2页
第2页 / 共14页
INTRANET网络工程实施报告(doc69)_第3页
第3页 / 共14页
资源描述:

《INTRANET网络工程实施报告(doc69)》由会员分享,可在线阅读,更多相关《INTRANET网络工程实施报告(doc69)(14页珍藏版)》请在装配图网上搜索。

1、VB语言程序设计习 题 参 考 答 案第1章习题一、单选题1D 2B 3C 4A 5C 6. A7A 8B 9C 10(1)A (2)B二、多选题1ACDE 2BCDE 3CD 4. CE三、填空题1事件驱动 2解释,编译 3设计,运行,中断4. 属性,方法,事件 5. Command2_Click 6. 中央,代码7MyForm.frm 8. (1)Cmd1_Click() (2)Print VB语言程序设计编程及上机调试1. 按要求设置窗体属性2在窗体上建立一个标签Label1。程序代码如下:Private Sub Form_Click() Label1.Caption = 你单击了窗体E

2、nd SubPrivate Sub Form_DblClick() Label1.Caption = 你双击了窗体End Sub3 在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * xEnd Sub第2章习题一、单选题1D,D 2A,C 3A 4B5B 6B7C 8D 9B 10B 11A 12A13B 14A 15B 16A 17B二、多选题1BD 2

3、CD 3AC 4. AD三、填空题1(1) Sin(50*3.14159/180) (2) (2+x*y)/(2y*y) (3) a*a3*a*b/(3+a) (4) x(3/8)+Sqr(y*y+4*a*a/(x+y3)2Int(50+6*Rnd)3(1)138 (2)3 (3)214 (4) inchina (5)70 (6) 45 (7)0 4. 系统管理数据库编程及上机调试13题:按要求完成操作练习。4 Private Sub Command1_Click() 最大化按钮 Form1.WindowState = 2 最大化End SubPrivate Sub Command2_Clic

4、k() 还原按钮 Form1.WindowState = 0 还原End SubPrivate Sub Command3_Click() 最小化按钮 Form1.WindowState = 1 最小化End Sub5在窗体上建立三个文本框Text1(第一个数)、Text2(第二个数)、Text3(计算结果)和一个命令按钮Command1(“计算”)。 Private Sub Command1_Click() Dim x As Single Dim y As Single x = Val(Text1.Text) y = Val(Text2.Text) Text3.Text = x * x + y

5、 * yEnd Sub6. 在窗体上建立两个文本框Text1(输入一串字符)、Text2(输出结果)和一个命令按钮Command1。 Private Sub Command1_Click() Dim x As String x = Left(Text1.Text, 1) + Right(Text1.Text, 1) Text2.Text = xEnd Sub第3章习题一、单选题1C 2B 3D 4D 5B 6C7B 8D 9D 10A 11A 12C13C 14B 15(1)A (2)C 16A 17B18(1)D (2)B (3)C 19D二、多选题1AC 2AC 3ABCF三、填空题1.

6、$000,124 2Label1.Caption=a*b= 3Height,Width42 5Text1.SetFocus6Multiline, ScrollBars, 2 7编程技术,程序设计8Private Sub Text2_Change() 当文本框Text2中的文本内容发生变动时,执行该事件过程Label1.Caption=Text1.Text 把文本框Text1中的文本内容作为标签Label1的标题End SubPrivate Sub Text1_GotFocus() 当文本框Text1获得焦点时,执行该事件过程Text1.SelStart = 0 选定文本框Text1中的所有文本

7、内容Text1.SelLength=Len(Text1.Text)End Sub编程及上机调试1在窗体上建立一个文本框Text1(输入n值)、三个标签Label1(第一个随机数)、Label2(第二个随机数)和Label3(第三个随机数),以及一个命令按钮Command1。Private Sub Command1_Click() n = Val(Text1.Text) Randomize x = Int(1 + n * Rnd) Label1.Caption = 第一个随机数 + Str(x) x = Int(1 + n * Rnd) Label2.Caption = 第二个随机数 + Str

8、(x) x = Int(1 + n * Rnd) Label3.Caption = 第三个随机数 + Str(x)End Sub2在窗体上建立了四个文本框Text1、Text2、Text3和Text4,以及一个命令按钮Command1(“交换”)和Command2(“合并”)。Private Sub Command1_Click() “交换” t = Text1.Text Text1.Text = Text2.Text Text2.Text = Text3.Text Text3.Text = tEnd SubPrivate Sub Command2_Click() “合并” t = Text1

9、.Text + Text2.Text + Text3.Text Text4.Text = tEnd Sub3. (1) Rnd * 9000 + 1000 (2) Str(x) (3) Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1)4. Private Sub Command1_Click() 往左 Text1.Left = 0End SubPrivate Sub Command2_Click() 往右 Text1.Left = Form1.Width - Text1.WidthEnd SubPrivate Sub Command3_Click() 居中 Te

10、xt1.Left = (Form1.Width - Text1.Width) / 2End Sub5. Private Sub Cmd1_Click() Lab1.Visible = True Lab1.Caption = 您已下达显示命令End SubPrivate Sub Form_Click() Cmd1.Visible = TrueEnd Sub6. Private Sub Form_KeyPress(KeyAscii As Integer) Show Print 输入字符:; Chr(KeyAscii), ASCII码为; KeyAsciiEnd SubPrivate Sub For

11、m_DblClick() ClsEnd Sub 7. 产生这三个消息框的相应语句是: 产生第1个消息框:x = MsgBox(在这里显示提示信息, 4 + 0, 请确认) 产生第2个消息框:x = MsgBox(在这里显示 + Chr(13) + 提示信息,3 + 0,请确认) 产生第3个消息框:x = MsgBox(在这里显示+Chr(13)+提示信息,2 + 16 + 0,请确认)第4章习题一、单选题1C 2A 3C 4C 5. B 6. A 7D 8B 9B 10(1)D (2)A (3)B二、多选题1ABCFGHJ 2BE 3CD 4. CDE 5. AE三、填空题1(S And (A

12、=18 And A =1.65) Or (Not S And (A=16 And Age=1.60)2. 60000 3. (1) 0 To 9 (2) a To z,A To Z (3) Else4(1)6 (2)-2 (3)2 5 Select Case x Case Is 20 Case Is = 0 y = 2 y = 4 Case Is = 30 Case Is 10 y = 3 y = 0 Case Else Case Is 100) And (x Mod 5=0) (2) 0 (3) Len(Text1.Text) (4) Text1.SelText编程及上机调试1. 在窗体上建

13、立两个文本框Text1(输入数)及Text2(显示结果),一个命令按钮Command1(“判断”)。Private Sub Command1_Click() “判断” x = Val(Text1.Text) If x Mod 2 = 0 Then Text2.Text = 偶数 Else消息 Text2.Text = 奇数 End IfEnd Sub2窗体上建立了一个文本框Text1,用于显示结果。Private Sub Form_Load() x = Val(InputBox(请输入星期几(06) Select Case x Case Is = 0 Text1.Text = 星期日(Sund

14、ay) Case Is = 1 Text1.Text = 星期一(Monday) Case Is = 2 Text1.Text = 星期二(Tuesday) Case Is = 3 Text1.Text = 星期三(Wednesday) Case Is = 4 Text1.Text = 星期四(Thursday) Case Is = 5 Text1.Text = 星期五(Friday) Case Is = 6 Text1.Text = 星期六(Saturday) Case Else Text1.Text = 输入错误 End SelectEnd Sub3窗体上建立了一个文本框Text1(“输入

15、口令”)和一个命令按钮Command1(“检查”)。Private Sub Command1_Click() “检查” x = Text1.Text If x = 12345678 Then MsgBox (欢迎你用机!) Else MsgBox (对不起,口令错) End If Text1.Text = Text1.SetFocusEnd SubPrivate Sub Form_Load() Text1.Text = Text1.MaxLength = 8 Text1.PasswordChar = *End Sub4窗体上建立了两个文本框Text1(输入字符串)及Text2(转换结果),一个

16、命令按钮Command1(“清除”)。Private Sub Command1_Click() “清除” Text1.Text = Text2.Text = Text1.SetFocusEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) Dim s As String * 1 s = Chr(KeyAscii) Select Case s Case A To Z s = LCase(s) Case a To z s = UCase(s) Case Else s = * End Select Text2.Text = Text2.Text

17、 + sEnd Sub5 分别选择”红”、 ”绿”、 ”蓝”复选框后,单击命令按钮Command1时,通过RGB函数调配的颜色作为一个标签的背景色(BackColor)。Private Sub Command1_Click() r = 0: g = 0: b = 0 If Check1.Value = 1 Then ”红”复选框 r = 255 End If If Check2.Value = 1 Then ”绿”复选框 g = 255 End If If Check3.Value = 1 Then ”蓝”复选框 b = 255 End If Label1.BackColor = RGB(r,

18、 g, b)End Sub6程序代码如下:Private Sub Form_Load() LabClk.Caption = 0 LabClk.Alignment = 1 LabClk.BorderStyle = 1 LabClk.FontSize = 22 LabClk.FontName = 黑体 TimClk.Interval = 1000End Sub Private Sub TimClk_Timer() LabClk.Caption = Val(LabClk.Caption) + 1End Sub7 (1) Chr(KeyAscii) (2) ElseIf Chr(KeyAscii) (

19、3) CheC = CheC - 1 (4) CheC (5) Is 0 或 Else第5章习题一、单选题1A 2. B 3(1)C,(2)B 4B 5C 6A7(1)B,(2)C,(3)B 8. B 9. B 10. B二、填空题1(1)4次,n=13 (2)3次,n=8 (3)3次,n=27 (4)3次,n=10 (5)1次,n=122(1) Len(s) (2) Mid(s, k, 1) (3) c + t (4) Text2.Text3(1) t = 1 (2) n = n + 1 (3) t = t * 24. 0 5. Text 6. 下拉列表框 7. AddItem ,Remov

20、eItem或Clear8(1)ItemA (2) ItemD (3) ItemD (4) ItemA9(1) Mid(x, p + 3) (2) p + 4 (3) InStr(p, x, 123)编程及上机调试1. 和数为:1.21。程序代码如下:Private Sub Form_Load() Show s = 0 For k = 1 To 100 s = s + 1 / (1 + k * 4) Next k Print sEnd Sub2. 程序代码如下:Private Sub Form_Load() Dim i As Integer, a As Integer, b As Integer

21、, c As Integer Show For i = 100 To 999 a = Int(i / 100) b = Int(i - 100 * a) / 10) c = i - 100 * a - 10 * b If a * a * a + b * b * b + c * c * c = i Then Print i End If Next iEnd Sub3. 在窗体上建立一个文本框Text1(初始值)、一个列表框List1(显示结果)和一个命令按钮Comd1(“查找”)。Private Sub Comd1_Click() “查找” Dim n As Integer n = Val(Te

22、xt1.Text)List1.Clear:k = 0 Do While k = A And t = 0.00001 Print a; 的平方根为; xn1End Sub第6章习题一、单选题1. D 2. A 3(1)B,(2)B 4C 5. C 6. A7. (1)C (2)B (3)A (4)B (5)D 二、多选题1. AD 2. CD三、填空题1. 二, 12; 1, 3; -1, 2 2. 0 1 2 3 2 2 2 2 2 1 0 1 4 4 4 43. Name, Index4. (1) 0 To Index (2)Val(Text1(k).Text)5. (1) i+1 To k

23、 (2) s(i) s(j) (3) s(i)s(i-1) (4) h = h+1 6. (1) ReDim a(1 To n + 1) (2) a(K + 1) = a(K) (3) a(p) 编程及上机调试1. 程序代码如下: Private Sub Form_Load() Show Dim a(100) As Single n = Val(InputBox(输入个数n) Print 处理前数据 : For k = 1 To n a(k) = Val(InputBox(请输入第 & k & 个数) Print a(k); Next k Print M = Int(n / 2) For k

24、= 1 To M h = n - k + 1 t = a(h):a(h) = a(k):a(k) = t Next k Print 处理的结果 : For k = 1 To n Print a(k); Next kEnd Sub2. 程序代码如下: Private Sub Form_Load() Dim a(6, 6) As Integer Show For i = 1 To 6 For j = 1 To 6 Select Case i Case Is j a(i, j) = 2 Case Is = j a(i, j) = 0 End Select Print a(i, j); Next j

25、Print Next i For i = 1 To 6 t = a(1, i):a(1, i) = a(6, i):a(6, i) = t Next i Print: Print For i = 1 To 6 For j = 1 To 6 Print a(i, j); Next j Print Next iEnd Sub3在窗体上建立两个列表框List1(处理前数据)和List2(处理后数据),以及标签Label1。程序代码如下: Private Sub Form_Load() Dim a(100) As Integer, b(100) As Integer Randomize n = 100

26、 For i = 1 To n 输入数组a的n个元素 x = Int(20 * Rnd) List1.AddItem x a(i) = x Next i k = 0 For i = 1 To n 删除零元素 If a(i) 0 Then k = k + 1 : b(k) = a(i) : List2.AddItem b(k) End If Next i Label1.Caption = 数组中零元素个数: + Str(n - k)End Sub4(1) g(x - 10) + 1 (2) n - 1 (3) g(t) =16 (2) n16 (3) Mid(ch, r+1, 1)编程及上机调试

27、1. 在窗体上建立四个文本框Text1和一个命令按钮Command1(“检验”)。文本框Text1Text3用于输入,Text4用于输出结果。Private Sub Command1_Click() Dim a As String, b As String, c As String a = Trim(Text1.Text) b = Trim(Text2.Text) c = Trim(Text3.Text) If che(a) And che(b) And che(c) Then Text4.Text = Val(a) + Val(b) + Val(c) Else Text4.Text = 存在

28、非数字字符 End IfEnd SubFunction che(x As String) As Boolean 若存在非数字字符,函数值为假 che = True For k = 1 To Len(x) s = Mid(x, k, 1) If s 9 Then che = False Exit For End If Next kEnd Function2在窗体上建立七个文本框Text1Text7和一个命令按钮Command1(“比较”)。Text1Text6用于输入,Text7用于输出结果。Private Sub Command1_Click() a = Val(Text1.Text):b =

29、 Val(Text2.Text):c = Val(Text3.Text) d = Val(Text4.Text):e = Val(Text5.Text):f = Val(Text6.Text) Call max(a, b, c, m) Call max(m, d, e, m) Call max(m, f, f, m) Text7.Text = mEnd SubSub max(x, y, z, m) 标准模块文件 If x y Then m = x Else m = y End If If m z Then m = z End IfEnd Sub3. (1) s (2) Mid(s, p+1)

30、(3) n4. 程序代码如下:Private Sub Form_Load() Dim x As Single, n As Integer, y As Double x = InputBox(x=, 求X的n次方) n = InputBox(n=, 求X的n次方) y = Power(x, n) Show Print x; 的; n; 次方=; Format(y, #,#.#)End SubFunction Power(x As Single, n As Integer) As Double If n 1 Then Power = Power(x, n - 1) * x Else Power =

31、 x End IfEnd Function5 在窗体上设置三个窗体Form1Form3。Form1中建立了两个文本框Text1(“用户名”)和Text2(“密码”),以及命令按钮Command1(“判断”)。Form2中建立了一个文本框Text1(其Text属性值为“欢迎你使用本系统”)和命令按钮Command1(“返回”)。Form3中建立了一个文本框Text1(其Text属性值为“对不起,请向管理员查询”)和命令按钮Command1(“退出”)。Dim n As IntegerPrivate Sub Command1_Click() 窗体Form1的“判断” usern = Trim(Te

32、xt1.Text):passw = Trim(Text2.Text) If usern = username And passw = password Then Form1.Hide Form2.Show Else n = n + 1:Text1.SetFocus If n = 3 Then Form1.Hide Form3.Show End If End If Text1.Text = :Text2.Text = End SubPrivate Sub Form_Activate() Text1.Text = :Text2.Text = Text1.SetFocusEnd SubPrivate

33、 Sub Command1_Click() 窗体Form2的“返回” Form2.Hide Form1.ShowEnd SubPrivate Sub Command1_Click() 窗体Form3的“退出” Unload Form1 Unload Form2Unload Form3 EndEnd Sub 6. (1) Form1窗体模块程序代码:Private Sub Form_Load() RandomizeEnd SubPrivate Sub Command1_Click() 生成随机数 Dim s As String s = For i = 1 To 10 a(i) = Int(11

34、+ 90 * Rnd) s = s + Str(a(i) + , Next i Text1.Text = Left(s, Len(s) - 1)End SubPrivate Sub Command2_Click() 求最大数 Text2.Text = Max()End SubPrivate Sub Command3_Click() 打开排序窗口 Form1.Hide 隐藏主窗体 Form2.Show 显示“排序”窗体End SubPrivate Sub Command4_Click() 结束 Unload Form1 隐藏主窗体 Unload Form2 显示“排序”窗体 EndEnd Sub

35、(2) Form2窗体模块程序代码:Private Sub Command1_Click() “排序” Dim t As String Call Sort(t) Text1.Text = tEnd SubPrivate Sub Command2_Click() “返回” Form2.Hide 隐藏“排序”窗体 Form1.Show 显示主窗体End Sub(3) 标准模块程序代码:Public a(1 To 10) As SingleFunction Max() As Single 求最大值 Dim m As Single m = a(1) For i = 2 To 10 If m a(j)

36、Then t = a(i): a(i) = a(j): a(j) = t End If Next j s = s + Str(a(i) + , Next i s = s + Str(a(10)End Sub第8章习题一、单选题1. B 2. D 3D 4A 5. B 6. B7. A 8. (1)D (2)D 9. B 二、填空题1. 随机存取方式 2. Get, Put 3. (1) Open StData1.txt For Output As #1(2) Write #1, StNo, StMb (3) Close #1 4. (1) Open StData1.txt For Input

37、As #1 (2) EOF(1) (3) Input #1, StNo, StMb5(1)13 (2)Text1.Text = 9999 (3)Text1.Text6(1)num + 1 (2)Input (3)num (4) Stno(num), Text1.Text (5)Stno(num)编程及上机调试1. 程序代码如下:Dim d(1 To 20) As IntegerPrivate Sub Command1_Click() 产生随机数 For i = 1 To 20 d(i) = Int(1 + 99 * Rnd) List1.AddItem d(i) Next iEnd SubPr

38、ivate Sub Command2_Click() 保存 Open MyFile3.txt For Output As #1 For i = 1 To 20 Write #1, d(i) Next i Close #1End SubPrivate Sub Command3_Click() 读出 Open MyFile3.txt For Input As #1 Do While Not EOF(1) Input #1, x List2.AddItem x Loop Close #1End SubPrivate Sub Command4_Click() 结束 EndEnd Sub2 本程序的用户界面和程序代码较为复杂,请见具体程序文件。第9章习题单选题1B 2D 3D 4B 5. A 6. A编程及上机调试1. 程序代码如下:Private Sub Form_load() Dim x(3) As Single, y As Single On Error GoTo errln 以后出错时转移到errln y = 2 / 0 产生除数为0的错误 x(4) = 1 产生下标越界的错误

展开阅读全文
温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

相关资源

更多
正为您匹配相似的精品文档
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2023-2025  zhuangpeitu.com 装配图网版权所有   联系电话:18123376007

备案号:ICP2024067431-1 川公网安备51140202000466号


本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知装配图网,我们立即给予删除!