VB练习题(上机)含答案

1、第一部分1在窗体上添加一个命令按钮 (名称为Cmd1,标题为"输出平均值”)。程序运行后，单击命令按钮完成以下工作： 随机产生20个0到1000的整数，将其放入一个一维数组中 求出所有元素的平均值，并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!Ran domizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2请在名称为Form1的窗体上添加一个名称为Text1的文本

2、框和一个名称为 C1、标题为”转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。Private Sub C1_Click()Dim ch As Stri ng, ch1 As Stri ng, i% ch = Text1For i = 1 To Len( ch)If Asc(Mid(ch, i, 1) >= 65 And Asc(Mid(ch, i, 1) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)Elsechi = chi

3、 + UCase(Mid(ch, i, 1)End IfNext iTextl = Textl + vbCrLfTextl = Text1 + ch1End Sub3在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值”)。程序运行后，单击命令按钮完成以下工作： 随机产生30个01000的整数，将其放入一个一维数组中 求出其中的最大值，并显示在窗体上。Private Sub MyCmd1_Click()Dim a%(29), i%, max%Ran domizeFor i = 0 To 29a(i) = Int(Rnd * 1001)Next imax = a(0)For

4、 i = 1 To 29If a(i) > max The n max = a(i)Next iPrint maxEnd Sub4请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。Private Sub Comma nd1_Click()If Optio nl.Value = True The nTextl.FontName ="宋体”ElseText1.FontName ="隶书”End IfIf Check1.Value = 1 The nText1.

5、Fo ntUn derli ne = TrueElseText1.Fo ntUn derli ne = FalseEnd IfIf Check2.Value = 1 The nText1.F on tItalic = TrueElseText1.Fo ntItalic = FalseEnd IfEnd Sub5在名称为Form1的窗体上添加一个名称为Text1的文本框；添加两个标题分别为”对齐方式"、”字体"，名称分别为Fm1、Fm2的框架；在Fm1框架中添加三个单选按钮，标题分别为 左对齐”、”居中”、"右对齐”，名称分别为Opt1、Opt2、Opt3 ;在Fm

6、2框架中添加两个单选按 钮，标题分别为”宋体"、”黑体”，名称分别为Opt4、Opt5。要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的内容实现相应的操作(如图所示)。Private Sub Opt1_Click()If Opt1 Then Textl.Alignment = 0End SubPrivate Sub Opt2_Click()If Opt2 Then Text1.Alignment = 2End SubPrivate Sub Opt3_Click()If Opt3 Then Text1.Alignment = 1End Sub

7、Private Sub Opt4_Click()If Opt4 Then Text1.FontName ="宋体"End SubPrivate Sub Opt5_Click()If Opt5 Then Text1.FontName ="黑体"End Sub6请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数,然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。 请编写程序完成上述功能。Dim n%Private Sub Form_Load()En

8、d SubPrivate Sub Optio n1_Click()Dim i%n = Val(Text1)m = 1For i = 1 To nm = m * iNext iText2 = mEnd SubPrivate Sub Optio n2_Click()Dim i%m = 1For i = 1 To n + 2m = m * iNext iText2 = mEnd Sub7在窗体上添加两个文本框和三个标签，设置它们的属性，达到下图效果。程序运行时，在第一个文本框输入一串字符，在第二个文本框中输入一个字符，然后单击”统计"命令按钮,统计第二个文本框中字符(大小写被认为是不同的字

9、母)在第一个文本框中出现的次数，统计结果在标签Label3中显示。Private Sub Comma nd1_Click()Dim i%, n%For i = 1 To Len( Text1)If Mid(Text1, i, 1) = Text2 Then n = n + 1 Next iLabel3 = nEnd Sub5Private Sub Label3_Click()End Sub8在窗体上添加一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出200范围内能被3或7整除的所有整数的和，并显示在文本框中。程序运行界面如下图所示。Private Sub Comma nd1_Cl

10、ick()Dim i%, sum%For i = 0 To 200If i Mod 3 = 0 Or i Mod 7 = 0 The n sum = sum + iNext iTextl = sumEnd SubPrivate Sub Text1_Cha nge()End Sub9请设计如下图所示界面（文本框名称为：Txt1 ,按钮名称为：Cmdl）。程序运行时在文本框 中输入字符串，点击命令按钮，判断文本框中的字符串是否是回文，将判断结果显示在窗体上。所谓回文是指字符串正序和逆序的结果相同，如“aBCCBa是回文，“aBCcBa'不是回文。6#Private Sub Cmd1_Cli

11、ck()Dim ch As Stri ngFor i = Len( Txt1) To 1 Step -1 ch = ch + Mid(Txt1, i, 1)Next iIf Txt1 = ch Then是回文"不是回文"Print Txt1 + "ElsePrint Txt1 + "End IfEnd SubPrivate Sub Form_Load()End Sub10编程实现求Sum11 11(n为小于等于20的整数)。1!2！3！n!程序运行界面如下图所示。程序运行时，在文本框中输入n的值，点击“计算”命令按钮，将计算结果显示在标签上。Privat

12、e Sub Comma nd1_Click()Dim i%, m As Long, sum As Double n = Val(Text1)m = 1For i = 1 To nm = m * isum = sum + 1 / mNext iLabel2 = "sum=" & sumEnd SubPrivate Sub Form_Load()End Sub7第二部分1已知在同一个笼子里有总数 M只鸡和兔，鸡和兔的总脚数为 N只，编程求出鸡和兔各有多 少只。要求：程序运行后，在两个文本框中分别输入M和N的值，单击 计算”命令按钮，在两个标签框中分别输出鸡和兔的数量。程

13、序运行界面如下图。提示：NA 2XM的偶数。Private Sub Comma nd1_Click()m = Val(Text1)n = Val(Text2)If n Mod 2 <> 0 The nMsgBox ("脚数必须为偶数")Text2 =""Text2.SetFocusElsey = n / 2 - mIf y < 0 The nMsgBox ("脚数必须 >=只数的2倍，请重新输入")Text2 =""Text2.SetFocusElsex = m - yLabel3 = xL

14、abel4 = yEnd IfEnd IfEnd SubPrivate Sub Form_Load()End Sub2若一个3位正整数中各位数字的立方和等于该数字本身，则该数称之为水仙花数”。例如153是水仙花数，因为 153 = 1*1*1 + 5*5*5 + 3*3*3 。编程求出100999之间所有的 水仙花 数”。要求：程序运行后，单击 查找”按钮，在窗体上显示找到的 水仙花数”。程序运行 界面如下图。Private Sub Comma nd1_Click()Print"水仙花数：”;For i = 100 To 999X1 = i Mod 10 '分离出个位数X2

15、= (i Mod 100) 10 '分离出十位数x3 = i 100 '分离出百位数If i = X1 A 3 + X2 A 3 + x3 A 3 The n Print i;Next iEnd SubPrivate Sub Form_Load（）End Sub3编写程序，要求程序运行后，单击“开始”按钮，随机产生20个学生的成绩（0100的整数）,并在左边图片框中输出（一行5个成绩），并在右边图片框中输出平均分和及格的人数， 程序运行界面如下图。Private Sub Comma nd1_Click()Dim a(1 To 20) As Integer, i%, n%Pict

16、ure1.ClsPicture2.ClsFor i = 1 To 20a(i) = Int(Rnd * 101)Picturel.Pri nt a(i);If i Mod 5 = 0 Then Picturel.PrintIf a(i) >= 60 The n n = n + 1Sum = Sum + a(i)Next iPicture2.Print "平均分："Sum / 20Picture2.Print;"及格人数："nEnd SubPrivate Sub Picture2_Click()End Sub4编写程序实现：程序运行时，单击窗体则显示

17、如下图所示的图案。 ;* FqexIn叵|扌 *：車Private Sub Form_Click()For i = 1 To 5Print Tab(10 - i); String(2 * i - 1, "*")Next iFor i = 1 To 4Print Tab(5 + i); Strin g(9 - 2 * i, "*")Next iEnd Sub5编程实现：在窗体中有一个文本框，一个计时器和两个命令按钮。其功能是：程序的运行 时，单击 开始计数”按钮，就开始计数，每间隔1秒，文本框中的数增加1;单击 停止计数 按钮，则计数停止。Private

18、Sub Comma nd1_Click()Timer1.E nabled = TrueEnd SubPrivate Sub Comma nd2_Click()Timerl.E nabled = FalseEnd SubPrivate Sub Form_Load()End SubPrivate Sub Timer1_Timer()Text1 = Val(Text1) + 1End Sub'在属性窗口设置定时器的interval属性值为10006以下程序运行界面如下图所示。其功能如下：1) 单击"读数据"按钮(Command1)，可将随机产生100个三位正整数存到数组

19、a中；2) 单击"计算"按钮(Command2)，则根据从组合框 Combo1中选中的项目，对数组 a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Text1中。题目提供的程序代码不完整，请设计下图界面并录入代码，将程序中的？改为正确的内容。注意：不能修改程序的其他部分。题目提供的程序代码：Dim a(100) As In tegerPrivate Sub Comma nd1 Click()Dim n As In tegerFor n = 1 To 100 a( n)=l nt(R nd *?)Next nEnd SubPrivate Sub Comma nd2

20、 Click()Dim x& ,y& , z& ,i% , j% , k%For i = 1 To 100If a(i) Mod ? Thenx = x + a(i) : j = j + 1 Elsey = y + a(i)?End IfNext kx = Int(x / j + 0.5): y = Int(y / k +0.5)z = In t(x + y) / (j + k) + 0.5)Select Case Combo1.TextCase "所有偶数”Text1 = ?Case "所有奇数”Text1 = ?Case "所有数&qu

21、ot;Text1 = ?End SelectEnd Sub12#Dim a(1 To 100) As In teger#13Private Sub Command1_Click()Dim n As IntegerFor n = 1 To 100 a(n) = Int(Rnd * 900 + 100)Next nEnd SubPrivate Sub Command2_Click()Dim x&, y&, z&, i%, j%, k%For i = 1 To 100If a(i) Mod 2 = 0 Thenx = x + a(i): j = j + 1Elsey = y

22、+ a(i): k = k + 1End IfNext ix = Int(x / j + 0.5): y = Int(y / k + 0.5)z = Int(x + y) / (j + k) + 0.5)Select Case Combo1.TextCase "所有偶数 "Text1 = xCase "所有奇数 "Text1 = yCase "所有数 "Text1 = x + yEnd SelectEnd Sub'在 combo1 的属性窗口设置 list 属性，添加列表项Private Sub Label1_Click()E

23、nd Sub10个数。7 编写程序。要求：程序运行后，单击 “开始 ”按钮，则随机产生 20个2位数输出到窗体上， 同时对所产生的 20个数从小到大排序，将排序后的数再次输出在窗体上。程序运行界面如下图。扌|聽芮询数拥扌4列*rX T|.-S J362363 7791 178S3F O i O114 787S14 3881 5951211川1MIII呻111415363 7131 758623T3TS79818387SS9596Private Sub Comma nd1_Click()Dim a%(1 To 20), i%Print "排序前数据排列：”For i = 1 To 20

24、a(i) = Int(Rnd * 90 + 10)Print a(i);If i Mod 10 = 0 Then PrintNext iFor i = 1 To 20'冒泡排序For j = 1 To 20 - iIf a(j) > a(j + 1) The nt = a(j): a(j) = a(j + 1): a(j + 1) = tEnd IfNext jNext iPrint "排序后数据排列：”For i = 1 To 20Print a(i);If i Mod 10 = 0 Then PrintNext iEnd SubPrivate Sub Form_Lo

25、ad()End Sub8编写程序，程序的功能是：程序运行后，在文本框中输入一串字符，单击标题为”统计"的命令按钮,分别统计输入字符串中大写字母、小写字母以及其他字符的个数，并将统计结果分别在相应的标签框中显示。程序运行界面如下图。匚回区<4. FontPrivate Sub Comma nd1_Click()Dim i%, m%, n%, z%For i = 1 To Le n(Text1)If Asc(Mid(Text1, i, 1) >= 65 And Asc(Mid(Text1, i, 1) <= 90 Thenn = n + 1ElseIf Asc(Mid(

26、Text1, i, 1) >= 97 And Asc(Mid(Text1, i, 1) <= 122 Thenm = m + 1Elsez = z + 1End IfNext iLabel2 = nLabel4 = mLabel6 = zEnd SubEnd Sub9编写程序。程序功能是：程序运行后在文本框中输入一个正整数，单击判断”按钮，在标签框中输出该数是一个素数”或 该数不是一个素数”的信息。程序运行界面如下图。Private Sub Form_Load()15#Private Sub Comma nd1_Click()#Dim n% n = Val(Textl)For i

27、= 2 To n - 1If n Mod i = 0 Then Labell = n & " 不是素数":GoTo notmNext iLabel1 = n & ” 是素数"n otm:End SubPrivate Sub Form_Load()End Sub10编写程序，程序的功能是：程序运行后，单击开始”按钮，在窗体上显示出10个小于100的随机正整数，单击查找”按钮，则在窗体的下一行显示出这 10个数中的最大的数以及最大数在此数列中的位置号。程序运行界面如下图。Dim a%(1 To 10)Private Sub Comma nd1_Clic

28、k()Dim i%Ran domizeFor i = 1 To 10a(i) = Int(Rnd * 101)Print a(i);Next iEnd SubPrivate Sub Comma nd2_Click()Dim max%, imax%max = a(1): imax = 1For i = 2 To 10If a(i) > max The n max = a(i): imax = iNext iPrintPrintPrint " 最大数是："max; Spc(5);" 位置号是："imaxEnd SubPrivate Sub Form_L

29、oad()End Sub第三部分1在窗体Forml上添加两个文本框， 一个“转换”命令按钮和三个单选按钮 （名称分别为 Opt1、Opt2、 Opt3，标题分别为“大小写转换”、“全部大写”、“全部小写”）。程序功能：在上方文本框 Textl中输 入一字符串，选中“大小写转换”，单击“转换”按钮后，Text2中显示大小写相反的字符串； 选中“全 部大写”，单击转换按钮后，Text2中显示全部大写字符串， 选中“全部小写”，单击转换按钮后，Text2 中显示全部小写字符串 。程序运行界面如下图。鬲 Fnr»lJUUecBBddd犬小写转换-全器丈写aaCCbbDDD、全哥小写要求： 请

30、按要求完成窗体界面设计程序的部分代码已给出如下，但不完整。请录入下面代码,并将“？”处补充完整。Private Sub Comma nd1_Click()Dim n As Integer, k As Integer, ch As String, a As Stringch =""If Opt1.Value = True The nn = Len(?)For k = 1 To na = Mid$(Text1, k, ？)If a >= "a" A nd a <= "z" The nch = ch + UCase(a)Else

31、If a >= "A" A nd a <= "Z" The nch = ch + LCase(a)Elsech = ch + aEnd IfNext kEnd IfIf Opt2.Value = True The n ch = UCase(Text1)If Opt3.Value = True Then ch =？ (Text1)Text2 = chEnd Sub答案 Private Sub Command1_Click()Dim n As Integer, k As Integer, ch As String, a As Stringch =

32、""If Optl.Value = True Thenn = Len (Textl)For k = 1 To na = Mid$(Text1, k, 1)If a >= "a" A nd a <= "z" The nch = ch + UCase(a)ElseIf a >= "A" A nd a <= "Z" The nch = ch + LCase(a)Elsech = ch + aEnd IfNext kEnd IfIf Opt2.Value = True Then

33、ch = UCase(Textl)If Opt3.Value = True Then ch = LCase(Textl)Text2 = chEnd SubPrivate Sub Form_Load()End Sub2编写程序，演示列表框控件的基本操作。在窗体上建立两个列表框，两个命令按钮。程序运行后，在 左边列表框中选中所需要的项目，单击“添加”按钮，则把所选中的项目移到右边列表框中。如果单击“删除”按钮，则删除左边列表框中选中的项目。程序运行时的窗体界面如图。fa jiii imi biiu auia美旳LiiPIT気 ForslPrivate Sub Comma nd1_Click()Li

34、st2.Addltem Listl.TextListl.Removeltem Listl.ListIndex End SubPrivate Sub Comma nd2_Click()Listl.AddItem List2.TextList2.RemoveItem List2.List In dexEnd SubPrivate Sub Form_Load()Listl.Addltem "美的"Listl.Addltem "海尔"Listl.Addltem "奥克斯"Listl.Addltem "春兰"Listl.Ad

35、dltem "长虹"End Sub3编程实现：单击“输出最大值”按钮，随机产生8个大于或等于10小于100的整数，显示在窗体的第一行，然后在窗体第二行显示其中的最大值。程序运行时的效果如图。Private Sub Comma nd1_Click() Dim a%(7), i%, max%For i = 0 To 7a(i) = lnt(Rnd * 90 + 10) Print a(i);Next imax = a(0)For i = 1 To 7lf a(i) > max The n max = a(i)Next iPrintPrint maxEnd SubPriva

36、te Sub Form_Load()End Sub4在Form1的窗体上有一个名称为 Text1的文本框和两个命令按钮，命令钮标题分别为“显示A”和"显示B”。要求程序运行后，如单击“显示A”命令按钮，则弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量"A"构成的字符串；如单击“显示B”命令按钮，也弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量"B"构成的字符串。程序运行时的窗体界面如图所示。Private Sub Comma nd1_Click() n = Val(lnputBox("请输入显示

37、个数") Textl = String(n, "A")End SubPrivate Sub Comma nd2_Click()n = Val(lnputBox("请输入显示个数") Text1 = String(n, "B")End SubPrivate Sub Form_Load()End Sub5已知十个数为：67, 45, 34, 28, 49, 37, 87, 76, 27, 83。编程实现：按“开始”按钮，则在窗体的第一行 显示这十个数，在窗体的第二行按从大到小的顺序显示这十个数。Private Sub Comma

38、 nd1_Click()Dim a(), i%a = Array(67, 45, 34, 28, 49, 37, 87, 76, 27, 83)n = UBou nd(a)For i = 0 To nPrint a(i);Next iFor i = 0 To n - 1Forj = 0 To n - 1 - iIf a(j) < a(j + 1) The n t = a(j): a(j) = a(j + 1): a(j + 1) = t Next jNext iPrintFor i = 0 To nPrint a(i);Next iEnd SubPrivate Sub Form_Load

39、()End Sub6界面设计如下图所示，单击“确定”按钮，在文本框中显示一句话，说明用户选择的综合情况。1' X我是女学生，爱好：体育s摄歌厂褊是性别臭份爱好厂男泾女 用学生广教师 停体育厂电影戟摄影Private Sub Comma nd1_Click()If Option1.Value = True Then xb = Option1.Caption Else xb = Option2.CaptionIf Option3.Value = True Then sf = Option3.Caption Else sf = Option4.CaptionIf Check1.Value =

40、 1Thenah = ah+ Check1.Caption+"If Check2.Value = 1Thenah = ah+ Check2.Caption+"If Check3.Value = 1Thenah = ah+ Check3.Caption+"Text1 ="我是"+ xb + sf + ",爱好:"+ ahEnd SubPrivate Sub Form_Load()End Sub在窗7编程实现：在窗体上的4个文本框中各输入一个整数作为各数组元素的值，然后单击命令按钮,体上显示出数组元素中的最大值。Private

41、Sub Comma nd1_Click()Dim a%(3), i%, max%Fori = 0 To 3a(i) = Val(Text1(i)Next imax = a(0)Fori = 1 To 3If a(i) > max The n max = a(i)Next iPrint maxEnd SubPrivate Sub Form_Load()End Sub8编程实现：在窗体的两个文本框中分别输入一个正整数，单击“求最大公约数”按钮后，在窗体第 行显示它们的最大公约数。程序运行界面如下图所示。Private Sub Comma nd1_Click() Dim m%, n%m = V

42、al(Text1)n = Val(Text2)If n > m The n t = n: n = m: m = t r = m Mod nDo While r <> 0n = rr = m Mod nLoopPrint Text1;"和"Text2;"最大公约数是："；nEnd SubPrivate Sub Form_Load()End Sub9编程实现：在窗体的左上角有一个图像框，通过属性窗口任选一张图片装入到图像框的Picture属性中，每按一次“放大”按钮时图像放大 10%，同理，每按一次“缩小”按钮时图像缩小10%，放大缩小时均

43、需保持图像的纵横比不变，按“结束程序”按钮则结束程序。程序运行界面如下图。Private Sub Comma nd1_Click()Imagel.Stretch = True lmage1.Width = Image1.Width * 1.1Imagel.Height = Image1.Height * 1.1End SubPrivate Sub Comma nd2_Click()Image1.Stretch = TrueImage1.Width = Image1.Width * 0.9Image1.Height = Image1.Height * 0.9End SubPrivate Sub

44、Comma nd3_Click()EndEnd SubPrivate Sub Form_Load()End Sub10编程实现：在窗体上建立一个文本框(内容如下图所示)，另外建立菜单，一级菜单标题分别为“背景颜色”，子菜单标题分别为“白色”、“红色”、“绿色”、“蓝色”。程序运行时，如果单击“白色”子菜 单，则将文本框的背景色设置为白色；如果单击“红色”子菜单，则将文本框的背景色设置为红色；如 果单击“绿色”子菜单，则将文本框的背景色设置为绿色；如果单击“蓝色”子菜单，则将文本框的背 景色设置为蓝色。程序运行界面如下图。r轨 For&l回背最碱色|白色 虹色蓝色重庆科技学院是一所全日制

45、公办普通本 科院校，以工为主，以石油.冶金.机 电为特色沪涵盖理工.经.管.文, 蕴藏着勃勃生机与较大发展潜力的高等 学校.Private Sub blue_Click()Textl.BackColor = vbBlueEnd SubPrivate Sub green_Click()Text1.BackColor = vbGreenEnd SubPrivate Sub red_Click()Text1.BackColor = vbRedEnd SubPrivate Sub Text1_Cha nge()End SubPrivate Sub white_Click()Text1.BackColo

46、r = vbWhiteEnd Sub24第四部分,x y,（x 0, y 0）1 编程计算分段函数 z(TextBox)输入 x,y 的，以°,y0）的值。要求用文本框0,（其他情况）值，单击标题为“计算”命令按钮后，利用标签控件上显示z的值。Private Sub Comma nd1_Click()x = Val(Text1)y = Val(Text2)If x > 0 And y > 0 The nz = Sqr(x + y)Elself x < 0 And y < 0 The nz = Sqr(Abs(x - y)Elsez = 0End IfLabel

47、3 = zEnd SubPrivate Sub Form_Load()End Sub2、在窗体添加一个命令按钮（标题为“开始”）,单击该按钮，随机产生10个三位数（100999）,在窗体的第一行这10个三位数，在窗体的第二行输出其中的奇数，在窗体的第三行输出其中的偶数。Private Sub Comma nd1_Click()Dim a%(1 To 10), i%Fori = 1 To 10a(i) = Int(Rnd * 900 + 100)'随机产生 10 个 100 到 999 的整数Print a(i);Next iPrintFori = 1 To 10'输出奇数

48、9;输出偶数If a(i) Mod 2 <> 0 Then Print a(i);Next iPrintFori = 1 To 10If a(i) Mod 2 = 0 Then Print a(i);Next iEnd SubPrivate Sub Form_Load()End Sub2 xz2, (x10, z 0)xy一3.编程计算分段函数'z,(x,)的值。要求用InputBox函数输 x z,(30x10, x z)入x, z的值，单击命令按钮(标题为“计算”)后，利用图形框(PictureBox )输出计算结果y。Private Sub Comma nd1_Cli

49、ck()Picture1.Clsx = Val(InputBox("输入 x 的值")z = Val(InputBox("输入 z 的值")If x >= -10 And z < 0 The n y = x A 2 + z A 2If x < -30 And z > 0 The n y = x / zIf x >= -30 And x < -10 And x > z The n y = Sqr(x - z)Picture1.Pri nt yEnd SubPrivate Sub Form_Load()End Sub

50、V x2 y2,(xy 1)z0,(x0)4 编程计算分段函数1 1的值。要求用InputBox函数输入x,y的X,(x1)值，单击命令按钮（标题为“计算”）后，用文本框中输出计算结果z。5 编程实现求 Sum=1 + （ 1+2） + （ 1+2+3） + （ 1+2+3+4） + +（1+2+3+4+ n）。程序运行时，在文本框中输入n的值，点击“计算”命令按钮，将计算的结果显示在标签上。程序运行界面如下图。Private Sub Comma nd1_Click()Dim n%, sum%, i%, j%n = Val(Text1)For i = 1 To nForj = 1 To isum = sum + jNext jNext iLabel2 = "sum=" & sumEnd SubPrivate Sub Form_Load()End Sub6编写一个程序，其功能为输入货物的数量及单价，求总价，并输出。窗体上的两个标签的标题分别为”货物的数量（个）:"和"货物的单价（元）:",在两个文本框中输入相应的数据，当按“总价”按钮时，在右下方的图形框中显示原价和折扣价。当原价达到2000元以上时，按8折计算折扣价；当原价达到1