外招VB机试题GH卷

(4页)

'外招VB机试题GH卷'
G卷一、在VB应用程序中打开工程文件VB11G1.vbp进行程序代码的调试,以实现所要求的程序功能。要求只能通过增加或修改代码,而不得删减原代码中的语句。(共30分)(运行效果参见程序DEMO11_G1.exe所示)。'======================================================='分别统计文本框中大写字母、小写字母的个数,并将统计结果'在图形框显示输出,待调试。'=======================================================Private Sub Form_Load() Text1 = "Let's 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个两位正整数存入一维数组a中,并在窗
关 键 词:
VB 试题 GH
 天天文库所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:外招VB机试题GH卷
链接地址: https://www.wenku365.com/p-42207633.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服点击这里,给天天文库发消息,QQ:1290478887 - 联系我们

本站为“文档C2C交易模式”,即用户上传的文档直接卖给(下载)用户,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有【成交的100%(原创)】。本站是网络服务平台方,若您的权利被侵害,侵权客服QQ:1290478887 欢迎举报。

1290478887@qq.com 2017-2027 https://www.wenku365.com 网站版权所有

粤ICP备19057495号 

收起
展开