外招VB机试题GH卷.doc

G卷一、在VB应用程序中打开工程文件VB11G1.vbp进行程序代码的调试，以实现所要求的程序功能。要求只能通过增加或修改代码，而不得删减原代码中的语句。（共30分）（运行效果参见程序DEMO11_G1.exe所示）。=分别统计文本框中大写字母、小写字母的个数，并将统计结果在图形框显示输出，待调试。=Private Sub Form_Load() Text1 = Lets go Dutch.End SubPrivate Sub Command1_Click() Dim n1 As Integer, n2 As Integer, x As String, i% For i = 1 To Len(Text1) x = Mid(Text1, i, 1) Select Case x Case A And Z n1 = n1 + 1 Case a And z n2 = n2 + 1 Next i Print 大写字母个数：; n1 Print 小写字母个数：; n2End Sub二、在VB应用程序中新建一个标准EXE工程，然后完成下列操作。（共40分）1构建窗体及控件（20分） 窗体Form1标题：学生自己的学号（如输入：2011050618）；背景色：浅蓝。 标签Label1标题：“祝你考试顺利！”；背景：透明；标签大小：自动；字体：隶书、小一号、加粗。 命令按钮Command1：标题为“手动”；命令按钮Command2：为图形按钮，加载图形文件为：KEY01.ICO。 计时器Timer1：时间间隔100ms，初始状态为不可用。2按下列要求编写代码（20分） 窗体加载事件：设置Label1的初始位置在窗体垂直居中。 单击Command1即“手动”按钮：计时器Timer1不可用；Label1从上向下移动（每次移动100twip）。 单击Command2即“图形”按钮：计时器Timer1可用。 计时器Timer1的Timer事件：实现Label1从上向下移动，到达窗体的底边界后，自动又从上端开始向下移动；（每次移动100twip）。完成后将窗体Form1保存为VB11G2.frm，将工程保存为VB11G2.vbp（运行效果参见程序DEMO11_G2.exe所示）。三、在VB应用程序中新建一个标准EXE工程，然后完成下列操作。（共30分）1构建窗体及控件（10分）Form1标题：试卷A之第三题；背景色：浅绿；字体为：隶书；字号：16。2按下列要求编写代码（20分）编写函数过程AvgA(x%()，返回数组x中元素的平均值。在Form1_Click事件过程中完成下列功能：随机生成20个50，90之间的正整数存入一维数组a中，并在窗体上以每行5个的方式显示；以数组a为实参调用函数AvgA，将元素的平均值显示在窗体上。完成后将窗体Form1保存为VB11G3.frm，将工程保存为VB11G3.vbp（运行效果参见程序DEMO11_G3.exe所示）。H卷一、在VB应用程序中打开工程文件VB11H1.vbp进行程序代码的调试，以实现所要求的程序功能。要求只能通过增加或修改代码，而不得删减原代码中的语句。（共30分）（运行效果参见程序DEMO11_H1.exe所示）。=分别统计Text1中的I、J两个字母（不分大小写）出现的次数，并将结果在Text2中分行显示输出，待调试。=Private Sub Form_Load() Text1 = I applied for a job in that office.End SubPrivate Sub Command1_Click()Dim n1 As Integer, n2 As Integer, x As String, i%For i = 1 To Len(Text1) x = Mid(Text1, i, 1) Select Case x Case i, I n1 = n1 + 1 Case j, J n2 = n2 + 1 End SelectNextText2 = Text2 & 字母i或I出现次数： & n1 & vbCrLfText2 = Text2 & 字母j或J出现次数： & n2End Sub二、在VB应用程序中新建一个标准EXE工程，然后完成下列操作。（共40分）1构建窗体及控件（20分） 窗体Form1标题：学生自己的学号（如：2011050618）；背景色：浅蓝。 标签Label1标题：“祝你考试顺利！”；背景：透明；标签大小：自动；字体：隶书、小一号、加粗。 命令按钮Command1：标题为“手动”；命令按钮Command2：为图形按钮，加载图形文件为：KEY01.ICO。 计时器Timer1：时间间隔100ms，初始状态为不可用。2按下列要求编写代码（20分） 窗体加载事件：设置Label1的初始位置在窗体水平居中。 单击Command1即“手动”按钮：计时器Timer1不可用；Label1从左向右移动（每次移动100twip）。 单击Command2即“图形”按钮：计时器Timer1可用。 计时器Timer的Timer事件：实现Label1从左向右移动，到达窗体的右边界后，自动又从左边界开始向右移动；（每次移动100twip）。完成后将窗体Form1保存为VB11H2.frm，将工程保存为VB11H2.vbp（运行效果参见程序DEMO11_H2.exe所示）。三、在VB应用程序中新建一个标准EXE工程，然后完成下列操作。（共30分）1构建窗体及控件（10分）窗体Form1标题：试卷B之第三题；背景色：浅蓝；字体为：隶书；字号：16。2按下列要求编写代码（20分） 编写函数过程MinB(x%()，返回数组x中元素的最小值。 在Form1_Click事件过程中完成下列功能：随机生成20个两