Question

求VB设计试题与答案

要多选题15道题左右 谢谢了 急用

Answer 1

楼主留个邮箱就好了，我直接发给你。我们学校的琥珀课后资源网就共享了最近的实验报告！其他朋友有需要的可以去下载。地址就是我的名字百度就有了。
楼主别怪我直接打在上面了喔
————————————————————————————————
计算机与信息学院实验报告
（一）Visual Basic环境和程序设计的初步
实验目的
了解Visual Basic系统对计算机软件、硬件的要求。
掌握启动与退出Visual Basic的方法。
熟悉Visual Basic的集成开发环境（IDE）。
掌握在窗体上添加控件的各种方法。
掌握建立、编辑、运行和保存一个简单的Visual Basic应用程序的全过程。
实验内容
启动Visual Basic6.0,观察标题栏、菜单栏、工具栏与Microsoft其他应用程序的不同之处；熟悉各个控件以及窗体设计和工程管理器窗口、属性窗口、代码窗口的功能、组成以及它们各种不同的打开方法。
在窗体上画一文本框个一个命令按钮，在文本框中显示“VB程序设计”。
编写适当事件过程，当单击命令按钮时，文本框内容消失。
以解释方式运行程序。
把程序保存。然后关掉该工程。装入上面建立的程序，并在窗体上增加一个命令按钮。当单击该命令按钮，结束程序运行。保存程序。
把当前程序编译为可执行文件。
生成当前工程并退出。在windows环境下运行该工程。
创建一个“标准EXE”类型的应用程序。要求：在屏幕上显示“欢迎您的到来！”，并请输入您的名字。
实验环境
Microsoft Visual Basic 6.0 中文版
算法描述及实验步骤
熟悉vb的环境。
先创建一个文本框和命令按钮，并设置相应的代码如下：
Private Sub Form_Load()
Text1.Text = "VB程序设计"
End Sub
Private Sub Command1_Click()
Text1.Text = ""
End Sub
创建两个标签和一个文本框。在属性窗口设置两个标签的caption的值分别为：欢迎你的到来！和请留下您的尊姓大名：，并设置相应的字体。
调试过程
无错误
实验结果
1、
2、
总结
答：从中的到的知识是更了解了VB集成开发环境，掌握了在窗体上添加控件的各种方法。

（二）顺序程序设计
实验目的和要求
掌握常用内部函数的使用
掌握表达式，赋值语句的正确书写规则
掌握InpueBox和MsgBox的使用
实验内容和原理
用立即窗口试验每一个内部函数的操作，并验证数值以及日期时间的各种格式化输出方式。
创建如图所示的应用程序，要求：单击窗体显示如图所示的图形。
创建如图所示的应用程序，要求：单击“放大”按钮后，将文本中显示的字符串放大2~3倍；若单击按钮“还原”按钮。则将文本框显示的字符串大小返原。
实验环境
Microsoft Visual Basic 6.0 中文版
算法描述及实验步骤
Private Sub Form_Click()
Print Int(3.3); Spc(1);: Print Int(-5.3); Spc(1);: Print Fix(6.9); Spc(1);
Print Fix(-7.6); Spc(1);: Print Round(7.5); Spc(1);: Print Round(-7.5); Spc(1);
Print Hex(20); Spc(1);: Print Oct(20); Spc(1);: Print Asc("w"); Spc(1);
Print Chr(70); Spc(1);: Print Val("132"); Spc(1);: Print Str(122); Spc(1)
Print Sin(30); Spc(1);: Print Cos(30); Spc(1): Print Tan(45); Spc(1);
Print Atn(453); Spc(1): Print Abs(-8); Spc(1);: Print Sgn(-4); Spc(1)
Print Sqr(4); ; Spc(1);: Print Exp(6); Spc(1);: Print Log(4); Spc(1)
Print Day(Now); Spc(1);: Print Month(Now); Spc(1);: Print Year(Now); Spc(1);
Print Hour(Now); Spc(1);: Print Minute(Now); Spc(1);: Print Second(Now); Spc(1)
Print Trim("wgx"); Spc(1);: Print LTrim("wgxwgx"); Spc(1);: Print RTrim("wgxwgx "); Spc(1);
Print Left("wgx", 2); Spc(1);: Print Mid("wgxwgx", 2, 3); Spc(1);: Print Right("wgxgwx", 3); Spc(1);
Print Len("wWgGxX"); Spc(1);: Print String(3, 65); Spc(1);: Print InStr("wgxwGX", "x"); Spc(1)
Print UCase("wgx"); Spc(1);: Print LCase("WGX"); Spc(1);
End Sub
2. Private Sub Form_Click()
Print Tab(20); "*"
Print Tab(20); "* *"
Print Tab(20); "*"; Spc(4); "*"
Print Tab(20); "*"; Spc(6); "*"
Print Tab(20); "*"; Spc(8); "*"
Print Tab(20); "*"; Spc(10); "*"
Print Tab(20); "*"; Spc(12); "*"
Print Tab(20); "*"; Spc(14); "*"
Print Tab(20); "* * * * * * * * *"
End Sub
3. Private Sub Command1_Click()
Text1.FontSize = 12
Text1.FontSize = Int(Rnd * 2 + 2) * Text1.FontSize
End Sub
Private Sub Command2_Click()
Text1.FontSize = 12
End Sub
实验结果

总结
答:从这节实验中掌握了常用内部函数的使用,还有表达式赋值语句的正确书写规则,掌握了Inputbox与MSGBOX的使用.