13-14-2VB期末复习2.docxVIP

按题号保存下列各题。每题涉及的知识点请理解透彻。要求：设计一个显示信息的窗口(见图),要求在文本框中输入文本信息,单击按钮,文本信息显示在窗体上. ?要求：编一程序如图所示，其中文本框的背景色为黄色，前景色为红色，单击“放大”按钮，文本框显示的文字放大三倍；单击“加粗”按钮，文本框显示的文字加粗；单击“斜体”按钮，文本框文字加粗；单击“还原”按钮，文本框中的文本格式恢复到初始状态。要求编写一程序，程序界面如图所示，输入半径的值，点击“计算”按钮，计算球的体积和面积，并在文本框中显示。设计一个调色板程序，建立三个水平滚动条（HScroll1、HScroll2、HScroll3）作为红、绿、蓝三种基本颜色的输入工具，合成的颜色显示在的标签（Label1）中。Private Sub HScroll1_Change()Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll2_Change()Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll3_Change()Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End Sub设计一程序，使用InputBox输入三个整数，按照从小到大的顺序在窗体上输出。Dim a%(1 To 5)Private Sub Command1_Click()Dim i%Picture1.Print 输入的数是：;For i = 1 To 5a(i) = Val(InputBox(请输入五个整数))Picture1.Print a(i);Next iPicture1.PrintEnd SubPrivate Sub Command2_Click()Dim i%, j%For i = 1 To 4For j = i + 1 To 5If a(i) a(j) Thent = a(i)a(i) = a(j)a(j) = tEnd IfNext jNext iPicture1.Print 排序后：;For i = 1 To 5Picture1.Print a(i);Next iEnd Sub随机产生20个不重复的两位正整数，并将他们按从小到大的顺序排列起来，在窗体上直接显示排列前和排列后的数。Option Base 1Const length = 20Dim a(length) As Integer, i%, temp%Private Sub Command1_Click()Randomize TimerFor i = 1 To 20a(i) = Int(Rnd() * 90 + 10) For j = 1 To i - 1 If a(i) = a(j) Then i = i - 1 Exit For End If Next jNext iFor i = 1 To 20 Picture1.Print a(i);If i Mod 10 = 0 ThenPicture1.PrintEnd IfNext iEnd SubPrivate Sub Command2_Click()Picture1.PrintFor i = 1 To 10temp = a(i)a(i) = a(21 - i)a(21 - i) = tempNext iFor i = 1 To 10 Picture1.Print a(i); Next i Picture1.Print For i = 11 To 20 Picture1.Print a(i);Next iEnd Sub使用InputBox输入一正整数，程序判断是否是素数，用MsgBox输出判断结果，如图所示。Private Sub Form_Click()Dim a!, b!a = Val(InputBox(dsad))For b = 2 To a - 1If a Mod b = 0 ThenMsgBox (bushisushu)Exit For ElseMsgBox (shi)End IfNext bEnd Sub随机产生10个任意的两位正整数存放在一维数组中，求数组的最大值、平均值、能实现将数据按升序排列，并且使用InputBox函数插入一个新数据使数组仍然升序排列，结果显示在图片框中，程序运行运行情况如图示Option Base 1Const length = 10Dim data(length) As Integ