二级VB2012编程题目答案10-11

第十一章文件考生文件夹的txt文件，我会另外做一个文件夹给你们。

答案中的app.path&……是指相对路径，不要写成这样。

大家做题目的时候，一定要用绝对路径。

即去复制路径。

No . 1Private Sub Command1_Click()Dim a As StringOpen "d:\in.txt" For Input As #1Line Input #1, aText1.Text = aClose #1Private Sub Command2_Click()Dim b As String, s As StringOpen "d:\in.txt" For Input As #1Do While Not EOF(1)b = Input(1, #1)b = Chr(Asc(b) + 5)s = s + bLoopClose #1Text2.Text = sEnd SubNo . 2Private Sub Command1_Click()Dim n As String, m As Integern = Text1.Textm = countchar(n)Open "d:\paperoout.txt" For Output As #1Print #1, mClose #1End SubM=CounterChar(n) 此语句调用CounterChar过程来统计文件中字符的个数，然后将数字赋值给M变量Private Function CountChar(ch As String) As LongDim iCounter As Long, MyChar …以下是题目已经编辑好的函数过程，考查调用ch = Text1.Textch = UCase(ch)iCounter = 0Open App.Path & "\PaperIn.txt" For Input As #1Do While Not EOF(1)MyChar = Input(1, #1)If UCase(MyChar) = ch TheniCounter = iCounter + 1End IfLoopClose #1CountChar = iCounterEnd FunctionNo . 3Private Sub Command1_Click()Text1.Text = aaa()End SubPrivate Sub Command2_Click()Open "d:\outfile.txt" For Output As #1Print #1, Text1.TextClose #1End SubFunction Aaa() …以下是题目已经编辑好的函数过程，考查调用 Dim str1 As String, str2 As String, i As IntegerOpen App.Path & "\Infile.txt" For Input As #1Input #1, str1Text1.Text = str1CloseFor i = 1 To Len(str1)str2 = Mid(str1, i, 1)If str2 >= "a" And str2 <= "z" Thenstr2 = UCase(str2)ElseIf str2 >= "A" And str2 <= "Z" Thenstr2 = LCase(str2)End IfAaa = Aaa & str2Next iEnd FunctionNo . 4Private Sub Command1_Click()Open "d:\aout.txt" For Output As #1Print #1, Label1.CaptionClose #1End SubNo . 5程序代码：Dim A(0 To 99) As IntegerDim B(0 To 99) As IntegerDim i As Integer, j As IntegerPrivate Sub Command1_Click()Open "考生文件夹\ in.txt" For Input As #1For i = 0 To 99Input #1, A(i)Next iClose #1End SubPrivate Sub Command2_Click()For i = 0 To 99If A(i) Mod 2 <> 0 Then B(i) = A(i) Next iEnd SubNo . 6No . 7No . 8程序代码：Private Sub Command1_Click()Dim str As String, str1 As StringOpen "考生文件夹\datafile.txt" For Input As #1Do While Not EOF(1)str = Input$(1, #1)If str = Text1.Text Then str = "*"str1 = str1 & strLoopClose #1Open "考生文件夹\datafile.txt" For Output As #2Print #2, str1Close #2End SubNo . 9Private Sub Command1_Click()Dim str1 As String, str2 As StringOpen "考生文件夹\infirst.txt" For Input As #1Open "考生文件夹\insecond.txt" For Input As #2Open "考生文件夹\outfile.txt" For Append As #3Do While Not EOF(1)Line Input #1, str1Print #3, str1LoopDo While Not EOF(2)Line Input #2, str2Print #3, str2LoopClose #1, #2, #3End SubNo . 10No . 11程序代码：Dim Arr(15) As IntegerPrivate Sub Command1_Click()Open "考生文件夹\jsdata.txt" For Input As #1 For i = 1 To 15Input #1, Arr(i)Next iClose #1If Op1.Value = True ThenT1.Text = Aaa()ElseT1.Text = Bbb()End IfEnd SubNo . 12No . 13No . 14No . 15程序代码：Dim a(1 To 10) As IntegerPrivate Sub Command1_Click()Dim i As IntegerOpen "考生文件夹\yssj.txt" For Input As #1For i = 1 To 10Input #1, a(i)Next iClose #1End SubPrivate Sub Command2_Click()Dim i As IntegerFor i = 1 To 10If a(i) Mod 3 = 2 ThenText1.Text = Text1.Text & a(i) & " "End IfNext iEnd SubNo . 16程序代码：Private Sub Command1_Click()Dim st As StringOpen "考生文件夹\Tezf\yy.txt" For Input As #1Do While Not EOF(1)Line Input #1, stText1.Text = Text1.Text + st + vbCrLfLoopEnd SubPrivate Sub Command2_Click()Dim n As Integer, a As String, sum As Integern = Len(Text1.Text)For i = 1 To na = UCase(Mid(Text1.Text, i, 1))If a <= "Z" And a >= "A" Then sum = sum + 1Next iLabel1.Caption = "共" & sum & "个英文字符"End SubNo . 17Private Sub Command1_Click()'''不得删改本行注释Dim st As StringText1.Text = ""Open "考生文件夹\yy.txt" For Input As #1Do While Not EOF(1)Line Input #1, stText1.Text = Text1.Text + st + vbCrLf LoopClose #1End SubPrivate Sub Command2_Click()'''不得删改本行注释Dim i As Integer, s As String * 1, j As LongFor i = 1 To Len(Text1.Text)s = Mid(Text1.Text, i, 1)If UCase(s) < "A" Or UCase(s) > "Z" Then j = j + 1 Next iLabel1.Caption = "共" & j & "个非英文字母"End SubNo . 18程序代码：Dim a(1 To 10) As String, i As IntegerPrivate Sub Command1_Click()Open "考生文件夹\zfwj.txt" For Input As #1For i = 1 To 10Input #1, a(i)Text1.Text = Text1.Text & a(i) & " "Next iEnd SubPrivate Sub Command2_Click()Dim t As StringFor i = 1 To 5t = a(i)a(i) = a(10 - i + 1)a(10 - i + 1) = tNext iFor i = 1 To 10Text2.Text = Text2.Text & a(i) & " "Next iEnd SubNo . 20程序代码：Private Sub Command1_Click()Dim i As Integer, a As String, b As String, st As StringOpen "考生文件夹\xhxm.txt" For Output As #1For i = 1 To 3a = InputBox("请输入学生的学号：", "学号")b = InputBox("请输入学生的姓名：", "姓名")Write #1, a, bNext iClose #1End SubPrivate Sub Command2_Click()Dim st As StringOpen "考生文件夹\xhxm.txt" For Input As #1Do While Not EOF(1)Line Input #1, stText1.Text = Text1.Text & st & vbCrLfLoopEnd SubNo . 21写入文件命令按钮单击事件代码如下：Option ExplicitPrivate Sub Command1_Click()''' 不得删除本行注释Dim i As IntegerOpen "d:\zfwj.txt" For Output As #1For i = 1 To Val(Text1.Text)Print #1, String(i, Chr(Asc(i))) ‘i不能加引号Next iClose #1End SubNo . 22Option ExplicitDim Arr(10) As StringPrivate Sub Command1_Click()'''不得删改本行注释Dim i As IntegerOpen "考生文件夹\rywj.txt" For Input As #1For i = 1 To 10Input #1, Arr(i) ‘只能用Input读取，遇到空格逗号Input语句会停止Next iClose #1End SubPrivate Sub Command2_Click()'''不得删改本行注释Dim i As IntegerFor i = 1 To 10If Len(Arr(i)) = 2 Then T1.Text = T1.Text & Arr(i) & Space(1)Next iEnd SubNo . 23Option ExplicitDim Arr(10) As StringPrivate Sub Command1_Click()'''不得删改本行注释Dim i As IntegerOpen "考生文件夹\rywj.txt" For Input As #1For i = 1 To 10Input #1, Arr(i) ‘只能用Input读取，遇到空格逗号Input语句会停止Next iClose #1End SubPrivate Sub Command2_Click()'''不得删改本行注释Dim i As IntegerFor i = 1 To 10If left(Arr(i),1) = “黄” or left(Arr(i),1) = “陈”Then T1.Text = T1.Text & Arr(i) & “”Next iEnd SubNo . 24Option ExplicitDim N(1 To 10) As String, i As IntegerPrivate Sub Command1_Click()'''不得删改本行注释List1.ClearOpen "考生文件夹\yzfwj.txt" For Input As #1For i = 1 To 10Input #1, N(i)List1.AddItem N(i)Next iClose #1End SubPrivate Sub Command2_Click()'''不得删改本行注释List2.ClearFor i = 0 To 9List2.AddItem List1.List(i), 0 ‘指定index，代表插入的位置，一直插入在第一位Next iEnd SubNo . 25''' 不得删改下句声明Dim Arr(19) As IntegerPrivate Sub Command1_Click()''' 不得删除本行注释ReadDataEnd SubPrivate Sub Command2_Click()''' 不得删除本行注释Dim i As Integer, max As Integermax = Arr(0)For i = 1 To 19If Arr(i) > max Then max = Arr(i)Next iFor i = 0 To 19s = s + Arr(i)Next iText1.Text = CInt((s - max) / 19) ‘用int函数即可End Sub'################################################# Private Sub ReadData()Dim i As IntegerOpen App.Path & "\" & "Adata.txt" For Input As #1For i = 0 To 19Input #1, Arr(i)Next iClose #1End Sub'################################################ No . 25Private Sub Command1_Click()Dim a As StringOpen "d:\zfcwj.txt" For Input As #1 Line Input #1, aText1.Text = aClose #1Text2.Text = Len(Text1.Text)End SubNo . 26Dim a(19) As IntegerPrivate Sub Command1_Click()Dim i As IntegerOpen "d:\y24.txt" For Input As #1For i = 0 To 19Input #1, a(i)Next iText1.Text = "y24.txt文件数据已读入" Close #1End SubPrivate Sub Command2_Click()Dim sum As LongFor i = 0 To 19sum = sum + a(i)Next iText1.Text = sumEnd SubNo . 27Dim a(9) As IntegerPrivate Sub Command1_Click()Dim i As IntegerOpen "d:\yssj.txt" For Input As #1For i = 0 To 9Input #1, a(i)Next iClose #1End SubPrivate Sub Command2_Click()Dim sum As LongFor i = 0 To 9If a(i) Mod 2 = 0 Then ‘要输出奇数就用If a(i) Mod 2 = 1 Then label1.Caption = label1.Caption & a(i) & " "End IfNext iEnd SubNo . 28Dim a(30) As IntegerPrivate Sub Command1_Click() Dim i As IntegerOpen "d:\fs.txt" For Input As #1For i = 1 To 30Input #1, a(i)Text1.Text = Text1.Text & a(i) & " " Next iClose #1End SubPrivate Sub Command2_Click() Dim sum As LongFor i = 1 To 30If a(i) = 100 Thensum = sum + 1End IfNext iText2.Text = sumEnd SubNo . 29Dim a(10) As IntegerPrivate Sub Command1_Click() Dim i As IntegerOpen "d:\sj.txt" For Input As #1For i = 1 To 10Input #1, a(i)Text1.Text = Text1.Text & a(i) & " "Next iClose #1End SubPrivate Sub Command2_Click()Dim sum As LongMax = a(1)For i = 2 To 10If a(i) >= Max ThenMax = a(i)End IfNext iText1.Text = MaxEnd SubOption ExplicitDim A(1 To 40) As Integer '不得删改本行注释Private Sub Command1_Click()'不得删改本行注释Dim i As IntegerOpen "F:\VB二级教程--2010\10级工程文件\fs.txt" For Input As #1 For i = 1 To 40Input #1, A(i)Text1.Text = Text1.Text & " " & A(i)Next i31、Option ExplicitDim A(1 To 40) As Integer '不得删改本行注释Private Sub Command1_Click()'不得删改本行注释Dim i As IntegerOpen "F:\VB二级教程--2010\10级工程文件\fs.txt" For Input As #1 For i = 1 To 40Input #1, A(i)Text1.Text = Text1.Text & " " & A(i)Next iClose #1End SubPrivate Sub Command2_Click()'不得删改本行注释Dim i As Integer, sum As IntegerFor i = 1 To 40sum = sum + A(i)NextText2.Text = Round(sum / 40) …四舍五入函数End Sub32、Option ExplicitPrivate Sub Command1_Click()'不得删改本行注释Dim a As StringOpen "F:\VB二级教程--2010\10级工程文件\pdzm.txt" For Input As #1Do While Not EOF(1)Input #1, aText1.Text = Text1.Text & aLoopClose #1End SubPrivate Sub Command2_Click()'不得删改本行注释Dim i As Integer, sum As Integer, b As StringFor i = 1 To Len(Text1.Text)b = Mid(Text1.Text, i, 1)If b = Text2.Text Thensum = sum + 1End IfNextText3.Text = sumEnd Sub第十二章图形设计No . 1步骤一：设计窗体，修改窗体的Caption属性值为“形状控件”步骤二：在窗体上添加一Shape控件，修改其Shape属性值为1—Square（正方形）步骤三：修改Shape1控件的FillStyle属性值为7－VbDiagonalCross交叉对角线No . 2步骤一：设计窗体，修改窗体的Caption属性值为“形状控件”步骤二：在窗体上添加一Shape控件，修改其Shape属性值为2—oval（圆形）步骤三：修改Shape1控件的FillStyle属性值为4－upward diagonal斜对角线No . 3设计窗体，在窗体上添加一Shape控件，修改其Shape属性值为3—Circle（圆形），设置其Width属性值为1980，Left属性值为1320，fillcolor为vbred，fillstlye为solid.No . 4步骤一：设计窗体，修改窗体Caption属性值为“画图示例”，为窗体添加2个命令按钮，修改他们的名称属性分别为“C1”“C2”，根据题目分别修改按钮的Caption属性值。