《VB程序设计》实验单元一Word文件下载.docx

1、Form_Load事件对文本框初值设为空；Form_Click事件对文本框计数。 对文本框计数：Text1=Val（text1）+1 。四、实验步骤1、绘制Label1的caption输入“你单击窗体的次数：”2、绘制text。编程为：Private Sub Form_Click（）Text1.Text = Val（Text1.Text） + 1End SubPrivate Sub Form_Load（）Text1.Text = 3、text的font size设置为“一号”五、实验结果 网媒1403班 姓名 凌紫怡 学号 201424050320 指导教师：二、实验目的2、命令按钮、字号、内

2、容和格式的复制练习。按钮1：使得Text1中的文本按要求改变。按钮2：将Text1中选定的文本复制到Text2. 控件名属性Form1Caption=”实验2”Label1复制文本Label2输入文本Text1Text=“VB功能强大，但要下功夫学习才能学好。Text2Text=”Command1Caption=”隶书25磅”Command2Caption=”复制=1、label1的caption输入“复制效果”；label2的caption输入“输入文本”。2、绘制两个text。Private Sub Text1_Click（）VB功能强大，但要下功夫学习才能学好。Private Sub T

3、ext2_click（）Text2.Text = 3、以及两个Command。Command1的caption输入“隶书25磅”；Command2的caption输入“复制=”。Private Sub Command1_Click（）Text1.FontName = 隶书Text1.FontSize = 25Private Sub Command2_Click（）Text2.Text = Text1.SelTextText2.FontName = Text1.FontNameText2.FontSize = Text1.FontSize实验二 VB语言基础和顺序结构一 、实验目的1、掌握正确书

4、写表达式、赋值语句的规则2、掌握常用函数的使用3、掌握InputBox与MsgBox的使用4、掌握Print和Format的使用二、 实验环境 三、 实验内容1、输入半径的值，分别计算并输出圆的面积、圆的周长和球的体积。1、绘制一个label，caption为r。2、绘制四个text，编写程序代码为：Private Sub Text1_Change（）Text3.Text = Text4.Text = 3、绘制三个command，command1的caption为“圆的面积”；command2的caption为“圆的周长”；command3的caption为“圆的体积”。编写程序代码为：a =

5、 3.14Text2.Text = a * Text1.Text * Text1.TextText3.Text = 2 * a * Text1.TextPrivate Sub Command3_Click（）Text4.Text = 4 / 3 * a * Text1.Text * Text1.Text * Text1.Text2、随机产生一个3位正整数，然后逆序输出，产生的随机数与逆序数同时显示。例如735,输出537.利用“Mod”和“”将一个3位数分离出3个1位数，然后连接成一个逆序的3位数。1、绘制一个text，并编写程序代码：Label1 = 2、绘制一个label，label的bo

6、rder style属性为1-fixed single3、绘制两个command，command1的caption命名为“产生”；command2的caption命名为“逆序”并且编写程序为：Text1.Text = Int（Rnd * 900 + 100）Dim x%, x1%, x2%, x3%x = Val（Text1.Text）x1 = x Mod 10x2 = （x Mod 100） 10x3 = x 100Label1 = x1 * 100 + x2 * 10 + x3实验三 选择结构1、掌握逻辑表达式的正确书写形式。2、掌握单分支与双分支条件语句的使用。3、掌握多分支条件语句的使

7、用。4、掌握情况语句的使用及其与多分支条件语句之间的区别。1、输入3个整数，输出最大的数。1、绘制一个label，它的caption是“输入三个整数”2、绘制四个text，并且编写程序代码为3、绘制两个command，command1的caption为“输出最大值”并且编写程序代码为y = Val（Text2.Text）z = Val（Text3.Text）If x y And x z ThenText4.Text = xElseIf y Text4.Text = yElseText4.Text = zEnd IfCommand2的caption为“清空”，并且编写程序为2、输出150-200

8、的能被7但不能被3整除的数。1、绘制一个command，它的caption为“输出150-200的能被7但不能被3整除的数”2、command1的程序代码为Dim a As IntegerFor a = 150 To 200If a Mod 7 = 0 And a Mod 3 0 Then Print aNext a3、输入一个三位数，判断是否为水仙数。水仙数的特点：个位数、十位数和百位数的立方和等于该数自身的数。1、绘制一个command，它的caption为“判断是否为水仙数”Dim a As Singlea = InputBox（输入一个三位数，判断其是否为水仙数, 输入三位数）Dim

9、b, c, db = a Mod 10c = （a Mod 100） 10d = a 100If b 3 + c 3 + d 3 = a ThenPrint 是否实验四 循环结构1、掌握For语句的使用。2、掌握Do语句的各种形式的使用。3、掌握如何控制循环条件，防止死循环或不循环。1. 一个富翁试图与陌生人做一笔换钱生意，换钱规则为：陌生人每天给富翁10万元钱，直到满一个月（30天）；而富翁第一天给陌生人1分钱，第二天2分，第三天4分，富翁每天给陌生人的前是前一天的两倍，直到满一个月。分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少？1、绘制一个command，它的caption为“计算”，

10、程序代码为a = 100000s1 = a * 30陌生人给富人的钱是：; s1n = 0.01s2 = 0For k = 1 To 30s2 = s2 + nn = 2 * nNext k富人给陌生人的钱是： s24、掌握For语句的使用。5、掌握Do语句的各种形式的使用。6、掌握如何控制循环条件，防止死循环或不循环。2. 用计算机安排考试日程。期末某专业在周一至周六的六天要考a,b,c三门课，考试顺序为先考a,然后考b,最后考c,规定一天只能考一门。且c课只能安排在周五或周六考。编写程序安排考试日程，要求列出满足条件的所有方案。1、绘制一个command，它的caption设为“安排考试日程”，并且程序编写为：For i = 1 To 6 For j = 1 To 6 For l = 5