vb上机考试基本操作题

vb上机考试基本操作 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 .doc 四、基本操作题 1. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”，标题改为"字体显示"。 2.请在窗体的适当位置增加以下控件:文本框Text1，Text属性为“VB演示”;复选按钮Check1，Value初值为0，Caption属性为“粗体”;命令按钮Command1，标题为“退出”，结束系统运行。 3.要求用If-Endif语句完成:选中复选按钮，文本框的文字为粗体;不选中，文本框的文字取消粗体，单击命令按钮结束程序运行。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End If End Sub Private Sub Command1_Click() End End Sub 2. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。 2.请在适当位置增加以下控件:标签Label1，标题为:"列 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 显示";文本框Text1用于显示在列表框中选中的项;列表框List1。 3.在窗体装载事件中编写代码为列表框List1添加三项显示内容:“足球”，“篮球”，“排球”。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Form_Load() List1.AddItem "足球" List1.AddItem "篮球" List1.AddItem "排球" End Sub Private Sub List1_Click() Text1.Text = List1.Text End Sub 3. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。 2.请在适当位置增加以下控件:标签Label1，标题为:"下拉显示";文本框Text1用于显示在组合框中选中的项;组合框Combo1。 3.在窗体装载事件中编写代码为组合框Combo1添加两项显示内容:“北京2008”，“上海2010”。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Combo1_Click() Text1.Text = Combo1.Text End Sub Private Sub Form_Load() Combo1.AddItem "北京2008" Combo1.AddItem "上海2010" End Sub 4. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。 2.请在适当位置增加以下控件:标签Label1，标题为:"我们赢了";文本框Text1;单选按扭Option1、Option2，其显示内容分别为:“北京奥运会”，“上海世博会”。 3.在单选按扭Option1、Option2的单击事件编写代码，用于在文本框Text1显示在两个单选按扭中选中的Caption属性的内容。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Option1_Click() Text1.Text = Option1.Caption End Sub Private Sub Option2_Click() Text1.Text = Option2.Caption End Sub 5. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。 2.请在适当位置增加以下控件:标签Label1，标题为:"十六大";文本框Text1;复选框Check1、Check2，其内容分别为:“邓小平理论”，“三个代表”。 3.编写代码实现:单击Check1或Check2，在文本框Text1中显示其Caption属性的内容。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Check1_Click() Text1.Text = Check1.Caption End Sub Private Sub Check2_Click() Text1.Text = Check2.Caption End Sub 6. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"文件系统控件"。 2.请在适当位置增加以下控件:驱动器列表框Drive1、目录列表框Dir1和文件列表框File1。 3.编写代码实现以上三控件同步;在窗体的装载事件中编写代码要文件列表框中只能出现“BMP”文件。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Form_Load() File1.Pattern = "*.bmp" End sub Private Sub Dir1_Change() File1.Path = Dir1 end sub Private Sub Drive1_Change() Dir1.Path = Drive1 End sub 7. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"时钟演示"。 2.请在适当位置增加以下控件:标签Label1;时钟Timer1的Interval属性值为1000;“结束”按钮Command1用End语句结束程序运行。 3.要求使用Time()函数在时钟控件Timer1的Timer事件中编写代码，使窗体启动后，标签框显示当前系统时间。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() end End sub Private Sub Timer1_Timer() Label1.Caption = Time() End sub 8.在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"演示"。 2.请在适当位置画两个文本框，其名称分别为Textl和Text2，文本框内容分别设置为“等级考试”、“计算机”;一个标签框，名称为Lab1，内容设置为空白。然后画两个单选按钮，其名称分别为Opl和OP2，标题分别为“交换”和“连接”(如图所示): 3.编写适当的事件程序，使程序运行后，如果选中“交换”单选按钮并单击窗体，则Text1文本框中内容与Text2文本框中内容进行交换，并在Lab1标签框中显示“交换成功”;如果选中“连接”单选按钮并单击窗体，则把Text1和Text2的内容按Text1在前，Text2在后的顺序连接起来，并在Lab1标签框中显示连接后的内容。 4.请先调试、运行，然后将工程、窗体保存。 注意:不得修改己经给出的程序。在结束程序运行之前，必须选中一个单选按钮，并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。 Private Sub Op1_Click() a = Text1.Text Text1.Text = Text2.Text Text2.Text = a Lab1.Caption = "交换成功" End Sub Private Sub Op2_Click() Lab1.Caption = Text1.Text + Text2.Text End Sub 9.在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"体育比赛"。 2.请在适当位置画一个标签框与两个复选框，其名称分别为Lab1、Ch1和Ch2，两个复选框标题分别为“羽毛球”和“乒乓球”;再画一个名称为C1、标题为“确定”的命令按钮。(如图所示): 3.编写适当的事件程序，使程序运行后，如果只选中Ch1，单击“确定”命令按钮，则在标签框中显示:“报名参加羽毛球比赛”;如果只选CH2，然后单击“确定”命令按钮，则在标签框中显示:“报名参加乒乓球比赛”;如果同时选中CH1和Ch2，单击“确定”命令按钮，则在标签框中显示:“报名参加羽毛球和乒乓球比赛”;如果CH1和Ch2都不选，然后单击“确定”命令按钮，则在标签框中什么都不显示。 4.请先调试、运行，然后将工程、窗体保存。 注意:不得修改己经给出的程序。在结束程序运行之前，必须选中一个单选按钮，并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。 Private Sub C1_Click() If Ch1.Value = 1 And Ch2.Value = 1 Then Lab1.Caption = "报名参加" + Ch1.Caption + Ch2.Caption + "比赛" ElseIf Ch1.Value = 1 Then Lab1.Caption = "报名参加" + Ch1.Caption + "比赛" ElseIf Ch2.Value = 1 Then Lab1.Caption = "报名参加" + Ch2.Caption + "比赛" Else Lab1.Caption = "" End If End Sub 10. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"旅行方式"。 2.请在窗体上画两个框架，其名称分别为F1和F2，标题分别为"交通工具"和"到达目标"。在F1中画两个单选按钮，名称分别为Op1和Op2，标题分别为"飞机"和"火车"。 在F2中画两个单选按钮，名称分别为Op3和Op4，标题分别为"上海"和"北京"。画一个标签，其名称为Lab1，宽度为3000，高度为375，标题为空。如图所示: 3.编写适当的事件程序，使程序运行后，选择不同单选按钮时产生的显示结果见下表: Op1 Op2 Op3 Op4 Lab1显示结果 ? 坐飞机 ? 坐火车 ? 去北京 ? 去上海 ? ? 坐飞机去北京 ? ? 坐飞机去上海 ? ? 坐火车去北京 ? ? 坐火车去上海 空白 4.请先调试、运行，然后将工程、窗体保存。 注意:考生不得修改窗体文件中己经给出的程序。在结束程序运行之前，必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。 Private Sub Command1_Click() If Op1.Value = True And Op3.Value = True Then Lab1.Caption = "坐" + Op1.Caption + "去" + Op3.Caption ElseIf Op1.Value = True And Op4.Value = True Then Lab1.Caption = "坐" + Op1.Caption + "去" + Op4.Caption ElseIf Op1.Value = False And Op3.Value = True Then Lab1.Caption = "去" + Op3.Caption ElseIf Op1.Value = False And Op4.Value = True Then Lab1.Caption = "去" + Op4.Caption ElseIf Op2.Value = True And Op3.Value = True Then Lab1.Caption = "坐" + Op2.Caption + "去" + Op3.Caption ElseIf Op2.Value = True And Op4.Value = True Then Lab1.Caption = "坐" + Op2.Caption + "去" + Op4.Caption ElseIf Op2.Value = False And Op3.Value = True Then Lab1.Caption = "去" + Op3.Caption ElseIf Op2.Value = False And Op4.Value = True Then Lab1.Caption = "去" + Op4.Caption Else Lab1.Caption = "" End If End Sub 11. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:两个文本框Text1、Text2，Value属性值为空;一个组合框Combo1。(以上操作在属性窗口中完成) 3.要求窗体装载时给组合框添加三个项目“小写转大写”、“大写转小写”、“测长度”;窗体运行时，在Text1中输入字母后，选择“小写转大写”Text2的值取Text1的值转换成大写字母的结果;选择“大写转小写”Text2的值取Text1的值转换成小写字母的结果;选择 测长度可将测得的Text1中字符长度的结果放在Text2中。 运行效果如下图。 4.请先调试、运行，然后将工程、窗体保存。 12. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”，标题改为"字体显示"。 2.如图所示:在窗体上增加以下控件:Frame1，Caption属性为“选择”;复选按钮Check1，Value初值为0，Caption属性为“粗体”;命令按钮Command1，标题为“退出”，结束系统运行。 3.要求用If-Endif语句完成:选中复选按钮，文本框的文字为粗体;不选中，文本框的文字取消粗体，单击命令按钮结束程序运行。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End If End sub Private Sub Command1_Click() End End sub 13. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。 2.请在适当位置增加以下控件:标签Label1，标题为:"下拉显示";文本框Text1用于显示在组合框中选中的项;组合框Combo1。 3.在窗体装载事件中编写代码为组合框Combo1添加两项显示内容:“北京2008”，“上海2010”。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Form_Load() Combo1.AddItem "北京2008" Combo1.AddItem "上海2010" End sub Private Sub Combo1_Click() Text1.Text = Combo1.Text End sub 14. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。 2.请在适当位置增加以下控件:标签Label1，标题为:"我们赢了";文本框Text1;单选按扭Option1、Option2，其显示内容分别为:“北京奥运会”，“上海世博会”。 3.在单选按扭Option1、Option2的单击事件编写代码，用于在文本框Text1显示在两个单选按扭中选中的Caption属性的内容。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Option1_Click() Text1.Text = Option1.Caption End sub Private Sub Option2_Click() Text1.Text = Option2.Caption End sub 15. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。 2.请在适当位置增加以下控件:标签Label1，标题为:"十六大";文本框Text1;复选框Check1、Check2，其内容分别为:“邓小平理论”，“三个代表”。 3.编写代码实现:单击Check1或Check2，在文本框Text1中显示其Caption属性的内容。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Check1_Click() Text1.Text = Check1.Caption End sub Private Sub Check2_Click() Text1.Text = Check2.Caption End sub 16. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。 2.请在适当位置增加以下控件:标签Label1，标题为:"列表显示";文本框Text1用于显示在列表框中选中的项;列表框List1。 3.在窗体装载事件中编写代码为列表框List1添加三项显示内容:“足球”，“篮球”，“排球”。 4.请先调试、运行，然后将工程、窗体保存。 17. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"文件系统控件"。 2.请在适当位置增加以下控件:驱动器列表框Drive1、目录列表框Dir1和文件列表框File1。 3.编写代码实现以上三控件同步;在窗体的装载事件中编写代码要文件列表框中只能出现“BMP”文件。 4.请先调试、运行，然后将工程、窗体保存。 18. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"时钟演示"。 2.请在适当位置增加以下控件:标签Label1;时钟Timer1的Interval属性值为1000;“结束”按钮Command1用End语句结束程序运行。 3.要求使用Time()函数在时钟控件Timer1的Timer事件中编写代码，使窗体启动后，标签框显示当前系统时间。 4.请先调试、运行，然后将工程、窗体保存。 19.在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”。 2.在窗体上增加以下控件:定时器Timer1，初始时间间隔,10;标签Label1，Label2(标题:计数上限值)、Label3均自动调整大小;文本框Text1; 水平滚动条HScroll1(最小值0，最大值1000 )。 3.编写代码实现: 文本框中输入的数字作为计数上限;单击按钮Command1，启动定时器，标题变为“停止”，Label1显示计数结果;再次单击按钮Command1，定时器停止，标题又变为“计数”;可通过水平滚动条调整定时间隔，并通过Label3显示为“时间间隔,×× ms”;计数到达预设上限值时，定时器停止，Label1显示“计数已达×××”(×××为文本框中预设的上限值)。 4.请先调试、运行，然后将工程、窗体保存。 Dim k As Integer Private Sub Command1_Click() If Command1.Caption = "计数" Then Command1.Caption = "停止" Command1.ToolTipText = "停止计数" Timer1.Enabled = True Else Command1.Caption = "计数" Command1.ToolTipText = "开始计数" Timer1.Enabled = False End If End Sub Private Sub HScroll1_Change() Timer1.Interval = HScroll1.Value Label2 = "时间间隔," & Timer1.Interval & "ms" End Sub Private Sub Timer1_Timer() k = k + 1 Label1 = k If k >= Val(Text1) Then Label1 = "计数已达" & Text1 k = 0 Command1_Click End If End Sub 20.在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"演示"。 2.请在适当位置画两个文本框，其名称分别为Textl和Text2，文本框内容分别设置为“等级考试”、“计算机”;一个标签框，名称为Lab1，内容设置为空白。然后画两个单选按钮，其名称分别为Opl和OP2，标题分别为“交换”和“连接”(如图所示): 3.编写适当的事件程序，使程序运行后，如果选中“交换”单选按钮并单击窗体，则Text1文本框中内容与Text2文本框中内容进行交换，并在Lab1标签框中显示“交换成功”;如果选中“连接”单选按钮并单击窗体，则把Text1和Text2的内容按Text1在前，Text2在后的顺序连接起来，并在Lab1标签框中显示连接后的内容。 4.请先调试、运行，然后将工程、窗体保存。 注意:不得修改己经给出的程序。在结束程序运行之前，必须选中一个单选按钮，并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。 21.在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"体育比赛"。 2.请在适当位置画一个标签框与两个复选框，其名称分别为Lab1、Ch1和Ch2，两个复选框标题分别为“羽毛球”和“乒乓球”;再画一个名称为C1、标题为“确定”的命令按钮。(如图所示): 3.编写适当的事件程序，使程序运行后，如果只选中Ch1，单击“确定”命令按钮，则在标签框中显示:“报名参加羽毛球比赛”;如果只选CH2，然后单击“确定”命令按钮， 则在标签框中显示:“报名参加乒乓球比赛”;如果同时选中CH1和Ch2，单击“确定”命令按钮，则在标签框中显示:“报名参加羽毛球和乒乓球比赛”;如果CH1和Ch2都不选，然后单击“确定”命令按钮，则在标签框中什么都不显示。 4.请先调试、运行，然后将工程、窗体保存。 注意:不得修改己经给出的程序。在结束程序运行之前，必须选中一个单选按钮，并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。 22.在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"旅行方式"。 2.请在窗体上画两个框架，其名称分别为F1和F2，标题分别为"交通工具"和"到达目标"。在F1中画两个单选按钮，名称分别为Op1和Op2，标题分别为"飞机"和"火车"。 在F2中画两个单选按钮，名称分别为Op3和Op4，标题分别为"上海"和"北京"。画一个标签，其名称为Lab1，宽度为3000，高度为375，标题为空。如图所示: 3.编写适当的事件程序，使程序运行后，选择不同单选按钮时产生的显示结果见下表: Op1 Op2 Op3 Op4 Lab1显示结果 ? 坐飞机 ? 坐火车 ? 去北京 ? 去上海 ? ? 坐飞机去北京 ? ? 坐飞机去上海 ? ? 坐火车去北京 ? ? 坐火车去上海 空白 4.请先调试、运行，然后将工程、窗体保存。 注意:考生不得修改窗体文件中己经给出的程序。在结束程序运行之前，必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。 23在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"二级VB考试"。 2.请在适当位置增加以下控件: 标签Label1:标题为:"计算机"; Frame1 :标题为"选择"; 通用对话框CommonDialog1 单选按扭控件数组:Option1(0)、Option1(1)、 Option1(2)，其标题分别为:“窗体背景色”，“标签 前景色”，“标签背景色”，Option1(0)初始值为True， 其余为False。 3.程序运行时，单击单选按钮就打开“颜色”对 话框，所选中的对象设置颜色。(对控件数组用Select Case结构实现。) 4.调试、运行无误后将工程、窗体保存。 在工程中添加部件:通用对话框 CommonDialog1 在窗体中添加三个单选钮，名称均为 Option1，形成控件数组 编写 Option1_Click 代码: Private Sub Option1_Click(Index As Integer) CommonDialog1.ShowColor Select Case Index Case 0 Me.BackColor = CommonDialog1.Color Case 1 Label1.ForeColor = CommonDialog1.Color Case 2 Label1.BackColor = CommonDialog1.Color End Select End sub 24.在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"二级VB考试"。 2.如图所示，在窗体上增加以下控件: Image1:能自动调整图片显示比例以适应Image1(提示:Stretch属性设为True ); 通用对话框CommonDialog1 水平滚动条HScroll1:最大值4000，最小值1000 按钮Command1:标题“选择图片” 3.程序运行时，单击按钮Command1，就打开“文件”对话框，用以选择图片文件并显示在Image1中。 4. 通过水平滚动条可以调整图片宽度(提示:在水平滚动条HScroll1的Scroll()事件 中使Image1的宽度,HScroll1的值); 5.调试、运行无误后将工程、窗体保存。 Private Sub Command1_Click() CommonDialog1.ShowOpen Image1.Picture = LoadPicture(CommonDialog1.FileName) End Sub Private Sub HScroll1_Scroll() Image1.Width = HScroll1.Value End Sub 25.在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。 2.请在适当位置增加以下控件:标签Label1，标题为:"窗口位置"; 两个按钮 Command1、Command2，标题分别为“左上”、“居中”。 使得程序运行时，鼠标指向按钮Command1时，应能显示提示文字“窗口位于屏幕左上角”，指向按钮Command2时，显示提示文字“窗口位于屏幕中间”。 3.编写代码实现:单击按钮Command1，使窗体跳到屏幕左上角(提示:窗体的Left和Top属性均为0)，并使Command1不可用，Command2可用;单击按钮Command2，使窗体跳到屏幕中间，并使使Command1可用，Command2不可用。 4.请先调试、运行，然后将工程、窗体保存。 属性: Command1 : ToolTipText = "窗口位于屏幕左上角" Command2 : ToolTipText = "窗口位于屏幕中间" Label1 : Caption = "窗口位置" 代码: Private Sub Command1_Click() Me.Left = 0 Me.Top = 0 Command1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Click() Me.Left = (Screen.Width - Me.Width) / 2 Me.Top = (Screen.Height - Me.Height) / 2 Command1.Enabled = True Command2.Enabled = False End Sub 26 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。 2.在窗体上增加以下控件:标签Label1，标题为"Visual Basic"，居中、自动调整大小; 两个按钮 Command1、Command2，标题分别为“放大”、“缩小”。 3.编写代码实现: 单击“放大”按钮Command1，使Command2可用，并使标签Label1的字体大小加10，当字体大小大于30时，使Command1不可用; 单击“缩小”按钮Command2，使Command1可用，并使标签Label1的字体大小减10，当字体小于10时，使Command2不可用 。 4.请先调试、运行，然后将工程、窗体保存。 属性: Form sjt: Caption = "VB控件" Command2: Caption = "缩小" Command1: Caption = "放大" Label1: Alignment = 2 'Center AutoSize = -1 'True Caption = "Visual Basic" 代码: Private Sub Command1_Click() Command2.Enabled = True Label1.FontSize = Label1.FontSize + 10 If Label1.FontSize > 50 Then Command1.Enabled = False End Sub Private Sub Command2_Click() Command1.Enabled = True Label1.FontSize = Label1.FontSize - 10 If Label1.FontSize < 10 Then Command2.Enabled = False End Sub 27在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB二级考试"。 2.在窗体上增加以下控件:图片框Picture1;三个水平滚动条构成控件数组HScroll1(0)HScroll1(1)、HScroll1(2);Max,255，Min,0，分别用于调整红、绿、蓝三原色的值; 三个文本框构成控件数组:Text1(0)、Text1(1)、Text1(2)，设计时均置Text=255，分别用于显示三个滚动条的值; 3.编写代码实现: 拖动水平滚动条时，将值显示在对应的文本框中(不得使用任何选择结构)，并将三色合成后(要求用RGB()函数实现)作为图片框Picture1的背景色。 4.请先调试、运行，然后将工程、窗体保存。 代码: Private Sub HScroll1_Scroll(Index As Integer) Text1(Index) = HScroll1(Index).Value Picture1.BackColor = RGB(Text1(0), Text1(1), Text1(2)) End Sub 28.在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"二级VB考试"。 2.在窗体上增加以下控件:定时器Timer1，时间间隔,10;图片框Picture1;图片框Picture1中放置标签Label1，自动调整大小;图片框下方放置文本框Text1; 水平滚动条HScroll1，最小值0,最大值100 。 3.编写代码实现: 文本框中输入的字符自动显示为标签的标题;标签自动向左移动，移出图片框后又从右边进入(提示:编程使得当标签的Left<-1000时，自动重新设置Left,10000);拖动水平滚动条时，将调整移动的速度。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub HScroll1_Change() Timer1.Interval = HScroll1.Value End Sub Private Sub Text1_Change() Label1 = Text1 End Sub Private Sub Timer1_Timer() Label1.Left = Label1.Left - 100 If Label1.Left < -1000 Then Label1.Left = 10000 End Sub 29. 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB二级考试"。 2.在窗体上增加以下控件:标签Label1，Label2 自动调整大小;文本框Text1; 水平滚动条HScroll1，最小值10，最大值60 。 3.编写代码实现: 文本框中输入的字符回车后显示为标签的标题;拖动水平滚动条时，将调整标签的字体大小(值范围10,60)，Label2显示“字体大小,××”;无论字体大小如何变化，标签总是位于窗体水平居中位置。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub HScroll1_Change() Label1.FontSize = HScroll1.Value Label2 = "字体大小=" & HScroll1.Value Label1.Left = (Me.Width - Label1.Width) / 2 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Label1 = Text1 End Sub 30. 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。 2.在窗体上增加以下控件:定时器Timer1，时间间隔,10;形状Shape1 ，其形状取圆，填充色为红色;垂直滚动条VScroll1，最小值10，最大值100 。 3.编写代码实现: 形状Shape1在窗体中上下移动，(提示:程序中定时改变Shape1的Top值，用模块级变量Y(整形)表示每次改变量，其值在Top<,0时，改为，100，当Top大于窗体高度时，又改为,100);拖动水平滚动条时，将调整移动的速度。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Form_Activate() y = 100 End Sub Private Sub Timer1_Timer() Shape1.Top = Shape1.Top + y If Shape1.Top > Me.Height Then y = -100 ElseIf Shape1.Top < 0 Then y = 100 End If End Sub Private Sub VScroll1_Change() Timer1.Interval = VScroll1.Value End Sub 31 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”。 2.在窗体上增加以下控件:标签Label1，自动调整大小;文本框Text1; 框架Frame1，标题为“性别”;其中放置两个单选钮Option1、Option2，标题分别为“男”，“女”; 3.编写代码实现: 文本框中输入姓名;单击单选钮“男”时，标签Label1和窗体的标题均显示“某某(即姓名)先生您好～”，单击单选钮“女”时，显示“某某(即姓名)女士您好～” 单击标签Label1，则标签字体大小增加1，当字体大小大于20时，恢复大小到10 。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Label1_Click() Label1.FontSize = Label1.FontSize + 1 If Label1.FontSize > 20 Then Label1.FontSize = 10 End Sub Private Sub Option1_Click() If Option1.Value = True Then Label1 = Text1 & "先生，您好～" Me.Caption = Text1 & "先生，您好～" End Sub Private Sub Option2_Click() If Option2.Value = True Then Label1 = Text1 & "女士，您好～" Me.Caption = Text1 & "女士，您好～" End Sub 32 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。 2.在窗体上增加以下控件:左边放置列表框List1，设计时输入列表项包括“安徽，江苏，浙江，上海，北京”，允许简单多选;右边放置List2各项属性取默认值;中间放置按钮Command1，标题为“>”; 3.编写代码实现: 当从List1中多选后单击按钮，则所选中的各项加入List2的列表项;(要求用For循环实现，循环变量名取I)。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() Dim I List2.Clear For I = 0 To List1.ListCount - 1 If List1.Selected(I) Then List2.AddItem List1.List(I) End If Next I End Sub 33 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”。 2.在窗体上增加以下控件:至上而下，依次放置组合框Combo1,左边放置标签“职业”，设计时添加列表项“学生，教师”; Text1，左边放置标签“姓名“，按钮Command1，标题“确定”;文本框Text2，允许多行，显示垂直滚动条; 3.编写代码实现: 程序运行时组合框Combo1，中若输入新内容后回车(要求在KeyPress事件中判断处理)，该内容自动加入组合框列表项;单击按钮Command1，则将所选职业和在Text1中输入的姓名连接起来， 追加在Text2中，另起一行显示; 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Combo1.AddItem Combo1.Text End Sub Private Sub Command1_Click() Text2 = Text2 & vbCrLf & Combo1.Text & Text1 End Sub 34 计算器 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”, 窗体的标题为"二级VB考试"。 2.在窗体上增加以下控件:三个文本框Text1、Text2、Text3;组合框Combo1，设计时添加列表项“，，,,*,/ ”作为运算符;按钮Command1，标题“,”; 3.编写代码实现: 窗体加载时使三个文本框的内容变为0，在Text1和Text2输入两个数后，用组合框Combo1选择运算符，单击Command1，在过程中定义单精度变量S保存计算结果，并将计算结果显示在Text3中，但当除数为0时，用MSGBox提示“除数不能为0”; 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() Dim S As Single Select Case Combo1.Text Case "+" S = Val(Text1) + Val(Text2) Case "-" S = Val(Text1) - Val(Text2) Case "*" S = Val(Text1) * Val(Text2) Case "/" If Text2 = "0" Then MsgBox ("除数不能为0"): Exit Sub S = Val(Text1) / Val(Text2) End Select 35. 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”。 2.在窗体上增加以下控件:文本框Text1; 框架Frame1，标题为“性别”;其中放置两个单选钮Option1、Option2，标题分别为“男”，“女”;框架Frame2, 标题为“特长”，其中放置三个复选框(控件数组)Check1(0)标题:英语;Check1(1)标题:计算机;Check1(2)标题:体育; 3.编写代码实现: 文本框中输入姓名，单选钮选择性别，复选框选择特长;单击按钮“确定”，则标签Label1显示“某某(即姓名)先生(性别为女时显示某某女士)的特长是:××××” 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() If Option1.Value = True Then Label1 = Text1 & "先生的特长是:" Else Label1 = Text1 & "女士的特长是:" End If For I = 0 To 2 If Check1(I).Value Then Label1 = Label1 & Check1(I).Caption Next End Sub 36 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。 2.请在窗体上增加以下控件:标签Label1，Label2，标题分别为:"用户名"，“密码”;组合框Combo1;文本框Text1用于输入用户密码，输入时显示为****; 3.在窗体装载事件中编写代码为组合框Combo1添加三位用户名:“张小三”，“李四”，“欧阳玉荣”。 用户通过组合框Combo1选择用户名，然后输入密码，(以当前年号，当前月份,自己姓名字符个数 的四位数字为密码)，回车后根据密码是否正确用MSGBOX分别显示“登录成功”和“密码错误”。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Form_Load() Combo1.AddItem "张小三" Combo1.AddItem "李四" Combo1.AddItem "欧阳玉荣" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Text1 = Year(Now()) + Month(Now()) - Len(Combo1.Text) Then MsgBox "登录成功" Else MsgBox "密码错误" End If End If End Sub 37 .在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”。 2.在窗体上增加以下控件:定时器Timer1，初始时间间隔,10;标签Label1，Label2(标题:计数上限值)、Label3均自动调整大小;文本框Text1; 水平滚动条HScroll1(最小值0，最大值1000 )。 3.编写代码实现: 文本框中输入的数字作为计数上限;单击按钮Command1，启动定时器，标题变为“停止”，Label1显示计数结果;再次单击按钮Command1，定时器停止，标题又变为“计数”;可通过水平滚动条调整定时间隔，并通过Label3显示为“时间间隔,×× ms”;计数到达预设上限值时，调用Command1_Click事件程序，并且Label1显示“计数已达×××”(×××为文本框中预设的上限值)。 4.请先调试、运行，然后将工程、窗体保存。 38在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置增加以下控件:标签Label1，标题为“二级上机考试”且自动调整大小匹配所显示的内容;两个命令按钮，command1标题为“红色”，command2标题为“蓝色”;文本框text1,value值默认为空。(以上属性要求在属性窗口完成，界面如下图所示) 3.要求程序运行时屏幕居中，鼠标单击command1时,标签Label1的文本颜色为“红色”,请使用RGB(255,0,0)，文本框text1中内容显示“红色”;鼠标单击command2时,标签Label1的文本颜色为“蓝色”，请使用RGB(0,0,255)，文本框text1中内容显示“蓝色”。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() Label1.ForeColor = RGB(255, 0, 0) Text1.Text = "红色" End Sub Private Sub Command2_Click() Label1.ForeColor = RGB(0, 0, 255) Text1.Text = "蓝色" End Sub 39.在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置增加以下控件:标签Label1，标题为“二级上机考试”且自动调整大小匹配所显示的内容;两个按钮，command1标题为“红色”，command2标题为“蓝色”;文本框text1,value值默认为空。(以上属性要求在属性窗口完成，界面如下图所示) 3.要求程序运行时屏幕居中，鼠标单击command1时,标签Label1的文本颜色为“红色”,请使用RGB(255,0,0)，文本框text1中内容显示“红色”;鼠标单击command2时,标签Label1的文本颜色为“蓝色”，请使用RGB(0,0,255)，文本框text1中内容显示“蓝色”。 4.请先调试、运行，然后将工程、窗体保存。 40. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置增加以下控件:两个标签，Label1标题为“随机产生一个三位十进制整数”且自动调整大小匹配所显示的内容，label2标题为空;两个命令按钮，command1标题为“产生随机数”，command2标题为“判别”且不可用;文本框text1,value值默认为空。(以上属性要求在属性窗口完成) 3.在窗体装载事件中加入Randomize语句，要求程序运行时屏幕居中，鼠标单击command1时, 文本框text1中会随机产生一个三位十进制整数,同时command2可用，单击command2时，判别text1中数的奇偶性，在label2中显示该数是奇数或该数是偶数，同时command2不可用。(运行后如下图所示) 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Form_Load() Randomize End Sub Private Sub Command1_Click() Text1.Text = Int(900 * Rnd()) Command2.Enabled = True End Sub Private Sub Command2_Click() n = Val(Text1.Text) If n Mod 2 = 0 Then Label1.Caption = Text1.Text + "是偶数" Else Label1.Caption = Text1.Text + "是奇数" End If Command2.Enabled = False End Sub 41. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:一个命令按钮command1;两个复选框，check1标题为“显示”且默认为选中状态，check2标题为“可用” 且默认为选中状态。(以上操作在属性窗口中完成，如下图所示) 3.按如下要求编写代码:要求选中check1时，窗体标题为“显示按钮”，command1和check2显示，在这种情况下选中check2,command1可用，未选中check2,command1不可用;未选中check1时，窗体标题为“隐藏按钮”，command1和check2隐藏。(若有条件语句，必须用IF….ENDIF语句) 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Check1_Click() If Check1.Value = 1 Then Command1.Visible = True Check2.Visible = True VBBC.Caption = "显示按钮" Else Command1.Visible = False Check2.Visible = False VBBC.Caption = "隐藏按钮" End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Command1.Enabled = True Else Command1.Enabled = False End If End Sub 42.在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:一个框架frame1标题为“字体”;三个单选按钮，option1标题为“隶 书 关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf ”，option2标题为“宋体”且默认为选中状态，option3标题为“黑体”;一个文本框text1，内容为“程序设计”，字号为“一号字”，前景色为“红色”。(以上操作在属性窗口中完成，如下图所示) 3.按如下要求编写代码:选中option1时，文本框Text1内容的字体为“隶书”;选中option2时，文本框Text1内容的字体为“宋体”;选中option3时，文本框Text1内容的字体为“黑体”。(要求对每个单选按钮写click事件代码，若有条件语句，必须用IF….ENDIF语句) 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Option1_Click() Text1.FontName = "隶书" End Sub Private Sub Option2_Click() Text1.FontName = "宋体" End Sub Private Sub Option3_Click() Text1.FontName = "黑体" End Sub 43. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:一个文本框text1属性值为空;一个命令按钮command1标题为“开始”;一个时钟Timer1,Enabled值为False，Interval初值为1000。(以上操作在属性窗口中完成，如下图所示) 3.按如下要求编写代码:单击“开始”时，Timer1可用，在Text1中显示当前时间，同时command1标题改为“暂停”;再次单击命令按钮，其标题改为“开始”，Timer1不可用，如此反复。(若有条件语句，必须用IF….ENDIF语句) 4.请先调试、运行，然后将工程、窗体保存。 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 Timer1_Timer() Text1.Text = Time() End Sub 44. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:一个标签Label1标题为“程序设计”，字体字号为“三号字”，且自动调整大小匹配所显示的内容;三个复选框，check1标题为“粗体”，check2标题为“斜体”，check3标题为“下划线”。(以上操作在属性窗口中完成，如下图所示) 3.按如下要求编写代码:选中check1时，标签label1的FontBold属性值为True,否则标签label1的FontBold属性值为False; 选中check2时，标签label1的fontitalic属性值为True,否则标签label1的fontitalic属性值为False; 选中check3时，标签label1的fontunderline属性值为True,否则标签label1的fontunderline属性值为False。(要求对每个复选框的click事件写代码) 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Check1_Click() If Check1.Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End If End Sub Private Sub Check3_Click() If Check3.Value = 1 Then Label1.FontUnderline = True Else Label1.FontUnderline = False End If End Sub 45. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:三个标签，Label1标题为“籍贯:”，Label2标题为“姓名:”，Label3标题为空;一个框架Frame1标题为“性别”;两个单选按钮在框架Frame1中，option1标题为“男” ,style属性为1且为选中状态，option2标题为“女”，style属性为1;一个文本框text1内容为空，且Tabindex属性值为0;一个列表框;一个命令按钮标题为“确定”。(以上操作在属性窗口中完成，如下图所示) 3.在通用声明段，用public定义变量,变量名为xb，jg。在窗体的装载事件中做如下事情:列表框添加三项内容:“北京”，“上海”，“合肥”，且“北京”选项默认被选中;xb变量的初始值为“男”。 4(按如下要求编写代码:选中option1时，为变量xb赋值为“男”;选中option2时，为变量xb赋值为“女”;选中列表框的某一项时，把选中的内容赋值给jg;单击按钮command1时，在标签3中顺次显示姓名(text1中的内容)，籍贯(变量jg的值),性别(变量xb的值)。(要求对每个单选按钮的click事件写代码,对列表框的click事件写代码) 运行后如图所示: 5.请先调试、运行，然后将工程、窗体保存。 Public jg, xb Private Sub Command1_Click() Label3.Caption = Text1.Text & ":" & jg & "," & xb End Sub Private Sub Form_Load() List1.AddItem "北京" List1.AddItem "上海" List1.AddItem "合肥" xb = "男" List1.ListIndex = 0 End Sub Private Sub List1_Click() jg = List1.Text End Sub Private Sub Option1_Click() xb = "男" End Sub Private Sub Option2_Click() xb = "女" End Sub 46. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:两个标签，Label1标题名为“程序设计”,且自动调整大小匹配所显示的内容，Label2标题名为“字号:”,且自动调整大小匹配所显示的内容;一个水平滚动条HScroll1，max值为32，min值为9，value初始值为9，smallchange值为1，largechange值为1，该水平滚动条用于控制文字大小;一个文本框text1内容默认为空。(以上操作在属性窗口中完成) 3.按如下要求编写代码:编写水平滚动条的change事件，该过程控制标签文字的大小，同时在文本框显示该文字的大小。 运行后，如下图所示: 4.请先调试、运行，然后将工程、窗体保存。 Private Sub HScroll1_Change() Label1.FontSize = HScroll1.Value Text1.Text = HScroll1.Value End Sub 47. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:两个文本框，text1内容默认为空且Tabindex属性值为0，text2内容默认为空;一个框架frame1标题为“转换”，两个按钮在框架frame1中，command1标题为“小转大”，command2标题为“大转小”。(以上操作在属性窗口中完成) 3.按如下要求编写代码:在文本框text1中输入任意一串字母，当单击command1时，转换text1中内容为大写字母，在text2中显示出来，当单击command2时，转换text1中内容为小写字母，在text2中显示出来。(要求:编程时不准用变量，直接利用Lcase()和Ucase()函数) 运行后，如下图所示: 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() Text2.Text = UCase(Text1.Text) End Sub Private Sub Command2_Click() Text2.Text = LCase(Text1.Text) End Sub 48. 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:利用控件数组，在窗体上放置三个按钮，其中command1(0)标题为“启用”，command1(1)标题为“左上角”，command1(2) 标题为“放大”。(以上操作在属性窗口中完成, 界面如下图所示) 3.在窗体装载(Load)事件中编写代码:启动窗体时“左上角”和 “放大”按钮不可用;单击“启用”按钮时，“左上角”和 “放大”按钮可用;单击“左上角” 按钮时，“启用”按钮移置到窗体左上角;每单击“放大”按钮时，“启用”按钮高度和宽度放大一倍，当“启用”按钮宽度超过初始宽度3倍时，用msgbox() 函数输出“对不起，按钮已经很大不能再放大”信息。(要求:编程时不准用变量) 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 Command1(1).Enabled = True Command1(2).Enabled = True Case 1 Command1(0).Top = 0 Command1(0).Left = 0 Case 2 If Command1(0).Width > 3 * 975 Then MsgBox "对不起，已经很大不能再放大" Else Command1(0).Width = Command1(0).Width * 2 Command1(0).Height = Command1(0).Height * 2 End If End Select End Sub Private Sub Form_Load() Command1(1).Enabled = False Command1(2).Enabled = False End Sub 49 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:两个标签，label1标题为“输入第一个数:”且自动调整大小匹配所显示的内容，label2标题为“输入第二个数:”且自动调整大小匹配所显示的内容;两个文本框，text1内容为空且tabindex属性值为0，text2内容为空;一个命令按钮,command1标题为“交换”。(以上操作在属性窗口中完成, 界面如下图所示) 3.在文本框text1和文本框text2中分别输入数，按要求编写代码:单击“交换”按钮时，如果第一个数大于第二个数，交换两个数，否则，弹出msgbox对话框，内容为“两数不需要交换”信息(使用分支语句时，用if …end if语句)。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() x = Val(Text1.Text) y = Val(Text2.Text) If x > y Then t = x x = y y = t Text1.Text = x Text2.Text = y Else MsgBox "两数不需要交换", vbOKOnly, "信息" End If End Sub 50 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:一个框架frame1标题为“登陆信息”;两个标签，label1标题为“用户名:”且自动调整大小匹配所显示的内容，label2标题为“密码:”且自动调整大小匹配所显示的内容;两个文本框，text1内容为空且tabindex属性值为0，text2内容为空且passwordchar属性值为“*”;两个命令按钮,command1标题为“登陆系统”，command2标题为“退出系统”(以上操作在属性窗口中完成, 界面如下图所示) 3.在文本框text1和文本框text2中分别输入数据，按要求编写代码:单击“登陆系统”按钮时，如果用户名是“sej”,密码是“123”，弹出msgbox对话框，内容为“欢迎进入本系统”，否则弹出msgbox对话框，内容为“对不起，你的登陆信息有误，请重新输入”，清空文本框text1和文本框text2，文本框text1获得焦点;单击“退出系统”按钮时，退出系统。 (使用分支语句时，用if …end if语句)。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() xm = Text1.Text mm = Text2.Text If xm = "sej" And mm = "123" Then MsgBox "欢迎进入本系统" Else MsgBox "对不起，你的登陆信息有误，请重新输入" Text1.Text = "" Text2.Text = "" Text1.SetFocus End If End Sub Private Sub Command2_Click() End End Sub 51 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:一个驱动器列表框;一个目录列表框;一个文件列表框Pattern属性值为“*.jpg;*.bmp”;一个图象框Stretch属性值为True。(以上操作在属性窗口中完成) 3.按要求编写代码使得驱动器列表框Drive1、目录列表框Dir1和文件列表框File1同步工作;文件列表框中显示扩展名为BMP或JPG的图形文件;当单击文件列表框中的某个图形文件时，窗体上的图象框Image1中显示出该图片。 运行后，如下图所示: 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName) End Sub 52 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:一个标签label1标题为“请输入一个自然数:”;一个文本框text1内容为空且Tabindex属性值为0;一个命令按钮command1标题为“添加”;一个列表框list1。(以上操作在属性窗口中完成) 3.在文本框中输入一个自然数，按要求编写代码:单击“添加”按钮时，首先清除列表框中的内容，然后在列表框中列出小于等于该自然数的所有偶数。 运行后，如下图所示: 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() List1.Clear x = Val(Text1.Text) For i = 1 To x If i Mod 2 = 0 Then List1.AddItem i End If Next End Sub 53 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文 件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置增加以下控件:两个标签，Label1标题为“随机产生一个三位十进制整数”且自动调整大小匹配所显示的内容，label2标题为空;两个按钮，command1标题为“产生随机数”，command2标题为“判别”且不可用;文本框text1,value值默认为空。(以上属性要求在属性窗口完成) 3.在窗体装载事件中，要求程序运行时屏幕居中，鼠标单击command1时, 文本框text1中会随机产生一个三位十进制整数,同时command2可用，单击command2时，判别text1中数的奇偶性，在label2中显示该数是奇数或该数是偶数，同时command2不可用。(运行后如下图所示) 4.请先调试、运行，然后将工程、窗体保存。 54 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:两个标签，label1标题为“源字符:”，label2标题为“转换字符:”;两个文本框，text1内容为空且Tabindex属性值为0，text2内容为空;两个单选按钮，option1标题为“逆序”，option2标题为“正序”。(以上操作在属性窗口中完成) 3.在文本框text1中输入一串字符，按要求编写代码:单击“逆序”按钮时，在文本框text2中逆序显示文本框text1中的内容;单击“正序”按钮时，在文本框text2中显示文本框text1中的内容 。(要求在“逆序”按钮click代码中使用 for….next语句和 mid()函数) 运行后，如下图所示: 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Option1_Click() s = "" nstr = Text1.Text m = Len(Text1.Text) For i = m To 1 Step -1 s = s & Mid(nstr, i, 1) Next Text2.Text = s End Sub Private Sub Option2_Click() Text2.Text = Text1.Text End Sub 55 在考生文件夹中，完成以下要求: 1. 启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体 文件Sjt.frm的窗体名改为“VBBC”。 2. 请在该工程中新添加一个窗体，窗体名为“form2”,保存该窗体文件名为form2.frm。 3. 请在适当位置添加控件:在窗体名为“VBBC”的窗体上添加两个命令按钮，command1标题为“显示”，command2标题为“退出”。(以上操作在属性窗口中完成, 界面如下图所示) 4.按要求编写代码:在窗体名为“VBBC”的窗体上，单击“显示”按钮时，“VBBC”窗体隐藏，“FORM2”窗体显示，单击“FORM2”窗体时，卸载“FORM2”窗体，“VBBC”窗体显示;单击“退出”按钮时，结束程序。 5.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() vbbc.Hide Form2.Show End Sub Private Sub Command2_Click() End End Sub Form2 的代码 Private Sub Form_Click() Unload Me vbbc.Show End Sub 56 在考生文件夹中，完成以下要求: 1. 启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体 文件Sjt.frm的窗体名改为“VBBC”。 2. 请在适当位置添加控件:两个标签，label1标题为“选择”且自动调整大小匹配所显示的内容，label2标题为“显示”且自动调整大小匹配所显示的内容;一个组合框combo1; 一个文本框text1。(以上操作在属性窗口中完成) 3.在窗体装载事件中编写代码，为组合框添加三个选项:“合肥市”，“南京市”，“广州 市”，且默认选项为“合肥市”;程序运行时，选中组合框某项，则在文本框中显示该 城市是哪个省的省会。 程序运行后，如下图所示: 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Combo1_Click() Select Case Combo1.ListIndex Case 0 Text1.Text = "安徽省省会" Case 1 Text1.Text = "江苏省省会" Case 2 Text1.Text = "广东省省会" End Select End Sub Private Sub Form_Load() Combo1.AddItem "合肥市" Combo1.AddItem "南京市" Combo1.AddItem "广州市" Combo1.ListIndex = 0 End Sub 57.在考生文件夹中，完成以下要求: 1. 启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体 文件Sjt.frm的窗体名改为“VBBC”。 2. 请在适当位置添加控件:一个标签，label1标题为“字体”且自动调整大小匹配所显示的内容;一个组合框combo1; 一个文本框text1内容为“计算机水平考试”，居中显示;一个框架Frame1标题为“颜色”;两个命令按钮在框架Frame1中，option1标题为“红色”，option2标题为“蓝色”。(以上操作在属性窗口中完成) 3.窗体装载事件中编写代码，为组合框添加三个选项:“隶书”，“黑体”，“宋体”，且默认选项为“隶书”;程序运行时，选中组合框某项，相应改变文本框中的字体;选中某个单选按钮，相应改变文本框中字的颜色。(要求关于颜色代码使用RGB()函数) 程序运行后，如下图所示: 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Combo1_Click() Select Case Combo1.ListIndex Case 0 Text1.FontName = "隶书" Case 1 Text1.FontName = "黑体" Case 2 Text1.FontName = "宋体" End Select End Sub Private Sub Form_Load() Combo1.AddItem "隶书" Combo1.AddItem "黑体" Combo1.AddItem "宋体" Combo1.ListIndex = 0 End Sub Private Sub Option1_Click() Text1.ForeColor = RGB(255, 0, 0) End Sub Private Sub Option2_Click() Text1.ForeColor = RGB(0, 0, 255) End Sub 58 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“SPKS”，并将该工程中的窗体文 件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加以下控件:标签Label1，标题改为“姓名:”;标签label2，标题改为空，不可视;两个按钮，command1，标题为“确定”，command2，标题为“取消”;文本 框text1，value值空。(以上属性要求在属性窗口完成。) 3.要求:文本框中没有内容而直接单击“确定”按钮，则调用Msgbox()函数，给出“请输入姓名”的提示信息并使Text1获得焦点，反之，单击“确定”按钮，使Label2显示，且 标题改为“您的姓名是:”及文本框中输入的内容。单击“取消”按钮可结束程序运行。 运行效果如下图。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() If Text1.Text = "" Then MsgBox ("请输入姓名") Text1.SetFocus '获得焦点 Else Label2.Visible = True Label2.Caption = "您的姓名是:" + Text1.Text '此处也可用 “&”连接 End If End Sub Private Sub Command2_Click() End End Sub 59 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加以下控件:两个标签Label1 、label2标题分别改为“姓名”、“成绩”;两个文本框Text1,Text2，Value属性值均为空;一个Picture控件Picture1;两个命令按钮Command1、 Command2，标题分别改为“确定”、 “清空”。(以上操作在属性窗口中完) 3.要求在两个文本框中分别输入姓名和成绩后，单击“确定”按钮，在Picture1中输出相应信息(要求用Select Case语句实现)。单击“清除”按钮可将两个文本框的内容和Picture1中的信息清除。 成绩判定 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 >=90 “优” >=80 “良” >=70 “中” >=60 “及格” <60 “不及格” 运行效果如下图。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() Select Case Val(Text2.Text) Case Is >= 90 Picture1.Print "姓名:" & Text1.Text Picture1.Print "成绩:" & "优" Case Is >= 80 Picture1.Print "姓名:" & Text1.Text Picture1.Print "成绩:" & "良" Case Is >= 70 Picture1.Print "姓名:" & Text1.Text Picture1.Print "成绩:" & "中" Case Is >= 60 Picture1.Print "姓名:" & Text1.Text Picture1.Print "成绩:" & "及格" Case Else Picture1.Print "姓名:" & Text1.Text Picture1.Print "成绩:" & "不及格" End Select End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Picture1.Cls End Sub 60 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文 件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:两个标签:Label1、label2，标题分别改为“姓名”、“密码”; 两个文本框，Text1,Text2，Value属性值均为空，用来输入密码的文本框Text2设置掩码属 性为“*”;两个命令按钮:Command1 、Command2，标题分别改为“确定”、“关闭”。(以 上操作在属性窗口中完成) 3.要求在两个文本框中分别输入姓名和密码后，单击“确定”按钮，判定Text2中输入的内容是否等于“ABC”(区分大小写)，如果相等则用消息对话框Msgbox()函数输出“密码正确”的信息，否则输出“密码错误”的信息;单击“关闭”按钮可结束程序运行。 运行效果如下图。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() If UCase(Text2.Text) = "ABC" Then MsgBox ("密码正确") Else MsgBox ("密码错误") End If End Sub 61 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:一个文本框Text1，Value属性值为空;两个复选按钮Check1、Check2，标题分别改为“加粗”、“倾斜”，Enabled属性值均为False;一个命令按钮，标题改为“清除”。(以上操作在属性窗口中完成) 3.要求在文本框中一旦输入内容，则使两个复选框有效(借助Text1的“Keypress”事件);选中“加粗”，文本框中的字型为加粗，否则为不加粗，选中“倾斜”，文本框中的字型为倾斜，否则不倾斜;单击“清除”按钮，清除文本框中的内容，并且使两个复选框无效。 运行效果如下图。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Check1_Click() Text1.FontBold = Check1.Value End Sub Private Sub Check2_Click() Text1.FontItalic = Check2.Value End Sub Private Sub Command1_Click() Text1.Text = "" Check1.Enabled = False Check2.Enabled = False End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Check1.Enabled = True Check2.Enabled = True End Sub 62 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:一个文本框Text1，Value属性值为空;两个标签Label1和Label2，Label1的标题改为“字号”，Label2的标题改为空;且Label2的Visual属性设为假;一个水平滚动条控件Hscroll1，设置滚动条的值的取值范围为[9，32]，每次最大改变值为2，最小改变值为1。(以上操作在属性窗口中完成) 3.要求如果触发Hscroll1的Scroll事件和Change事件均能使文本框的字号等于Hscroll1的当前值，同时显示Label2，且改变其标题为“字号为”和Hscroll1的当前值。 运行效果如下图。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub HScroll1_Change() Text1.FontSize = HScroll1.Value Label2.Caption = "字号为" & HScroll1.Value End Sub Private Sub HScroll1_Scroll() Text1.FontSize = HScroll1.Value Label2.Caption = "字号为" & HScroll1.Value End Sub 63 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:一个文本框Text1，Value属性值为空;两个单选按钮Option1和Option2，标题分别改为“黑体”和“隶书”，Enabled属性值均为假。;一个命令按钮Command1，标题改为“清除”。(以上操作在属性窗口中完成) 3.要求一旦在文本框中有按键操作则两个单选按纽有效(借助文本框的KeyPress事件实现);选中“黑体”单选按纽设置文本框中字体为“黑体”，选中击“隶书”单选按钮，设置文本框的字体为“隶书”;选中“清除”按钮，清空文本框，并且使两个单选按钮失效。 运行效果如下图。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() Text1.Text = "" Option1.Enabled = False Option2.Enabled = False End Sub Private Sub Option1_Click() Text1.FontName = Option1.Caption End Sub Private Sub Option2_Click() Text1.FontName = Option2.Caption End Sub Private Sub Text1_Change() Option1.Enabled = True Option2.Enabled = True End Sub 64 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:两个文本框Text1、Text2，Value属性值均为空;一个组合框Combo1。(以上操作在属性窗口中完成) 3.要求窗体装载时给组合框添加三个项目“小写转大写”、“大写转小写”、“测长度”;窗体运行时，在Text1中输入字母后，选择“小写转大写”Text2的值取Text1的值转换成大写字母的结果;选择“大写转小写”Text2的值取Text1的值转换成小写字母的结果;选择测长度可将测得的Text1中字符长度的结果放在Text2中。 运行效果如下图。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Combo1_Click() Select Case Combo1.ListIndex Case 0 Text2.Text = UCase(Text1.Text) Case 1 Text2.Text = LCase(Text1.Text) Case 2 Text2.Text = Len(Text1.Text) End Select End Sub Private Sub Form_Load() Combo1.AddItem "小写转大写" Combo1.AddItem "大写转小写" Combo1.AddItem "测长度" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) < "A" Or Chr(KeyAscii) > "z" Then MsgBox ("请输入字母") KeyAscii = 0 End If End Sub 65 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:一个驱动器列表框Drive1,目录列表框Dir1,文件目录列表框File1,一个图片框Picture1。(以上操作在属性窗口中完成) 3.要求实现驱动器列表框、目录列表框、文件目录列表框三者同步;单击文件列表框中的某个文件，可在Picture1中输出文件路径和文件名。 运行效果如下图。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() Picture1.Cls Picture1.Print File1.Path & File1.FileName End Sub 66(在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:一个标签Label1,标题改为“内存容量”，一个文本框Text1,其值设为空;两个命令按钮Command1、Command2，标题分别改为“确定”、“取消”(以上操作在属性窗口中完成) 3.要求在文本框中输入内容后，单击“确定”按钮，如果文本框中无内容，用Msgbox()函数输出信息“请输入数据”，反之，如果最后两个字符是“MB”(忽略大小写),前面的字符为数字字符，用Msgbox()函数输出信息“内存为:”和输入的内容，否则用Msgbox()函数输出信息“数据有误”;单击“取消”按钮可结束程序运行。 运行效果如下图。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() If Text1.Text = "" Then MsgBox ("请输入数据") Else If Not IsNumeric(Mid(Text1.Text, 1, Len(Text1.Text) - 2)) Or UCase(Right(Text1.Text, 2)) <> "MB" Then MsgBox ("数据有误") Else MsgBox ("内存为:" & Text1.Text) End If End If End Sub Private Sub Command2_Click() End End Sub 67 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:一个标签Label1,标题改为“请输入手机号:”，一个文本框Text1,其值设为空;允许输入的字符数最多11个，两个命令按钮Command1、Command2，标题分别改为“确定”、“取消”(以上操作在属性窗口中完成) 3.要求窗体装载时，文本框的值取“13”，输入手机号码时，一旦键入非数字字符，用 Msgbox函数输出“请输入数字符号”的提示信息;输入手机号码后，单击“确定”按钮，如果数字符号不足11位，用Msgbox函数输出“手机号为11位数字”，反之，用Msgbox函数输出是“联通用户”还是“移动用户”的判定结果(第三位数字为0、1、3是联通用户，5，6，7，8，9为移动用户，其它为“空号”，要求用 Select Case结构实现);单击“取消”按钮可结束程序运行。 运行效果如下图。 4( 先调试、运行，然后将工程、窗体保存。 Private Sub Form_Load() Text1.Text = "13" Text1.SelStart = 3 End Sub Private Sub Command1_Click() If Len(Trim(Text1.Text)) <> 11 Then MsgBox ("手机号为11数字") Text1.Text = "13" Text1.SelStart = 3 Text1.SetFocus Else Select Case Mid(Text1.Text, 3, 1) Case 0, 1, 3 MsgBox ("联通用户") Case 5, 6, 7, 8, 9 MsgBox ("移动用户") Case Else MsgBox ("空号") End Select End If End Sub Private Sub Command2_Click() End End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then MsgBox ("请输入数字符号") KeyAscii = 0 End If End Sub 68 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:一个标签Label1，标题改为“选修课程”，三个复选框Check1、Check2、Check3，标题分别改为“vb”、“vc”、“vfp”;两个命令按钮Command1、Command2，标题分别改为“确定”、“取消”(以上操作在属性窗口中完成) 3.要求程序运行时，单击“确定”按钮可用Msgbox()函数输出选中的门数;单击“取消”按钮可结束程序运行。 运行效果如下图。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() Dim i As Integer If Check1.Value = 1 Then s = s & Check1.Caption i = i + 1 End If If Check2.Value = 1 Then s = s & Check2.Caption i = i + 1 End If If Check3.Value = 1 Then s = s & Check3.Caption i = i + 1 End If If i <> 0 Then MsgBox ("您选修的课程有" & i & "门") Else MsgBox ("您没有选择") End If End Sub Private Sub Command2_Click() End End Sub 69 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:一个文本框Text1,其值设为空，有两个滚动条，只读;四个命令按钮Command1、command2、Command3、Command4标题分别改为“编辑”、“只读”、“显示”、“掩码”(以上操作在属性窗口中完成) 3.要求程序运行时，单击“编辑”按钮可在文本框中输入内容进行编辑，单击“只读”按钮，文本框不可编辑，单击“显示”按钮去掉文本框的掩码，单击“掩码”，文本框设置掩码为“*”。 运行效果如下图。” 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() Text1.Locked = False End Sub Private Sub Command2_Click() Text1.Locked = True End Sub Private Sub Command3_Click() Text1.PasswordChar = "" End Sub Private Sub Command4_Click() Text1.PasswordChar = "*" End Sub 70 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:三个标签Label1、Label2、Label3，标题分别改为“题目”、“10.VB采用事件驱动的编程机制”、“答案”;两个单选按钮Option1、Option2标题，分别改为“是”、“否”。(以上操作在属性窗口中完成) 3.要求程序运行时，单击“确定”按钮可进行判断，如果选择Option1用Msgbox()函数输出“正确”，否则输出“错误”信息;单击“取消”按钮可结束程序运行。运行效果如下图。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() If Option1.Value = True Then MsgBox ("选择正确～") Else MsgBox ("选择错误～") End If End Sub Private Sub Command2_Click() End End Sub 71 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:一个文本框Text1，其值设为空;两个命令按钮Command1、 Command2标题分别改为“放大”、“缩小”。(以上操作在属性窗口中完成) 3.要求程序运行时，单击“放大”按钮可将文本框中的字随机放大1-3倍，同时用Msgbox()函数输出放大的倍数，单击“缩小”按钮随机缩小1-3倍，同时用Msgbox()函数输出缩小的倍数。运行效果如下图。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() Randomize If Text1.FontSize <= 32 Then a = Int(Rnd * 3 + 1) Text1.FontSize = Text1.FontSize * a MsgBox "放大了" & a & "倍" End If End Sub Private Sub Command2_Click() Randomize a = Int(Rnd * 3 + 1) If Text1.FontSize >= 9 Then Text1.FontSize = Text1.FontSize / a MsgBox "缩小了" & a & "倍" End If End Sub 72 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:一个命令按钮Command1。(以上操作在属性窗口中完成) 3.要求程序运行时，每次单击命令按钮后，标题均改为已单击的次数(要求使用静态变量存放单击的次数)，同时用Msgbox()函数输出单击的次数，第10次单击后命令按钮无效。运行效果如下图。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() Static I As Integer I = I + 1 If I = 10 Then Command1.Caption = I MsgBox ("您单击了" & I & "次") Command1.Enabled = False Else Command1.Caption = I MsgBox ("您单击了" & I & "次") End If End Sub 73 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文 件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:一个标签Label1，标题置为空;两个单选按钮Option1、Option2，标题分别改为“显示日期”、“显示时间”，一个时钟控件Timer1，其Enabled属性设为假。(以上操作在属性窗口中完成) 3.要求程序运行时，选择“显示日期”时钟控件有效，每隔二秒闪烁显示一次系统日期， 选择“显示时间”每隔一秒闪烁显示一次系统时间。运行效果如下图。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Option1_Click() Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Option2_Click() Timer1.Enabled = True Timer1.Interval = 500 End Sub Private Sub Timer1_Timer() If Option1.Value = True Then Label1.Caption = Date Else Label1.Caption = Time End If Label1.Visible = Not Label1.Visible End Sub Private Sub Form_Load() List1.AddItem "Visual Basic" List1.AddItem "Visual Foxpro" List1.AddItem "C#" End Sub Private Sub List1_DblClick() List2.AddItem List1.Text List1.RemoveItem List1.ListIndex Text1.Text = List2.ListCount End Sub 74 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:一个文本框Text1，其值置为空，两个命令按钮Command1、Command2，标题分别改为“添加”、“删除” ，Command2的Enabled属性值设为假;一个列表框。(以上操作在属性窗口中完成) 3.要求程序运行时，单击“添加”按钮如果文本框中有内容，则将文本框中的内容添加到列表框中，选中列表框中的某一项，命令按钮“删除”有效，单击“删除”按钮可将该项删除。运行效果如下图。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() If Text1.Text <> "" Then List1.AddItem Text1.Text End If End Sub Private Sub Command2_Click() If List1.ListIndex <> -1 Then List1.RemoveItem List1.ListIndex End If End Sub Private Sub List1_Click() Command2.Enabled = True End Sub 75 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:三个标签Label1、Label2、Label3，标题分别改为“课程”、“选修课程”、“选修门数”;两个列表框List1、List2。(以上操作在属性窗口中完成) 3.要求窗体装载时，List1中添加项目“Visual Basic ”、“Visual Foxpro ”、“C#”;程序运行时，双击List1中的某一项可将该项添加到List2中，同时将该项从List1中删除，Text1中显示出当前List2中的项目数。运行效果如下图。 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Form_Load() List1.AddItem "Visual Basic" List1.AddItem "Visual Foxpro" List1.AddItem "C#" End Sub Private Sub List1_DblClick() List2.AddItem List1.Text List1.RemoveItem List1.ListIndex Text1.Text = List2.ListCount End Sub 76 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:一个标签Label1，标题改为“等级考试”;两个命令按钮Command1、command2标题分别改为“移动”、“暂停”，Command2的Enabled属性值为False，一个时钟控件Timer1,其Enabled属性值为False。(以上操作在属性窗口中完成) 3.要求程序运行时，单击“移动”按钮可使Timer1、 Command2有效;时钟控件每隔一秒触发一次Timer事件，该事件触发时可将标签向左移动，一旦整个标签出了窗体左端，要求标签再从窗体的右端开始移动。运行效果如下图。” 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() Command2.Enabled = True Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() If Label1.Left + Label1.Width >= 0 Then Label1.Left = Label1.Left - 60 Else Label1.Left = Form1.Width End If End Sub 77 在考生文件夹中，完成以下要求: 1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”。 2.请在适当位置添加控件:两个文本框Text1、Text2,其值均设为空，Text2有垂直滚动条;两个命令按钮Command1、command2标题分别改为“复制”、“移动”(以上操作在属性窗口中完成) 3.要求程序运行时，单击“复制”按钮可将Text1中选定的内容复制到Text2中，单击“移动”按钮可将选定的内容移动到第二个文本框中。运行效果如下图。” 4.请先调试、运行，然后将工程、窗体保存。 Private Sub Command1_Click() Text2.Text = Text2.Text & Text1.SelText End Sub Private Sub Command2_Click() Text2.Text = Text2.Text & Text1.SelText Text1.SelText = "" End Sub