VB期末考试上机模拟题(附代码)

一、基本操作问题根据以下每个问题的要求设计Visual Basic应用程序(包括界面和代码):1.在名为Form1的表单中绘制名为Chk1的复选框数组(Index属性从0开始)。包括标题“语言”、“数学”和“英语”，以及三个复选框。使用属性窗口不选择语言，选择了数学，英语显示为灰色，表单标题设置为可选，运行程序的表单界面如图所示。2、在表单上绘制命令按钮。名称为Cmd1，标题为“清除”。如图1所示，单击命令按钮将清除表单标题，并编写相应的事件进程，以便程序运行后，程序运行时表单界面成为“VB期末机器测试”，如图2所示。Private Sub Command1_Click()Form1 .Caption= End SubPrivate Sub Form_Load()Form1 .Caption=VB期末考试End Sub图1图23、在名为Form1的表单上绘制命令按钮。名称为Cmd1，标题为“转到左上角”。创建相应的事件进程，以便在程序运行时(例如单击命令按钮)，按钮移动到表格的左上角。程序不能使用任何变量。程序运行时表单界面如图所示。Private Sub Command1_Click()command 1 . top=0: command 1 . left=0End Sub4.在名为Form1的表单中创建名为L1的标签。标题为“选修课”，大小为4。再设置三个复选框，名称分别为Chk1、Chk2和Chk3，标题为“操作系统”、“数据库原理”和“概率理论”。字体大小为14。在这里，概率论被禁用，接口运行。5、在表单1中的表单上绘制命令按钮。名称为Cmd1，标题为“显示”。绘制另一个名为Txt1的文本框，以创建相应的事件进程。使文本框在程序运行后加载表单时不可见。例如，双击表单将显示文本框。单击命令按钮时，文本框中将显示“期末考试”，如图所示。Private Sub Command1_Click()Text1 .Text=期末考试End SubPrivate Sub Form_DblClick()Text1 .Visible=TrueEnd SubPrivate Sub Form_Load()Text1 .Visible=FalseEnd Sub6，在名为Form1的表单中绘制组合框和命令按钮。组合框的名称为Cbo1，初始内容为空，有三种选择：“长跑”、“游泳”和“跳远”。命令按钮名为Cmd1、Opt2，标题为ok。程序运行时，在组合框中选择项目，然后单击命令按钮，就会弹出名为“选定项目”的对话框。程序不能使用任何变量。程序运行时表单界面如图所示。Private Sub Command1_Click()已选择“MsgBox”组合1.textEnd Sub7，要在名为Form1的表单中绘制名为H1的水平滚动条，请在“属性”窗格中，单击最大刻度值为100、最小刻度值为1、运行时滚动条滚动框以外的区域(不包括两侧的按钮)，然后移动滚动框以设置属性值。滚动条下方绘制了两个标签(L1和L2)，运行时表单界面分别显示1和100，如图所示。Private Sub Form_Click()h scroll 1 . value=h scroll 1 . value 10End Sub8，在名为Form1的表单上绘制两个没有初始内容的文本框。建立名为动作、M1的功能表标题和名为Copy和Clear的两个子功能表项目，以及分别复制和删除的下拉式功能表。程序运行时，单击“复制”菜单项将Text1的内容复制到Text2，然后单击“清除”菜单项创建相应的事件过程以清除Text2的内容。程序运行时表单界面如图所示。程序不能使用变量，并且每个事件进程只能写入一个语句。Private Sub clear_Click()Text2 .Text= End SubPrivate Sub copy_Click()Text2 .Text=Text1。TextEnd Sub9，在Form1的表单上绘制文本框。文本框名为Text1，运行程序时在文本框中输入文字，文本框中的文字向表单的标题栏分配值。不能在程序代码中使用变量。程序运行时表单界面如图所示。Private Sub Text1_Change()Form1 .Caption=Text1。TextEnd Sub10、表单包含名为text1的文本框，具有名为C1、标题为“检查”的命令按钮。其中文本框用于输入密码，文本框中必须输入的内容显示为“*”(通过属性窗口设置)。程序运行后，输入密码，单击命令按钮，然后确认密码。如果输入内容是三个大写字母，即“ABC”，则输出“精确”到MsgBox信息框，否则输出“错误”。如图所示。Private Sub Command1_Click()If Text1。Text=ABC ThenMsgBox(“精确”)ElseMsgBox(“错误”)End IfEnd Sub二、简单的应用问题1，表单Form1中已有两个文本框。一个是命令按钮，一个命令按钮标题是转换。必须将三个单选按钮添加到表单中：Opt1、Opt2、Opt3、转换标题大小写、全部大写和全部小写。如果有代码需要补充整个“代码”窗口，则在Text1中输入一段文字，选择大小写转换，然后单击“转换”按钮，Text2将显示大小写相反的字符串；选择“全部大写字母”并单击转换按钮后，Text2将显示全部大写字符串，选择“全部小写”，单击转换按钮后，Text2将显示全部小写字符串。界面如图所示。Private Sub Command1_Click()Dimn as integer、k as integer、ch as string、a as stringCh= If Opt1 .Value=True ThenN=Len(Text1)For k=1 To nA=Mid$(Text1，k，1)If a=a And a=z ThenCh=ch UCase(a)ElseIf a=A And a=Z ThenCh=ch LCase(a)ElseCh=ch aEnd IfNext kEnd Ifif opt 2 . value=true then ch=ucase(text 1)if opt 3 . value=true then ch=lcase(text 1)Text2=chEnd Sub2、编写程序，显示列表框控件的基本操作。在表单中创建两个列表框和两个命令按钮。程序运行后，在第一个列表框中选择所需项目，然后单击“添加”按钮将选定项目移动到第二个列表框中。单击“删除”按钮将执行相反的操作。程序运行时表单界面如图所示。3、设置表格中名为“最大输出”的命令按钮。必须生成30个0100的随机整数，放在一个数组中，输出其中的最大值。程序中的“？”请插入，弧的地点是完整的。程序运行时的效果如下：Option Base 1Private Sub Command1_Click()Dimarrn (30) as integer，max as integerRandomizeFor I=1 To 30Arrn(i)=Int(Rnd * 101 0)下一步IMax=arrn(1)For I=2 To 30If max m ThenM=bEnd IfIf c m ThenM=cEnd IfIf d m ThenM=dEnd IfFindMax=mEnd FunctionPrivate Sub Command1_Click()Dim n1、n2、n3、n4、max As Longn1=val(text 1): N2=val(text 2): n3=val(text 3): n4=val(text 4)Max=FindMax%(n1、n2、n3、n4)Print maxEnd Sub8、有不完整的文件。“？”完成程序的地方Orm包含text1、command1，需要将文本添加到text1，但是如果显示为“*”，文本为“ABC”，则msgbox“正确”否则，msgbox“错误”为了提供程序：Private Sub command1。Click()If text1.text=ABC then