[理学]程序填空word.docVIP

1、 在考生文件夹下有一个工程文件Fill.vbp，相应的窗体文件为Fill.frm，窗体上有2个文本框和一个命令按钮。程序的功能为：在第一个文本框(Text1)中输入一个字符串，单击命令按钮，将字符串中的小写字母转换成相应的大写字母并在第二个文本框(Text2)中输出。程序运行界面请参阅附图。 在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。 要求：程序中的填空位置就在注释行： ’**********found*************’ ’请不要删除该行，只在下一行中填空’ 的下面，请不要改动该注释行中的任何内容，只在下面一行中删除掉程序中的 ____(1)___”等内容，在该位置填写正确的程序语句，使其实现上述功能，运行程序。 最后把修改后的文件按原文件名存盘，提交程序填空题文档。 注意：请不要改动程序中其它任何地方！ VERSION 5.00 Begin VB.Form Form1 Caption = 转换大小写 ClientHeight = 2865 ClientLeft = 1650 ClientTop = 1830 ClientWidth = 3600 LinkTopic = Form1 ScaleHeight = 2865 ScaleWidth = 3600 Begin VB.CommandButton Command1 Caption = 转换 Height = 495 Left = 1320 TabIndex = 2 Top = 2040 Width = 1215 End Begin VB.TextBox Text2 Height = 375 Left = 840 TabIndex = 1 Text = Text2 Top = 1200 Width = 2295 End Begin VB.TextBox Text1 Height = 375 Left = 840 TabIndex = 0 Text = Text1 Top = 240 Width = 2295 End End Attribute VB_Name = Form1 Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Base 1 Private Sub Command1_Click() Dim t As String, ch As String * 1 Dim i, n As Integer t = n = Len(Text1.Text) For i = 1 To n ch = Mid(Text1.Text, i, 1) If ch = a And ch = z Then t = t UCase(ch) Else ?*********found********** ***’ ’请不要删除该行’ t = t ____(1)_____ End If Next i ’**********found*************’ ’请不要删除该行’ ____(2)____ End Sub Private Sub Form_Load() Text1.Text = Text2.Text = End Sub t=tch^^t=tlcase(ch)^^t=tmid(text1.text,i,1)^^t=tmid(text1,i,1