国家二级VB机试（上机操作）模拟试卷355 vb开始按钮代码(题后含答案及解析)
全部题型    2. 基本操作题 3. 简单应用题 4. 综合应用题
基本操作题
1． (1)在名称为Form1的窗体上画一个名称为CmdChange、标题为“改变颜”的命令按钮，窗体标题为“设置窗体背景”。编写程序，使得单击命令按钮时，将窗体的背景颜改为红(&HF&)。运行程序后的窗体如图3．142所示。    要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj1．vbp，窗体文件名为vbsj1．frm。    (2)在名称为Form1的窗体上画一个命令按钮和一个垂直滚动条，其名称分别为Cmdl(标题为“设置”)和Vsb1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性：  Max=窗体高度  Min=0  LargeChange=50  SmallChange=10    如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如图3．143所示。    要求：不得使用任何变量。    注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj2．vbp，窗体文件名为vbsj2．frm。
正确答案：(1)步骤1：新建一个“标准EXE”工程，在窗体Form1中画一个命令按钮，设置相关属性，其属性及值如表4-83所示。    步骤2：打开代码编辑窗口，编写按钮的Click事件过程中。参考代码：PriVate  Sub  cmdChange_Click(  )BackColor=&HFF&End Sub    步骤3：按要求将文件保存至考生文件夹中。    (2)步骤1：新建一个“标准EXE”工程，按表4．84在窗体中画出控件并设置其相关属性。    步骤2：打开代码编辑窗口，编写水平滚动条的Change事件过程。参考代码：Private Sub Cmd1_Click(  )Vsb1．Max=Form1．HeiqhtVsb1．Min=0Vsb1．LargeChange=50Vsb1．SmallChanqe=10End SubPrivate  Sub Vsb1_Change(  )Print Vsb1．ValueEnd Sub    步骤3：按要求将文件保存至考生文件夹中。
解析：(1)本题需在命令按钮的单击事件过程中，通过语句设置窗体的BackColor属性值为“&HFF&”。    (2)本题其实就是在命令按钮的单击事件过程中用代码来设置水平滚动条的属性，并且在水平滚动条的Change事件过程中，用Print方法把表示水平滚动条滑块位置的Value属性值输出到窗体上。 
简单应用题
2． (1)在考生文件夹下有一个工程文件sjt3．vbp。程序的功能是通过键盘向文本框中输入大
、小写字母及数字。单击“统计”按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别显示在标签控件数组x中，如图3．167所示。在给出的窗体文件中已经添加了全部控件，但程序不完整。    要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。    注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。    (2)考生文件夹下的工程文件sjt4．vbp中有两个名称分别为List1、List2的列表框控件，两个名称分别为Command1、Command2，标题分别为“>>”、“>”按钮，将List1中的表项添加到List2中，同时将List1清空；单击“
正确答案：(1)步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，在代码编辑窗口，去掉程序中的注释符“‘”，将问号“?”改为正确的内容。参考代码：n=Len(Text1．Text)b=Asc(Mid(s，i，1))Select Case bFor i=0 To 2x(i)=a(i)    步骤2：按要求将文件保存至考生文件夹中。    (2)步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，通过List1列表框的List属性添加四个项目：文本框、标签、命令按钮、单选按钮。    步骤2：在代码编辑窗口，去掉程序中的注释符“‘”，将问号“?”改为正确的内容。参考代码：For i=0  To La．ListCount - 1Lb．AddItem La．List(i)NextLa．Clear  步骤3：按要求将文件保存至考生文件夹中。
解析：(1)本题源程序在For循环体中(其中循环终值应为文本框的字符长度，即n=Len(Text1．Text))，用Mid函数逐一取出文本框中的每个字符，并用Asc函数返回其ASCII码。若取出字符的ASCII码在48～57之间，则记录数字个数的数组变量a(0)增1；若ASCII码在65～90之间，则记录大写字母个数的数组变量a(1)增1；若ASCII码在97～122之间，则记录小写字母个数的数组变量a(2)增1。    (2)本题列表框中列表项的移动功能，是通过调用remove过程来实现的，在remove过程中通过For循环(循环变量终值为La．ListCount-1)将列表框La中的各项逐一添加到列表框Lb中，全部项目添加完成后，用列表框的Clear方法清除该列表框中的所有项目。 
综合应用题
3． 在考生文件夹下有一个工程文件sjt5．vbp，已给出了所有控件(如图3．141所示)和部分程序。程序运行时，请按以下顺序操作：    1)单击“读入文件”按钮，把考生目录下的文件in5．dat中的内容读入内存并显示在上面的文本框(Text1)中；    2)单击“加密”按钮，则可对Text1中的内容进行加密并显示在下面的文本框(Text2)中。    3)单击“存结果”按钮则把Text2中的内容存到out5．dat文件中。    加密规则：对于第奇数个字符，若是字母，则把它变为
它后面的字符(若为“Z”则变为“A”)，不是字母则不变；对于第偶数个字符，若是字母，则把它变为它前面的字符(若为“A”则变为“Z”)，不是字母则不变。大小写字母都遵循此规则。例如：    若原有的字符是：AbbaZOHa-MnnKYzx    则加密后的字符是：BaczAFGb-NmojXaw    已经给出“存结果”按钮的Click事件过程和函数isletter，函数isletter(aAsString)判断变量a中是否为一个字母，若是则返回True，否则返回False，可以直接调用。    请编写“读入文件”按钮和“加密”按钮的Click事件过程，以实现上述功能。(in5．dat文件中只含英文单词和空格，不分段落和行)    注意：考生不得修改已经存在的程序，必须用“存结果”按钮存储加密结果，否则无成绩。最后，按原文件名把程序存盘。
正确答案：步骤1：打开考生文件夹中的本题工程文件sjt5．vbp，在代码编辑窗口指定位置编写以下代码。参考代码：Private Sub Command1_Click(  )Open”in5．dat”For Input As 1Line Input #1，sClose #1Text1．Text=sEnd SubPrivate Sub Command2_Click(  )Dim i As Integer，ss As Stringss=““For i=1 To Len(s)If isletter(Mid(s，i，1))=True ThenIf i MOd 2=0 ThenIf Mid(s，i，1)=“a”Thenss=ss & “Z”ElseIf Mid(s，i，1)=“A”Thenss=ss & “Z”Elsess=ss & Chr(Asc(Mid(S，i，1))-1)End IfElseIf Mid(s，i，1)=“Z”Thenss=ss & “A”Else If Mid(s，i，1)=“z” Thenss=ss & “a”Elses=ss & Chr(Asc(Mid(s，i，1))+1)End IfEnd IfElsess=ss & Mid(s，
i，1)End IfNextText2．Text=ssEnd Sub    步骤2：按<F5>键运行程序，先单击“读入文件”按钮，接着单击“加密”按钮，然后单击“存结果”按钮保存结果，最后单击窗体右上角的关闭按钮结束程序。    步骤3：按要求将文件保存至考生文件夹中。
解析：分析题目可知，本题中“读入文件”命令按钮中首先使用For But方式打开文件，然后通过Line Input撑语句将打开文件中的数据读出到变量S中并且赋给文本框。    在“加密”按钮的单击事件中，利用For循环对字符串S进行遍历，依次取出S中的每一个字符；如果循环变量i的值为偶数，接下来就要判断取出的字符是不是字母，如果是字母则进行Chr(Asc(Mid(s，i，1))．1)的转换，但是要注意如果为字母“A”或者“a”要转换为“Z”或者“z”。同理，如果循环变量的值为奇数，如果取出的字符是字母，则进行Chr(Asc(Mid(s，i，1))+1)的转换，如果为字母“Z”或者“z”要转换为“A”或者“a”。最后将转换得到的字母连接起来即得到结果。 

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。