期终VB上机练习题1

VB上机考试部分模拟试题 土木105、106班VB上机考试练习题 1、​ 新建一个工程，完成“健康称”程序的设计。具体 要求 对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗 如下： 1．窗体的标题为“健康称”，固定边框。 2．窗体的左边有两个标签，，Label1的标题为“身高”、Label2的标题为“体重”；它们的旁边分别有两个文本框，Text1用于输入身高、Text2用于输入体重；在文本框的右边有两个标签，Label3的标题为“cm”、Label4的标题为“kg”。 3．将两个文本框文字对齐方式均设置为右对齐，最多接受3个字符。 4．两个文本框均不接受非数字键。 5．单击“健康状况”按钮（Command1），根据计算公式将相应的提示信息显示在标签Label5中。计算公式为： 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 体重=身高-105；体重高于标准体重*1.1为偏胖，提示“偏胖，注意节食”；体重低于标准体重*0.9为偏瘦，提示“偏瘦，增加营养”；其他为正常，提示“正常，继续保持”。 Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer x = Text1.Text: y = Text2.Text: z = x - 105 If y > 1.1 * z Then Label5.Caption = "偏胖" Else If y < 0.9 * z Then Label5.Caption = "偏瘦" Else Label5.Caption = "正常" End If End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 Text1.SetFocus End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 Text2.SetFocus End Sub 2、​ 新建一个工程，完成“判断质数”应用程序的设计。具体要求如下： 1．按照下图所示在窗体上放置按钮和控件。 2．在"请输入"文本框中输入一个数字后,单击判断,可在"结果为"显示判断结果。 3．若输入的不是数字,则弹出消息框,提示信息是"输入的不是数字,无法计算"。 Private Sub Command1_Click() Dim x As Integer, i As Integer x = Text1.Text If x = 2 Or r = 3 Then Label2.Caption = x & "是质数" Else For i = 2 To Sqr(x) If x Mod i = 0 Then Exit For Next If i > Sqr(x) ？Then Label2.Caption = x & "是质数" Else Label2.Caption = x & "不是质数" End If End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "请输入数字！" End If End Sub 3、​ 新建一个工程，完成“计算平均成绩”应用程序的设计。具体要求如下： 1．按照下图所示在窗体上放置按钮和控件。 2．在输入或修改单科成绩的同时计算平均分,即在"高数","英语"和"计算机"文本框内容发生改变时,就要立即重新计算平均分,并将计算结果在平均成绩文本框中显示。 3．“平均成绩”文本框不允许编辑，即不能手工修改。 4．各单科成绩框中只能输入数字，不能输入字母或汉字，否则不显示字母并发出错误提示音。 Private Sub Form_Load() Text2.Locked = True End Sub Private Sub Text1_Change(Index As Integer) Text2 = (Val(Text1(0)) + Val(Text1(1)) + Val(Text1(2))) / 3 End Sub Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 Beep End If End Sub 4、​  5、​ 新建一个工程，完成“收款计算”程序的设计。具体要求如下： 1．按照下图所示在窗体上放置按钮和控件。 2．窗体上有三个文本框，上面两个分别用于输入商品单价和商品数量，单击“计算”，将应付款显示在下面一个文本框中。 3．最下面一个文本框不能直接输入。 4．单击“清空”按钮，三个文本框内容被清空，同时第一个文本框获得焦点。 Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus End Sub Private Sub Command2_Click() Dim x As Single, y As Integer x = Text1.Text y = Text2.Text Text3.Text = x * y End Sub Private Sub Form_Load() Text3.Locked = True End Sub 6、​ 新建一个工程，完成“编辑”程序的设计。具体要求如下： 1．窗体的标题为“编辑”。 2．窗体中有以下控件：一个文本框、四个命令按钮。 3．完成以下功能：文本框实现文本编辑功能，单击按钮实现相应功能。 Private Sub Command1_Click() Clipboard.SetText (Text1.SelText) End Sub Private Sub Command2_Click() Clipboard.SetText (Text1.SelText) Text1.SelText = "" End Sub Private Sub Command3_Click() Text1.SelText = Clipboard.GetText End Sub Private Sub Command4_Click() Text1.SelText = "" End Sub 7、​ 新建一个工程，完成“密码检验”程序的设计。具体要求如下： 1．窗体的标题为“密码检验”，固定边框。 2．窗体上有一个标签Label1，标题为“输入密码后按回车提示：密码1234567”。 3．标签Label1旁边有一个文本框Text1，用于输入密码。文本框中输入的字符显示为*，并且最多可以接受7个字符。 4．窗体的下半部有一个标签控件Label2，用来显示密码输入后的提示信息。它的文字对齐方式为居中对齐，文字颜色为红色，Font设置为：宋体、常规、三号；标签的大小随字体自动调整，并设置为不可见。? 5．当在文本框中输入密码“1234567”，并按回车后，标签Label2显示为“欢迎光临！”；如果输入的密码与“1234567”不吻合，标签Label2显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签Label2显示为“非法用户，请退出程序！”，文本框就不能使用了。 Private Sub Text1_KeyPress(KeyAscii As Integer) Static n As Integer If KeyAscii = 13 Then If Text1.Text = 1234567 Then Label2.Caption = "欢迎光临！" Else n = n + 1 If n < 2 Then Label2.Caption = "密码不符，请再输入一遍！" Text1.Text = "" Text1.SetFocus Else Label2.Caption = "非法用户，请退出程序！" Text1.Enabled = False Text1.Text = "" End If End If End If End Sub static 是静态变量,一般用在过程中 8、​ 新建一个工程，完成应用程序的设计。具体要求如下： 1．按照下图所示在窗体上放置控件。建立一个文本框和两个命令按钮。 2．在文本框中输入内容，单击“开始”后，把文本框中的字符按从小到大排列输出在窗体上，按结束退出应用程序。 ????????????????????? Private Sub Command1_Click() Dim n As String, m As Integer, t As String n = Text1.Text m = Len(n) ReDim a(m) As String For i = 1 To m a(i) = Mid(n, i, 1) Next i For i = 1 To m - 1 k = i For j = i + 1 To m If a(j) < a(k) Then k = j Next j t = a(i): a(i) = a(k): a(k) = t Next i Text1.Text = "" For i = 1 To m Text1.Text = Text1.Text + a(i) Next i End Sub Private Sub Command2_Click() End End Sub 9、​  10、​ 新建一个工程，完成“替换”程序的设计。具体要求如下： 1．窗体的标题为“替换”。 2．窗体中有以下控件：一个文本框可以多行编辑，两个文本框，两个标签框，一个命令按钮。 3．完成以下功能：输入查找内容，把编辑框中所有与查找内容一样的部分替换成另外一个内容。单击“替换”按钮执行。 11、​ 新建一个工程，完成应用程序的设计。具体要求如下： 1．按照下图所示在窗体上放置按钮和控件。 2．4个单选按钮，分别用于显示星期、年份、月份和日期。 3．一个文本框，选中单选按钮时，显示相应的信息。 4．一个命令按钮，单击该按钮时，退出应用程序。 12、​ 新建一个工程，完成“字体修饰” 程序的设计。具体要求如下： 1．​ 按照下图所示在窗体上放置按钮和控件。窗体的标题为“字体修饰”。 2．​ 框架Frame1中有一个复选框数组，可以选择粗体，斜体对标签中的文字进行修饰。 3．​ 框架Frame2中有一个单选钮框数组，可以选择宋体或楷体对标签中的文字进行修饰。 4．​ 标签Label1的文字内容为“Visual Basic程序设计“，宋体，常规，三号；文字对齐方式为居中。 Private Sub Check1_Click(Index As Integer) If Check1(0).Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End If If Check1(1).Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End If End Sub 13、​ 新建一个工程，完成“点餐”程序的设计。具体要求如下： 1．窗体的标题为“点餐”。 2．窗体中有以下控件：一个框架控件作为容器，内有三个复选框数组、对应三个文本框数组、三个标签框、一个命令按钮。 3．要求文本框只能接受数字键，并且只有选取了相应的套餐后才可以进行输入；如果没有选取大套餐，那么文本框不能编辑，并清空。 4．完成以下功能：选择所需套餐种类及份数，单击确定按钮后计算所需的钱，并用消息框显示。 Private Sub Check1_Click(Index As Integer) If Check1(0).Value = 1 Then Text1(0).Locked = False If Check1(1).Value = 1 Then Text1(1).Locked = False If Check1(2).Value = 1 Then Text1(2).Locked = False End Sub Private Sub Command1_Click() Dim X As Integer X = 18 * Val(Text1(0).Text) + 23 * Val(Text1(1).Text) + 28 * Val(Text1(2).Text) MsgBox ("一共是" & X & "元") End Sub 14、​ 新建一个工程，完成“改变字号”程序的设计。具体要求如下： 1．窗体的标题为“改变字号”。 2．窗体中有以下控件：一个标签框、一个文本框、一个水平滚动条。 3．完成以下功能：根据设定字号改变标签框内显示文字的字体。要求水平滚动条与文本框相关联。 Private Sub Form_Load() HScroll1.Max = 100 HScroll1.Min = 0 End Sub Private Sub HScroll1_Change() Text1.Text = HScroll1.Value Label1.FontSize = HScroll1.Value End Sub Private Sub HScroll1_Scroll() Call HScroll1_Change End Sub Private Sub Text1_Change() Dim i As Integer i = Val(Text1.Text) If i >= 0 And i <= 100 Then Label1.FontSize = i HScroll1.Value = i End If End Sub 15、​  16、​ 新建一个工程，完成应用程序的设计。具体要求如下： 1．按照下图所示在窗体上放置按钮和控件。 2．在窗体上放置一个水平滚动条、一个标签框和一个命令按钮。 3．单击滚动条左右箭头时，标签上的字可以左右移动，标签移动范围等于滚动条的范围。 Private Sub Command1_Click() End End Sub Private Sub Form_Load() HScroll1.Min = Label1.Left HScroll1.Max = Form1.ScaleWidth - Label1.Width - Label1.Left HScroll1.Value = Label1.Left HScroll1.SmallChange = 50 HScroll1.LargeChange = 100 End Sub Private Sub HScroll1_Change() Label1.Left = HScroll1.Value End Sub Private Sub HScroll1_Scroll() HScroll1_Change End Sub 17、​ 新建一个工程，完成“调色板”程序的设计具体要求如下： 1．窗体的标题为“调色板”，固定边框。 2．窗体上有一个“三原色配比与预览”的框架（Frame1），框架内从上到下有三个水平滚动条构成的控件数组（HSCROLL（0）、HSCROLL（1）、HSCROLL（2），滚动条的取值范围均为0-255；并相应地用标签控件数组（LABEL1（0）、LABEL（1）、LABEL1（2）标注“红、绿”、兰“；在框架内的右边还有一个长方形形状控件（SHAPE1），填充色为黑色、填充样式为实心。 3．在窗体的底部引入标签LABEL2，并在属性窗口中将它的标题设为“坚持就是胜利！“、字体设为”楷体GB-2312“，大小为”二号“，标签格式设置为在窗体中水平居中对齐，标签的大小随显示内容自动调整。 4．拖动三个滚动条的滚动框来选择红、绿、兰三原色的配色取值，并通过形状控件的填充色动态显示调色效果。 5．单击“应用“按钮（COMMAND1），将调配好的颜色应用为标签LABEL2的文字颜色。 Private Sub Command1_Click() Label2.ForeColor = Shape1.FillColor End Sub Private Sub HScroll1_Change(Index As Integer) HScroll1(0).Max = 255 HScroll1(0).Min = 0 HScroll1(1).Max = 255 HScroll1(1).Min = 0 HScroll1(2).Max = 255 HScroll1(2).Min = 0 Shape1.FillColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value) End Sub Private Sub HScroll1_Scroll(Index As Integer) Call HScroll1_Change(Index) End Sub 18、​  19、​ 新建一个工程，完成“字体设置”程序的设计。具体要求如下： 1．窗体的标题为“字体设置”，固定边框。 2．窗体的上边有一个文本框Text1，文字内容为“心想事成”。 3．文本框下面的左边有一个标签Label1，标题为“字体：”，标签下面是一个简单组合框Combo1，有三项内容，分别是“宋体、黑体、楷体_GB2312”，单击时对文本框的字体进行设置。 4．文本框下面的右边有一个标签Label2，标题为“大小：”，标签下面是一个简单组合框Combo2，有八项内容，分别是“8、9、10、11、12、14、16、18、20、22、24、26、28、36、48、60、72”，单击时对文本框的文字大小进行设置。 Private Sub Combo1_Click() Text1.FontName = Combo1.Text End Sub Private Sub Combo2_Click() Text1.FontSize = Combo2.Text End Sub 20、​ 新建一个工程，完成“格式设置”程序的设计。具体要求如下： 1．窗体的标题为“格式设置”，固定边框。 2．窗体的上边有一个文本框Text1，文字内容为“心想事成”，Font：宋体、常规、三号。 3．文本框下面的左边有一个标签Label1，标题为“对齐：”，标签下面是一个简单组合框Combo1，有三项内容，分别是“左对齐、居中、右对齐”，单击时对文本框的对齐方式进行设置。 4．单文本框下面的右边有一个标签Label2，标题为“字型：”。标签下面是一个简单组合框Combo2，有四项内容，分别是“常规、斜体、粗体、粗斜体”，单击时对文本框的字型进行设置。 Private Sub Combo1_Click() Select Case Combo1.Text Case "左对齐" Text1.Alignment = 0 Case "右对齐" Text1.Alignment = 1 Case "居中" Text1.Alignment = 2 End Select End Sub Private Sub Combo2_Click() Select Case Combo2.Text Case "常规" Text1.FontBold = False Text1.FontItalic = False Case "斜体" Text1.FontBold = False Text1.FontItalic = True Case "粗体" Text1.FontBold = True Text1.FontItalic = False Case "粗斜体" Text1.FontBold = True Text1.FontItalic = True End Select End Sub 21、​ 新建一个工程，完成“添加与删除”程序的设计。具体要求如下： 1．窗体的标题为“添加与删除”，固定边框。 2．在窗体中引入一个文本框Text1，再在文本框的下面引入一个列表框List1，列表框内容中有四项，分别为“Word、Excel、PowerPoint、Outlook”。 3．单击“添加”按钮（Command1），将文本框中的内容回到列表框中的第一项，如果文本框中没有内容，则给出提示“没有内容，不予添加”。 4．单击“删除”按钮（Command2），将选中表项删除，如果没有选择要删除的表项，则给出提示“请选择输出的项目”。 Private Sub Command1_Click() If Len(Text1.Text) = 0 Then MsgBox ("没有内容，不予添加") Else List1.AddItem Text1.Text, 0 Text1.Text = "" End If End Sub Private Sub Command2_Click() If List1.ListIndex = -1 Then MsgBox ("请选择输出的项目") Else List1.RemoveItem List1.ListIndex End If End Sub 22、​ 新建一个工程，完成“偶数迁移”程序的设计。具体要求如下： 1．窗体的标题为“偶数迁移”。 2．窗体中有以下控件：两个列表框控件、两个标签框控件，两个命令按钮控件。 3．完成以下功能：单击“产生”按钮，实现随机产生10个两位正整数，在左边列表框内显示；单击“—>”按钮，把左边列表框中的偶数全部移到右边列表框中。 Private Sub Command1_Click() Dim i As Integer List1.Clear List2.Clear For i = 1 To 10 List1.AddItem (Int(Rnd * 90 + 10)) Next i End Sub Private Sub Command2_Click() Dim i As Integer Do While i < List1.ListCount If List1.List(i) Mod 2 = 0 Then List2.AddItem List1.List(i) List1.RemoveItem i Else i = i + 1 End If Loop End Sub Private Sub Form_Load() List1.Clear List2.Clear End Sub 23、​ 新建一个工程，完成应用程序的设计。具体要求如下： 1．按照下图所示在窗体上放置按钮和控件。 2．在两个列表框控件的list中输入一些内容。 3．当单击“<”按钮时，把list2中选中的一项放到list1中，并且在list2中删除该项。 4．当单击“<<”按钮时，把list2中所有的项放到list1中，并且清空list2。 5．当单击“>”按钮时，把list1中选中的一项放到list2中，并且在list1中删除该项。 6．当单击“>>”按钮时，把list1中所有的项放到list2中，并且清空list1。 7．当单击“结束”按钮时，退出应用程序。 Private Sub Command1_Click() Dim i As Integer i = 0 Do Until i >= List1.ListCount If List1.Selected(i) = True Then List2.AddItem List1.List(i) List1.RemoveItem i Else i = i + 1 End If Loop End Sub Private Sub Command2_Click() Do Until List1.ListCount = 0 List2.AddItem List1.List(0) List1.RemoveItem 0 Loop End Sub Private Sub Command3_Click() Do Until List2.ListCount = 0 List1.AddItem List2.List(0) List2.RemoveItem 0 Loop End Sub Private Sub Command4_Click() Dim i As Integer i = 0 Do Until i >= List2.ListCount If List2.Selected(i) = True Then List1.AddItem List2.List(i) List2.RemoveItem i Else i = i + 1 End If Loop End Sub Private Sub Command5_Click() End End Sub 24、​ 新建一个工程，完成“电子钟”程序的设计。具体要求如下： 1．窗体的标题为“电子钟”，固定边框。 2．设计两个定时器，Timer1用于显示系统时间，时间间隔为1秒；Timer2用于判断闹钟时间，时间间隔为0.5秒，Timer2设置为不可使用。 3．窗体的上半部是标签Label1，用于显示时间，设置Label1的Font为：宋体、粗体、二号，背景白色，文字居中对齐，固定边框。 4．窗体的下半部有一个标签Label2，标题为“闹钟时间：”；Label2的右边是文本框Text1。 5．在文本框中输入闹钟时间并按回车后，启动判断闹钟时间的定时器Timer2，如果Label1显示的时间超过闹钟时间，则标签Label1的背景色按红白两色交替变换。 Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 1000 Label1.Alignment = 2 Alignment =2 表居中 Label1.BackColor = vbWhite Timer2.Enabled = False Timer2.Interval = 500 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Timer2.Enabled = True Text1.Enabled = False End If End Sub Private Sub Timer1_Timer() Label1.Caption = Time End Sub Private Sub Timer2_Timer() If Text1.Text <= Label1.Caption Then If Label1.BackColor = vbWhite Then Label1.BackColor = vbRed Else Label1.BackColor = vbWhite End If End If End Sub 25、​ 新建一个工程，完成“倒计时”程序的设计。具体要求如下： 1．窗体的标题为“倒计时”，固定边框。 2．窗体的左边有一个框架Frame1，标题为“选择时间”；框架内有一组单选按钮控件数组，从上到下为Option1（0）、Option1（1）、Option1（2），标题分别为“1分钟”、“5分钟” 、“10分钟”。默认选择为1分钟。 3．窗体的右边有一个标签Label1，用于显示倒计时的剩余的时间。标签Label1设置为：宋体、粗体、三号，文字居中对齐，固定边框。 4．单击“开始计时”按钮（Command1）后，程序根据选择的时间开始倒计时，同时命令按钮变为不可使用，框架也不可使用。 5．当剩余时间到0分0秒时，改为显示“时间到！”。 6．定时器Timer1的时间间隔为1秒。 Dim x As Integer Private Sub Command1_Click() Timer1.Enabled = True Command1.Enabled = False End Sub Private Sub Form_Load() Label1.Alignment = 2 Timer1.Enabled = False x = 60 Timer1.Interval = 1000 End Sub Private Sub Option1_Click(Index As Integer) Select Case Index Case 0 x = 1 * 60 Case 1 x = 5 * 60 Case 2 x = 10 * 60 End Select End Sub Private Sub Timer1_Timer() If x = 0 Then Label1.Caption = "时间到" Timer1.Enabled = False Command1.Enabled = True Frame1.Enabled = True Else x = x - 1 Label1.Caption = Str(x \ 60) + "分" + Str(x Mod 60) + "秒" Command1.Enabled = False Frame1.Enabled = False End If End Sub 26、​ 新建一个工程，完成“字幕闪烁”程序的设计。具体要求如下： 1．窗体的标题为“字幕闪烁”，固定边框。 2．在属性窗口中将标签（Label1）的标题设为“祝您考试成功”，字体设置为“宋体”、字形为“粗体”、大小为“二号”、文字颜色为“红色”，格式设置为在窗体中水平居中对齐。 3．单击“开始”按钮（Command1），标签文字在定时器控制下自动交替以红兰两种颜色显示。同时“开始”按钮变为“停止”按钮。 4．单击“停止”按钮，标签文字停止闪烁，同时“停止”按钮变为“开始”按钮。 5．定时器（Timer1）的时间间隔为0.3秒。 Private Sub Command1_Click() If Command1.Caption = "开始" Then Command1.Caption = "结束" Timer1.Enabled = True Else Command1.Caption = "开始" Timer1.Enabled = False End If End Sub Private Sub Form_Load() Label1.Alignment = 2 Timer1.Interval = 300 Timer1.Enabled = False Label1.ForeColor = vbRed End Sub Private Sub Timer1_Timer() If Label1.ForeColor = vbRed Then Label1.ForeColor = vbBlue Else Label1.ForeColor = vbRed End If End Sub 27、​ 新建一个工程，完成“字幕滚动”程序的设计。将工程文件以Design.vbp窗体文件以Design.frm保存到考生目录下。具体要求如下： 1．窗体的标题为“字幕滚动”，固定边框。 2．在属性窗口中将标签（Label1）的标题设为“祝您考试成功”，字体设置为“宋体”、字形为“粗体”、大小为“二号”、文字颜色为“红色”。 3．单击“开始”按钮，标签文字在定时器控制下自动地从左向右移动，移动速度为每个时间间隔右移100缇，当标签移动到窗体外时，再从窗体的左边进入。同时“开始”按钮变为“停止”按钮。 4．单击“停止”按钮，标签“祝您考试成功”文字停止滚动。同时“停止”按钮变为“开始”按钮。 5．定时器（Timer1）的时间间隔为0.1秒。 Private Sub Command1_Click() If Command1.Caption = "开始" Then Timer1.Enabled = True Command1.Caption = "停止" Else Timer1.Enabled = False Command1.Caption = "开始" End If End Sub Private Sub Form_Load() Label1.ForeColor = vbRed Timer1.Enabled = False Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() If Label1.Left >= Form1.Width Then Label1.Left = -Label1.Width Else Label1.Left = Label1.Left + 100 End If End Sub 28、​ 新建一个工程，完成“字幕放大”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考生目录下。具体要求如下： 1．窗体的标题为“字幕放大”，固定边框。 2．单击“开始”按钮（Command1），标签“欢迎光临”（Label1）文字在定时器控制下字号自动增加2。同时“开始”按钮变为“停止”按钮。 3．单击“停止”按钮，标签“欢迎光临”文字停止放大。同时“停止”按钮为“开始”按钮。 4．要求标签文字在放大时保持水平居中。 5．定时器（Timer1）的时间间隔为0.2秒。 Private Sub Command1_Click() Label1.Left = (Form1.Width - Label1.Width) / 2 If Command1.Caption = "开始" Then Timer1.Enabled = True Command1.Caption = "停止" Else Timer1.Enabled = False Command1.Caption = "开始" End If End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 200 Label1.Alignment = 2 End Sub Private Sub Timer1_Timer() Label1.FontSize = Label1.FontSize + 2 Label1.Alignment = 2 End Sub 29、​ 新建一个工程，完成“拨号盘”程序的设计。具体要求如下： 1．窗体的标题为“拨号盘”，固定边框。 2．窗体的上边有一个文本框Text1，设置为最多接受10个字符；Font宋体、粗体、三号；文字颜色兰色。 3．用命令按钮数组Command1（0）~Command1（9）构成数字键，数字键标题正好命令按钮数组的下标一致。单击数字键按钮，将拨号的内容显示在文本框中。 4．单击“重拨”按钮（Command2），再现原来的拨号过程；（提示：再现过程由定时器实现） 5．定时器Timer1的时间间隔为0.5秒。 Dim n As String, n1 As String Private Sub Command1_Click(Index As Integer) n1 = 0 n = n + Command1(Index).Caption Text1.Text = n Timer1.Enabled = False End Sub Private Sub Command2_Click() Text1.Text = "" Timer1.Enabled = True n1 = 0 End Sub Private Sub Form_Load() Text1.ForeColor = vbBlue Timer1.Enabled = False Timer1.Interval = 500 n1 = 0 End Sub Private Sub Timer1_Timer() n1 = n1 + 1 If n1 > Len(n) Then Timer1.Enabled = False End If Text1.Text = Text1.Text + Mid(n, n1, 1) End Sub 30、​ 新建一个工程，完成“简单动画演示”应用程序的设计。具体要求如下： 1．按照下图所示在窗体上放置按钮和控件。 2．在窗体上创创建一个Label1控件用于显示程序名“简单动画”。 3．在窗体上创建一个Label2的控件数组，数组长度为6，用于显示动画的图像“--->”。 4．在窗体上放置一个timer控件，用它来控制Label2上的图像位置的变化。 5．单击“开始”按钮时label2上的图像开始移动，单击“结束”按钮图像停止移动，设置每一秒移动一个箭头。 Dim n As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 For i = 0 To 5 Label2(i).Visible = False Next i End Sub Private Sub Timer1_Timer() Dim i As Integer For i = 0 To 5 Label2(i).Visible = False N必须定义在“通用”，即开头， Next I Label2(n).Visible = True n = (n + 1) Mod 6 End Sub 否则，N会归0 31、​ 单击窗体在窗体上输出10个两位随机整数，并求出其平均数。运行效果如下图所示： Dim a(9) As Integer Private Sub Form_Click() Dim i As Integer, j As Integer For i = 0 To 9 a(i) = Int(Rnd * 90 + 10) j = j + a(i) Print a(i) Next i Print "平均数为" & j / 10 End Sub 32、​ 随机产生20个200～400之间的随机整数，按每行5个输出到窗体上，并求出其中的最大值。 Dim a(9) As Integer Private Sub Form_Click() Dim i As Integer, j As Integer For i = 0 To 9 a(i) = Int(Rnd * 90 + 10) j = j + a(i) Print a(i) Next i Print "平均数为" & j / 10 End Sub 33、​ 产生20个两位的随机整数，输出这20个数（以每行5个的形式输出这20个数，其中的偶数用红色显示），找出其中的最大值和最小值，计算并输出平均值。运行效果如下图所示： Private Sub Form_Click() Dim i As Integer, min As Integer, max As Integer, aver As Single, a(19) As Integer Print "原数组为：" For i = 0 To 19 a(i) = Int(Rnd * 90 + 10) If a(i) Mod 2 = 0 Then Form1.ForeColor = vbRed Else Form1.ForeColor = vbBlack End If If i Mod 5 = 0 Then Print Print a(i); Next i Form1.ForeColor = vbBlack Print max = a(0): min = a(0): aver = a(0) For i = 0 To 19 If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) aver = aver + a(i) Next i Print "max=" & max Print "min=" & min Print "aver=" & aver / 20 End Sub 34、​ 产生10个随机两位正整数，放入一数组中，并按从小到大的顺序排列。在窗体上输出原数据及排列后的数据。运行效果如下图所示： Private Sub Form_Click() Dim i As Integer, n As Integer, j As Integer, a(10) As Integer, t As Integer, k As Integer Print "排序前的数据：" For n = 1 To 10 a(n) = Int(90 * Rnd + 10) Print a(n); Next n Print For i = 1 To 9 k = i For j = i + 1 To 10 If a(j) < a(k) Then k = j Next j t = a(i): a(i) = a(k): a(k) = t Next i Print "排序后的数据为：" For i = 1 To 10 Print a(i); Next i Print End Sub 35、​ 新建一个工程，完成应用程序的设计。具体要求如下： 1．​ 按照下图所示在窗体上放置控件。建立一个文本框和两个命令按钮。 2．​ 在文本框中输入内容，单击“开始”后，把文本框中的字符按从小到大排列输出在窗体上，按结束退出应用程序。 Dim n As String, l As Integer, i As Integer, k As Integer, t As Integer Private Sub Command1_Click() Dim n As String, l As Integer, i As Integer, k As Integer, t As String n = Text1.Text Text1.Text = "" Command2.Enabled = True Command1.Enabled = False l = Len(n) ReDim a(l) As String For i = 1 To l a(i) = Mid(n, i, 1) Next i For i = 1 To l - 1 k = i For j = i + 1 To l If a(j) < a(k) Then k = j Next j t = a(i): a(i) = a(k): a(k) = t Next i For i = 1 To l Text1.Text = Text1.Text + a(i) Next i End Sub Private Sub Command2_Click() Command1.Enabled = True Command2.Enabled = False End End Sub 36、​ 建立一个5行5列二维数组，要求对角线为1，其余元素为0。运行结果如图所示。 Private Sub Form_Click() ReDim a(5, 5) As String For i = 1 To 5 For j = 1 To 5 If i = j Or i + j = 6 Then a(i, j) = 1 Else a(i, j) = 0 End If Print a(i, j); Space(2); Next j Print Next i End Sub 37、​ 建立一个5行5列二维数组，要求右上三角元素（含对角线）为1，其余元素为0。 Private Sub Form_Click() ReDim a(5, 5) As String For i = 1 To 5 For j = 1 To 5 If i > j Then a(i, j) = 0 Else a(i, j) = 1 End If Print a(i, j); Space(2); Next j Print Next i End Sub 38、​ 编制程序，用随机函数产生20个两位数的整数，存于4行5列的二维数组中，将数组按矩阵形式输出到窗体，并求出其最大元素及最大元素的行、列坐标。 Private Sub Form_Click() Dim max As String, min As String, i As Integer, j As Integer, x As Integer, y As Integer ReDim a(4, 5) As String For i = 1 To 4 For j = 1 To 5 a(i, j) = Int(Rnd * 90 + 10) Print a(i, j); Space(4); Next j Print Next i max = a(1, 1): min = a(1, 1) For i = 1 To 4 For j = 1 To 5 If a(i, j) > max Then max = a(i, j) x = i: y = j End If Next j Next i Print "最大的元素是" & a(x, y) & "位于第" & x & "行" & "第" & y & "列" End Sub 39、​ 编制通用函数过程，计算1+2+……+N 的值。在窗体的Click事件中调用该函数。 Private Sub Form_Click() Dim n As Integer n = InputBox("n=") Print sum(n) End Sub Private Function sum(m As Integer) As Integer For i = 1 To m sum = sum + i Next i End Function 40、​ 编制通用函数过程，计算N！的值。在窗体的Click事件中调用该函数。 Private Sub Form_Click() Dim n As Integer n = InputBox("n=") Print f(n) End Sub Private Function f(n As Integer) As Integer f = 1 For i = 1 To n f = f * i Next i End Function 41、​ 编制通用函数过程，用于判断1个整数是否为素数，若是则显示true，若不是则显示false。在窗体的Click事件中调用该函数。 Private Sub Form_Click() Dim n As Integer n = InputBox("n=") Print f(n) End Sub Private Function f(n As Integer) As Boolean If n = 1 Or 2 Then f = True For i = 2 To n - 1 If n Mod i = 0 Then f = False Exit Function Else f = True End If Next i End Function 42、​ 编制一个判断奇偶数的Function函数过程。在窗体的Click事件中调用该函数，输入一个整数，判断其奇偶性。 Private Sub Form_Click() Dim n As Integer n = InputBox("i=") Print f(n) End Sub Private Function f(n As Integer) As String If n Mod 2 = 0