Vb十套模拟题及答案.doc

《Vb十套模拟题及答案.doc》由会员分享，可在线阅读，更多相关《Vb十套模拟题及答案.doc（20页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Vb答案第一套1 在名称为 FORM1 的窗体上放置一个名为 TEXT1 的文本框控件和一个名为TIMER1的计时器控件，请设置计时器的适当属性并且编写适当的事件过程，使得程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。（如示例所示）*注意：程序中不得使用任何变量，只能写一条语句；保存时必须存放在考生文件夹下， 窗体文件名为SJT1.FRM，工程文件名为SJT1.VBP。Private Sub Timer1_Timer()Text1.Text = TimeEnd Sub2 在窗体FORM1上画一个组合框，名称为CBO1,有“长跑”、“游泳”、“跳远

2、”三个可供选择项。再画一个命令按钮，名称为CMD1,标题为“确定”。编写适当的事件过程，使得程序运行时，选择组合框中的某项，单击命令按钮后，就会弹出一个消息框，内容为“您选择了(某项)”如示例。 注意： 1)程序中不得使用任何变量。2)保存时必须存放在考生文件夹下，窗体文件名为SJT2.FRM,工程文件名为SJT2.VBPPrivate Sub Cmd1_Click()MsgBox 您选择了 & CBO1.TextEnd Sub3 在考生文件夹中有文件SJT3.VBP及其窗体文件SJT3.FRM，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号），但不能修改其它部分

3、。存盘时不得改变文件名和文件夹。 本题描述如下： 在窗体上画一个名称为TEXT1的文本框，小四号字，再画两个名称分别为CH1和CH2，标题分别为C程序设计和VB程序设计的复选框，小四号字，一个名称为C1，标题为确定的命令按钮。编写适当的事件过程，要求程序运行后，如果只选中CH1，然后单击确定命令按钮，则在文本框中显示学习C程序设计;如果只选中CH2，然后单击确定命令按钮，则在文本框中显示学习VB程序设计；如果同时选中CH1和CH2，然后单击确定命令按钮，则在文本框中显示学习C程序设计VB程序设计。Private Sub c1_Click()Text1 = 学习 & IIf(Ch1.Value

4、= 1, Ch1.Caption, ) & IIf(Ch2.Value = 1, Ch2.Caption, )End Sub4 在窗体上画三个复选框，名称分别为CH1、CH2、CH3,标题依次为“体育”、“音乐”、“美术”；一个标签，名称为L1,标题为“爱好：”；还有一个命令按钮，名称为CMD1,标题为“显示”。要求程序运行后，如果选中某个复选框，则当单击“显示”命令按钮时，按照“示例”显示相应的信息。 在考生文件夹中已有工程文件SJT4.VBP以其窗体文件SJT4.FRM,该程序是不完整的，请在有？号的地方填入正确内容，然后删除？以其所有注释符（）但不能修改其它部分。存盘时不得改变文件存放路

5、径和文件名。Private Sub Cmd1_Click()ClsDim s As Strings = 我的爱好是If Ch1.Value = 1 Thens = s + Ch1.CaptionEnd IfIf Ch2.Value = 1 Thens = s + Ch2.CaptionEnd IfIf Ch3.Value = 1 Thens = s + Ch3.CaptionEnd IfPrint sEnd Sub5 在考生文件夹下已有一个工程文件SJT5.VBP，相应的窗体文件为SJT5.FRM。请在窗体上画一个文本框，名称为TEXT1,并设置适当的属性使得文本框允许输入多行文本，并具有垂直

6、滚动条；再画两个命令按钮，名称分别为C1、C2，标题分别为“产生100个随机数”、“输出最小值”。该程序的功能是产生100个01000的随机整数，放入一个数组中（数组下界从1开始），并且在文本框中显示出来，然后输出其中的最小值。程序运行后，单击C1(程序中已有一READNUMBER过程可产生100个随机数并在文本框中显示出来，请调用),在文本框中显示随机产生的100个整数，单击C2(编写C2_CLICK()事件)，在文本框中输出其中最小值。（注：“示例”中显示的随机数与实际产生的随机数有可能不一致）。要求： 去掉程序中的注释符，把程序中的？改为正确的内容，并编写C2_CLICK()事件，使其实

7、现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。注意：程序的其它部分不得改动，点击窗体上的“关闭”结束程序运行。Dim a(1 To 100) As IntegerPrivate Sub C1_Click()Call readNumberEnd SubSub readNumber()Text1.Text = RandomizeFor i = 1 To 100a(i) = Int(Rnd * 1000)Text1.Text = Text1.Text & a(i) & Next iEnd SubPrivate Sub C2_Click()Min = a(1)For i =

8、 1 To 100If a(i) Min Then Min = a(i)Next iText1.Text = MinEnd SubPrivate Sub Form_Unload(Cancel As Integer)On Error Resume NextOpen PATHget5.dat For Output As #1C1_ClickPrint #1, Text1C2_ClickPrint #1, Text1Close #1End Sub第二套1 在窗体上画一条直线，名称为LINE1,同时，在窗体上拖拉出一个命令按钮，名称为CMD1,标题为加粗。编写适当的事件过程，使程序运行后，如果单击CM

9、D1命令按钮，直线的宽度值为10。 注意：1)不得使用任何变量,只能写一条语句。 2)保存时必须存放在考生文件夹下，窗体文件名为SJT1.FRM,工程文件名为SJT1.VBP。Private Sub Cmd1_Click()Line1.BorderWidth = 10End Sub2 在考生文件夹下有一工程文件SJT2.VBP在名称为FORM1的窗体上有一个名称为P1的图片框，图片框中已放入一图片；请考生再画一个通用对话框控件，名称为CD1，利用属性窗口设置相应属性，即打开对话框时；标题为“打开文件”，对话框的类型列表框为“WORD文档|*.DOC”，初始目录为C:。再编写适当的事件过程，使得

10、在运行时，单击P1图片框，可以打开上述对话框。运行后的窗体如示例所示。 注意： 只能写一条语句。 做完后按原名存盘。程序中不得使用任何变量。Private Sub p1_Click()Cd1.ShowOpenEnd Sub3 在考生文件夹下已有工程文件SJT3.VBP及窗体文件SJT31.FRM,SJT32.FRM,打开工程文件后请将SJT32.FRM添加进工程并设为启动窗体，将FORM1的标题栏设为“第一窗体”FORM2的标题栏设为“第二窗体”，在FORM1上画一列表框LIST1，在FORM2上画一文本框TEXT1,和一命令按钮C1标题为“添加到第一窗体”，当程序运行时FORM1随FORM2

11、同时启动，当在FORM2的TEXT1中填写字符串后单击。“添加到第一窗体”可将TEXT1的内容添加到FORM1的列表框LIST1中，如示例所示。 该程序是不完整的,请在有？号的地方填入正确内容，然后删除？及所有注释符（即号），但不能修改其它部分。存盘时不得改变文件名和文件夹。 Private Sub c1_Click()Form1.List1.AddItem Text1End SubPrivate Sub Form_Load()Form1.ShowEnd SubPrivate Sub Form_Unload(Cancel As Integer)EndEnd Sub4 在窗体上画一个文本框，名称

12、为TEXT1,内有一个黑体的“华”字。再画一个水平滚动条，名称为HS1,在属性窗口中对水平滚动条设置如下的属性： MAX 80 MIN 10 LARGECHANGE 5 SMALLCHANGE 2 编写HS1_CHANGE()的事件过程，使程序运行后，如果移动水平滚动条上的滚动框，则可以扩大或缩小文本框中的汉字。 注意： 1) 程序中不得有任何变量,且事件过程中只能编写一条语句。2) 保存时必须存放在考生文夹下，窗体文件名为SJT4.FRM,工程文件名为SJT4.VBPPrivate Sub HS1_Change()Text1.FontSize = HS1.ValueEnd Sub5 在考生文

13、件夹下有一个工程文件SJT5.VBP及其窗体文件SJT5.FRM,在窗体上画两个复选框，名称分别为CH1、CH2,标题依次为“粗体”、“斜体”在窗体上再画一标签LABEL1,标题为“计算机中心”居中显示，三号字，运行后如果选择了“粗体”或“斜体”或单击列表框中的某种字体标签中的文字也产生相应的变化（如：示例）。 该程序是不完整的,请在有？号的地方填入正确内容，然后删除？及所有注释符（即号），但不能修改其它部分。存盘时不得改变文件名和文件夹。Private Sub ch1_Click()Label1.FontBold = Ch1.ValueEnd SubPrivate Sub ch2_Click

14、()Label1.FontItalic = Ch2.ValueEnd SubPrivate Sub List1_Click()Label1.FontName = List1.TextEnd Sub第三套1 在名称为FORM1的窗体上画一个文本框，名称为TEXT1,其初始内容为0，居中，小四号字；再画一个命令按钮，名称为COMMAND1,标题为“开始计数”；再画一个名称为TIMER1的计时器，要求程序开始运行时不计数，单击“开始计数”按钮后，则使文本框中的内容每秒加1，（以上均在属性窗口设定）；编写COMMAND1和TIMER1的事件过程完成上述要求（每过程只写一条语句，不得使用变量）。 做完后

15、请将窗体文件和工程文件分别以SJT1.FRM和SJT1.VBP命名存于考生文件夹下。Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Text1.Text = Text1.Text + 1End Sub2 在名称为FORM1的窗体上建立一个名称为COMMAND1，宽度为1500，高度为500，标题为“显示”的命令按钮，编写适当的事件过程，要求程序运行后，如果单击“显示”命令按钮，则在窗体上画一个以（1000，1000）为圆心，半径为800的园，单击窗体时该圆被清除。 每一事件过程只

16、写一条语句，不得使用变量。 做完后请将窗体文件和工程文件分别以SJT2.FRM和SJT2.VBP命名存于考生文件夹下Private Sub Command1_Click()Form1.Circle (1000, 1000), 800End SubPrivate Sub Form_Click()Form1.ClsEnd Sub3 在窗体FORM1上画一个列表框,名称为L1;一个文本框，名称为TEXT1;一个命令按钮，名称为CMD1,标题为“复制”。请编写适当的事件过程，要求程序运行后，在列表框中按顺序自动建立三个列表项（在FORM_LOAD()中编写），分别为“数学”、“语文”、“英语”。如果选

17、择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中（如“示例”所示）。 在考生文件夹中已有工程文件SJT3.VBP及其窗体文件SJT3.FRM，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（）但不能修改其他部分，并编写FORM_LOAD()事件过程，存盘时不得改变文件名和文件夹。Private Sub Cmd1_Click()Dim i%For i = 0 To L1.ListCount - 1If L1.Selected(i) = True ThenText1.Text = L1.List(L1.ListIndex)End IfNext iEnd Su

18、bPrivate Sub Form_Load()L1.List(0) = 数学L1.List(1) = 语文L1.List(2) = 英语End Sub4 在窗体上画一个名称为HS1的水平滚动条和三个名称分别为CMD1、CMD2、CMD3,标题分别为“左端”、“居中”和“右端”的命令按钮。请编写适当的事件过程，要求程序运行后，如果单击“左端”命令按钮，则滚动块位于滚动条最左端处；如果单击“居中”命令按钮，则滚动块位于滚动条中间（既1/2处）；如果单击“右端”命令按钮，则滚动块位于滚动条最右端处。 注意： 1）程序中不得使用任何变量,且每个事件过程中只能编写一条语句。 2）滚动条的MAX,MIN

19、任意，既在过程中只能引用“属性”而不能使用“常量”。 3）存盘时必须存放在考生文件夹下，窗体文件名为SJT4.FRM,工程文件名为SJT4.VBP。 程序运行时的窗体界面如“示例”所示。Private Sub Cmd1_Click()HS1.Value = HS1.MinEnd SubPrivate Sub Cmd2_Click()HS1.Value = (HS1.Min + HS1.Max) / 2End SubPrivate Sub Cmd3_Click()HS1.Value = HS1.MaxEnd Sub5 在考生文件夹下有一个工程文件SJT5.VBP及其窗体文件SJT5.FRM,其中

20、窗体上有一个名称为TEXT1的文本框；一个标签；一个有两个元素的单选按钮数组，名称为OP1，标题依次为“一秒”，“三秒”；请考生再画两个命令按钮，名称分别为C1,C2,标题分别为“开始计数”，“停止计数”；一个计时器控件TIMER1；已给出两个事件过程，但并不完整，在运行时要求完成下面的功能： 单击一个单选按钮可以设置计时间隔为一秒或三秒；单击“开始计数”按钮，则TEXT1中的数按设定的时间间隔每次加1；单击“停止计数”按钮，则TEXT1中的数不再变化（如：示例）。 请按下面要求设置属性和编写程序，以便实现上述功能： 1）设置计时器属性，使其在初始状态下不计时。 2）去掉程序中的注释符，把程序

21、中的？改为正确的内容。 3）为两个命令按钮编写适当的事件过程，每个事件过程只能有一条语句，不能使用任何变量。 注意：不能修改程序的其它部分，最后把修改后的文件按原文件名存盘。Private Sub C1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub C2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Op1_Click(Index As Integer)Select Case IndexCase 0Timer1.Interval = 1000Case 1Timer1.Interval = 3000

22、End SelectEnd SubPrivate Sub Timer1_Timer()Text1.Text = Text1.Text + 1End第四套1 在名称为FORM1的窗体上画一个标签，名称为L1,标签上显示“请输入密码”，在标签右面画一个文本框，名称为TEXT1,其宽、高分别为2000和500，设置适当的属性，使得在输入密码时，文本框中显示“”字符，此外再把窗体的标题设置为“密码窗口”(如示例所示)注意：1) 以上设置都只能在属性窗口中进行设置。2) 存盘时必须存放在考生文件夹下，工程文件名为SJT1.VBP,窗体文件名为SJT1.FRM。没有答案2 在名称为FORM1的窗体上画一个

23、命令按钮，名称为CMD1,其标题为“向右移动本按钮”。编写适当的事件过程，使得程序运行时，每单击命令按钮一次，按钮向右移动100。注意： 1) 程序中不得使用任何变量,且事件过程中只能编写一条语句。 2) 存盘时必须存放在考生文件夹下，工程文件名为SJT2.VBP,窗体文件名为SJT2.FRM。程序运行时的窗体界面如“示例”所示。Private Sub Cmd1_Click()Cmd1.Move Cmd1.Left + 100End Sub3 将名称为FORM1的窗体的标题栏设为“密码窗口”，并在窗体上画一个名称为L1的标签，标题为“密码”；画两个文本框，名称分别为TEXT1、TEXT2;再画

24、三个命令按钮，名称分别为CMD1、CMD2和CMD3,标题分别为“显示密码”、“隐藏密码”和“复制密码”，请设置适当属性，使得向TEXT1中输入的所有字符，都显示“”；请编写适当的事件过程，使得在运行时，单击“显示密码”按钮后，在TEXT1中显示所有字符，再单击“隐藏密码”按钮后，TEXT1中的字符不变，但显示的都是“？”，单击“复制密码”按钮后，在TEXT2中显示TEXT1中输入的实际密码。 要求： 1）设计相应的窗体与控件，并将窗体的标题改为“密码窗口”。 2）请编写适当的事件过程，每个过程中只允许写一条语句，且不能使用变量。3）存盘时必须存放在考生文件夹下，工程文件名为SJT3.VBP,

25、窗体文件名为SJT3.FRM。Private Sub Cmd1_Click()Text1.PasswordChar = End SubPrivate Sub Cmd2_Click()Text1.PasswordChar = ?End SubPrivate Sub Cmd3_Click()Text2.Text = Text1.Text End Sub4 在窗体上画一个形状控件和一个命令按钮，要求：形状为直径为1000的圆(形状控件的高，宽均为1000)，名称为SHP1；命令按钮为CMD1,标题为“隐藏”。编写适当的事件过程，使得程序运行时，单击命令按钮，将圆隐藏起来。注意： 1)程序中不得使用任

26、何变量，且只能写一条语句。2)保存时必须存放在考生文件夹下，窗体文件名为SJT4.FRM,工程文件名为SJT4.VBP。Private Sub Cmd1_Click()Shp1.Visible = FalseEnd Sub5 在考生文件夹下有一个工程文件SJT5.VBP及其窗体文件SJT5.FRM,请在窗体FORM1上画一个名称为TEXT2的文本框，居中显示，BORDERSTYLE 为0，再画一命令按钮COMMAND1,标题为“计算”。程序运行时，当单击“计算”按钮时，弹出输入对话框，输入一个整数后程序计算出数列1，2，3，5，8.的第N项的值并输出在TEXT2中。数列的第N项为它的前两项之和

27、。程序不完整去掉程序中的注释符，把程序中的？改为正确的内容。（如：示例）。 注意：不能修改程序的其它部分，最后把修改后的文件按原文件名存盘。Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, n As Integern = Val(InputBox(请输入N：)n = Fix(Abs(n)Text1 = nIf n Max Then Max = a(i)Next iText2.Text = MaxEnd SubPrivate Sub Command2_Click()Text1.Text = Text

28、2 = RandomizeFor i = 1 To 20a(i) = Int(Rnd * 100) + 1Text1.Text = Text1.Text & a(i) & NextEnd SubPrivate Sub Form_Unload(Cancel As Integer)On Error Resume NextText1 = Text2 = Command2_ClickCommand1_ClickOpen PATHget5.dat For Output As #1Print #1, Val(Text2)For i = 1 To 20Print #1, a(i)Next iCloseEnd

29、 Sub第六套1 在名称为FORM1的窗体上画一个图片框(如示例所示)，名称为P1。请编写适当的事件过程，使得程序运行时，每单击图片框一次，就在图片框中输出“单击图片框”一次；每单击图片框外的窗体一次，就在窗体中输出“单击窗体 注意：1)程序中不得使用任何变量,且每个事件过程中只能写一条语句。2)存盘时必须存放在考生文件夹下，工程文件名为SJT1.VBP,窗体文件名为SJT1.FRM。 程序运行时的窗体界面如“示例”所示。Private Sub Form_Click()Print 单击窗体End SubPrivate Sub p1_Click()p1.Print 单击图片框End Sub 2

30、在窗体上画一个名称为CH1的复选框数组(INDEX属性从0开始)，含三个复选框，标题分别为“语文”、“数学”、“英语”。利用属性窗口设置适当的属性，使得运行时，“语文”未选，“数学”被选中，“英语”为灰色，再把窗体的标题设置为“选课”。 注意： 1)以上设置都只能在属性窗口中进行设置。 2)存盘时必须存放在考生文件夹下，工程文件名为SJT2.VBP,窗体文件名为SJT2.FRM。程序运行时的窗体界面如“示例”所示。没有答案3 在考生文件夹下有工程文件SJT3.VBP,窗体文件SJT3.FRM以及一图片文件PIC31.ICO。该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符

31、（）但不能修改其他部分，存盘时不得改变原路径和文件名。该程序的窗体上的控件也是不完整的，要求设计好窗体完成题目的要求。 窗体设计要求如下： 在窗体上画两个命令按钮，名称分别为CMDSTART与CMDSTOP,标题分别为“开始”和“停止”；再画一个水平滚动条，名称为HS1,最大值为300,最小值为50；在滚动条两边设置两个标签，名称LABEL1和LABEL2，标题为“快”和“慢”,窗体上一有一图片框PICTURE1,请利用属性窗口将图片PIC31.ICO加载到图片框PICTURE1中。要求程序运行时，当单击“开始”按钮，图片开始运动，调整滚动块的位置，可以相应改变图片运动的速度；单击“停止”按钮

32、，图片停止运动。程序运行时的窗体界面如“示例”所示。Private Sub CmdStart_Click()Timer1.Enabled = TrueEnd SubPrivate Sub CmdStop_Click()Timer1.Enabled = FalseEnd SubPrivate Sub HS1_Change()Timer1.Interval = Hs1.ValueEnd SubPrivate Sub Timer1_Timer()If Picture1.Left Form1.Width ThenPicture1.Left = 0End IfPicture1.Left = Pictur

33、e1.Left + 10End Sub4 请新建一工程，窗体FORM1，在窗体上画一形状控件,名称SH1,两个命令按钮，名称分别为C1,C2,标题分别为“圆”和“方”，程序运行时，当单击“圆”按钮时形状控件变为圆型（即相应属性值为3），当单击“方”按钮时形状控件变为方型（即相应属性值为0），请编写C1_CLICK()，C2_CLICK()事件过程（每事件过程只能写一条语句）。 做完后请将窗体文件和工程文件分别以SJT4.FRM和SJT4.VBP命名存于考生文件夹下。Private Sub C1_Click()Sh1.Shape = 3End SubPrivate Sub C2_Click()S

34、h1.Shape = 0End Sub5 在考生文件夹下有工程文件SJT5.VBP,窗体文件SJT5.FRM,窗体上已有一滚动条控件HSCROLL1,请考生在窗体上添加一个计时器TIMER1,设其INTERVAL属性值为100。添加一个图片框PICTURE1,在图片框中添加一个标签LABEL1，将其AUTOSIZE属性改为TRUE,标题改为“祝你考得好成绩”，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？和。但不能修改其他部分，存盘时不得改变原路径和文件名。程序功能是:1、初始状态下，标签不移动。2、单击“开始”按钮时，“祝你考得好成绩”开始在窗体中自右向左反复移动，此时按钮变为“

35、继续”并灰色显示。3、单击“暂停”按钮时，停止移动，该按钮变为灰色显示，“继续”按钮变为深色显示。4、单击“继续”按钮时，该按钮变为灰色显示，“暂停”按钮变为深色显示，可操作，文字开始继续移动。具体移动快慢如示例所示Private Sub Command1_Click()Command1.Caption = 继续Timer1.Enabled = TrueCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseCommand2.Enabled =

36、 FalseCommand1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()If Label1.Left + Label1.Width 0 ThenLabel1.Move Label1.Left - HScroll1ElseLabel1.Left = Picture1.ScaleWidthEnd IfEnd Sub第七套1 在窗体上建立一个二级菜单，该菜单含有“文件”、“编辑”两个主菜单项，名称分别为FILE和EDIT。其中“文件”菜单包括“打开”、“关闭”、“保存”三个子菜单项(名称分别为OPEN、CLOSE、SAVE)(如“示例”所示)。只建

37、立菜单，不必定义其事件过程。注意：存盘时必须存放在考生文件夹下，工程文件名为SJT1.VBP,窗体文件名为SJT1.FRM。没有答案2 请考生新建一工程，窗体名FORM1,在窗体上画一标签LABEL1,边框BORDERSTYLE为1，小四号字，居中显示；画两个文本框，TEXT1和TEXT2,内容分别为“VB程序设计”和“考试”；再画一命令按钮C1,标题为“显示”；编写C1_CLICK()事件过程，使得当单击“显示”按钮时可将TEXT1与TEXT2的内容“合并”显示在标签上，如示例所示。（只能写一条语句，不得使用变量）作完后请将窗体文件和工程文件分别以SJT2.FRM和SJT2.VBP存于考生文

38、件夹中。Private Sub C1_Click()Label1.Caption = Text1.Text & Text2.TextEnd Sub3 在考生文件夹下有一个工程文件SJT3.VBP，相应的窗体文件为SJT3.FRM。考生请在窗体上画一个标签控件LABEL1，标题为“计算机期末考试”，隶书，小三号，标签控件的大小可自动随内容变化,初始状态下位于窗体的最左端；再在窗体上画一个计时器控件TIMER1，请设置适当的属性使其在初始状态下开始计时，该程序的功能是在窗体中实现由左到右(每隔0.1秒，请设置计时器的适当属性),滚动显示“计算机期末考试”这几个字。 程序不完整,请将“”删除，将“？

39、”替换成正确内容。做完后请按原文件名存盘。Private Sub Timer1_Timer()Label1.Left = Label1.Left + 50If Label1.Left = Form1.Width ThenLabel1.Left = -Label1.WidthEnd IfEnd Sub4 在窗体上画一个文本框，名称为TXT1，距左边界600，距顶部240，高495，初始内容为空。再画一个命令按钮，名称为CMD1，标题为“转换”。要求程序运行时，在文本框中输入小写英文字母，单击“转换”，文本框中的字母全部以大写字母显示。*要求：1)程序中不能使用任何变量，事件过程中只能写一条语句2)保存时必须存放在考生文件夹下，工程文件名为SJT4.VBP,窗体文件名为SJT4.FRMPrivate Sub Cmd1_Click()txt1.Text = UCase(txt1.Text)End Sub5 在考生文件夹下有工程文件SJT5.VBP,窗体文件SJT5.FRM。该程序是不完整的，请在有？号的地方填入正确内容，然后删除？和“”。但不能修改其他部分，存盘时不得改变原路径和文件名。程序功能是:在窗体上