计算机二级VB编程题目含答案
⑴不得增、删窗体上的控件，不得改变窗懺和控件的名執
⑵不得删改两行' “之间90代码左
⑶ 不得删改模藝Jb鬧中的代码；
⑷编程后’需运行理序，并在运行后关闭程序窗口。
1、打开芳生文件夹下工程文件Qpfh.vtp潘加适当的事件过程代码'买现以下功鉉
在上边文本框中输入正整数W的值*单击"计算”‘按钮.则在下边文本框中显示平疔和S的值H
S = *片2彳十…十矿
Private Sub Comma nd1_Click()
Dim n As Integer, i As Integer, s As Double
n = Val(Text1.Text)
s = 0
For i = 1 To n
s = s + i A 2
Next i
Text2.Text = s
End Sub
2.打开着生文件夹下工程文件Qtds.vhp,祈加适当的雪件过程代码，实现以下功能*
单击“逮数据”按钮，读入考生交件表下的泸町 E 丈件中的10个整数，存入吕数组中：单主*特定值”披迅求出敢组中所有被？除后余2的数，并昱示在文朮框中. Private Sub Comma nd1_Click()
'''不得删除本行注释
Dim i As In teger
Ope n App.Path & "\" & "yssj.txt" For In
put
As #1
Fori = 1 To 10
In put #1, a(i)
Next i
Close #1
End Sub
Private Sub Comma nd2_Click()
'''不得删除本行注释
Dim i As In teger
Text1.Text =""
Fori = 1 To 10
If a(i) Mod 3 = 2 The n
Text1.Text = Text1.Text & Str(a(i))
End If
Next i
End Sub
-|Dl xl
1.打开考生文件夹下的工程文件Xhyj.vbp,添加适当同事件代码，求
1+( 1+2) +(1+2^3 H ■*■ (1+2+3+ '"+N)的值，曲是用户在Textl中任意输入的一t 正整麹单击“计算结果”授超时，结果显示在Te^2中.
Private Sub comma nd1_Click()
'''不得删除本行注释
Dim a As Integer, b As Double, i As Integer, n As Integer
n = Val(Text1.Text)
a = 0
b = 0
For i = 1 To n a = a + i
b = b + a
Next i Text2.Text = b End Sub
Form!
■"■(jGasooi \ r*
"□603002 \ "?03003\
"John"
2、打开矜生文件夹下的工程文件x?jt .Vbp,添加适当的事件代码，实现以下功能；
⑴单击“建立文件”按钮’通过输入框：辻削也“）连续输典如上图所示的3个学生的学
号、姓各并以汁亦沁讥的文件名保存在琴主文件夬林
⑵单击“显示文件” JJffl，以行换的方式将文件Xhxr^.txt文件的内容界示衽文本框中?
逹立文件
Private Sub Comma nd1_Click()
'''不得删除本行注释
Dim i%, xh$, xm$
Open App.Path & "\" & "Xhxm.txt" For Output As #1
Fori = 1 To 3
xh = InputBox("请输入学号") xm = InputBox("请输入姓名")
Write #1, xh, xm
Next i
Close #1
End Sub Private Sub Comma nd2_Click()
“'不得删除本行注释
Dim s as stri ng
Open App.Path & "\" & "Xhxm.txt" For Input As #2
Do While Not EOF(2)
Line In put #2, s
Text1.Text = Text1.Text & s & vbCrLf Loop
Close #2
End Sub
E 1 +(l+2)+(l+Z+3)^,..+(l
J 口］灯
凄取立忡This is a cat
■ ■II ■>—J Illi
mrix ntx%f hty
r打开专生文件来下的工程交件皿乳辭p,添加适当的事件代真，实现以下功能：（1）单击“读取文件"披超，读入蜡生文件夹下的伽讪上此文件，并显示到T曲门中「⑵单击“加密”按迅将Textl中册内容?每个字符的ASCII?加5的规刚加密，并■密文县示在T已注2中°
2、打幵考生文阵夹下的工程文f4 Jjtpj.vhp,歸加适当的專件代咼实现以下功懸
⑴单击二主咸数组"按祁生成15牛诃73之间的領机整較*存干数组中，并将数组显■小在
本框Text 1中■>
⑵单玉丝降序摊列，授耳将文本框Tsxtl中的数组攪賤降序排列显示在TextZ中.
Private Sub Comma nd1_Click()
'读取文件”按钮代码
'''不得删除本行注释
Dim st As Stri ng
Textl.Text =""
Open App.Path & "\" & “jmwb.txt" For
Input As #1
While Not EOF(1)
In put #1, st
Text1.Text = Text1.Text + st + vbCrLf
Private Sub Comma nd2_Click()
Dim s As String, co As String, c As String,
Dim n As Integer, i As Integer, p As Integer
s = Trim(Text1.Text)
n = Len(s)
co =""
For i = 1 To n
Wend
Close #1
End Sub
c = Mid(s, i, 1)
p = Asc(c) + 5
co = co + Chr(p)
Next i
Text2.Text = co
End Sub
Private Sub comma nd1_click()
“'不得删除本行注释 -
For N = 1 To 15
x(N) = Int(Rnd * 91 + 10)
Text1.Text = Text1.Text + Str(x(N))
Next N
End Sub
Private Sub Comma nd2_Click()
“'不得删除本行注释-
Dim m As In teger, K As In teger For
N = 1 To 15
For m = N + 1 To 15
If x(m) > x(N) Then
K = x(N) x(N) = x(m) x(m) = K
End If
Next m
Text2.Text = Text2.Text + Str(x(N))
Next N
End Sub
K 打开着生文件吏下的工程文件Pds.vbp,湎加谴当鬧雪件代码，实现以下功能;
单击命令按剧，凋甲程序中提供的&etChac 过程*产主 随机字符显亦在TextL
中，芥判断该宇符属于宇臥数宇或其它宇符中的哪一奘分别在L 甜41上昱示w 是 序母于賢匸整
亍證型堡鑒證? ________________________________________________________________
Private Sub Comma nd1_Click() Dim char As String * 1 char = Trim(Text1.Text) If Not IsNumeric(char) The n
If (Asc(char) >= 65 And Asc(char) <= 90) Or _ (Asc(char) >= 97 And Asc(char) <= 120) Then Label1.Caption ="输入的是字母"
Else: Label1.Caption ="输入的是其它符号 ” End If Else: Label1.Caption ="输入的是数字" End If End Sub
2、打开考生文件夹下的工程文件细訪?vbp 添加适当的事件优码，买现以下功 能2 在文本框中输入含大小写字母的宁符串原字符串儿单击命令拽钮唏大写”，原字 符爭全部转为大写并在文本框中显示出来；单击命令按哥"转小写”，原字符串全部转 为中写并在文本框中显示出来；单击命令按祀“复原3测在文事框中显示原字符串-
Private Sub Comma nd1_Click() Text1.Text = UCase(Text1.Tag) End Sub
Private Sub Comma nd2_Click() Text1.Text = LCase(Text1.Tag) End Sub
Private Sub Comma nd3_Click() Text1.Text = Text1.Tag End Sub
Private Sub Text1_KeyUp(KeyCode As In teger, Shift As In teger) '对于文本框控件中输入的每次键盘按键弹起事件做一次文本内容保存 Text1.Tag = Text1.Text '用Text1.Tag 属性作为保存 textbox 控件文本内容的临时存储区 End Sub
ii Forml
Q T X ]
-in ； X.
if 輪人英玄字母：
.Forml
加英游母：
是字理孚符
I I
________ j "
■“ A I;
命 F&rml
■回田
r 打开考生文件夬下的工程文杵 哉町.
诵卩，希加适当的事件过程代玛，实现以 下功能’
在上边三个文本框中分别任意输入一个整航 单击"求值"按刼 则在左下文本框 中见示三个数中曲最丸值，在右下文本框中显示三个数中的最小值.
Private Sub comma nd1_Click() '''不得删除本行注释
Dim a As Integer, b As Integer, c As Integer Dim max As In teger, min As In teger a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) max = a + b + Abs(a - b) max = max / 2 min = a + b - Abs(a - b) min = min / 2
max = max + c + Abs(max - c) max = max / 2
min = min + c - Abs(min - c) min = min / 2 Text4.Text = max Text5.Text = min End Sub
画*Edir.l
茲 打开考生文件夹下工程文件Shqz.vbp,添加适当的事件过程代码，实现以下 功％
在左上文■本框中输人正整数门的値 在左下文平框中输入正整数n 的值缶不小于 n).单击披钮，则按窗体上部所显示的公武求出绍合数.芥将其显示在右边文本 框中o 生可调用程序中所提快的FactH 程完成阶乘的计算)
p4
最小值：
fnl nl(m-nV t
Ki For (nl
EZHH -.in]xi
辐入年楼阿
1.打开萼主文件夹下的工程文件rdrn-Ybp,祈加适当的雪件过程代码，实现以下功能；
在上边文本框中输人一个年份，单击“判ffiffl*如臬i*年是闰年，在下边文本框中显示躇闰年&否则，显示〃刑列年耳
JS：肇件遂祓4整陰但不能辔100塾除电是闰号年楼能被400整除的也是@年?
Private Sub Comma nd1_Click()
Dim a As In teger
If Not lsNumeric(Text1.Text) Then
MsgBox "请输入数字！", 48,"输入的不是数字”
Else a = Val(Text1.Text)
If (a Mod 4 = 0 And a Mod 100 <> 0) Or a Mod 400 = 0 Then
Text2.Text ="闰年”
Else: Text2.Text ="非闰年”
End If
End if
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLe ngth = Len (Text1.Text)
End Sub
-w
譬暮冥譬脊着it祥开It
2.打开罟生文件央下的工程文件灶打.讪p
潘加适当的事件过程代码，实现以
下功能：
单击“写入艾件"按钮，将如右上图所示由丈璋字符… 构咸的图黑写入考主目
录下附文件.该團窠的总行镇等于文本框中薪入的数值，第一行1个7
以后每行谨増1个.
Private Sub Comma nd1_Click()
'''不得删除本行注释
Dim n As In teger, i As In teger
n = Val(Text1.Text)
If n < 0 Or (Not IsNumeric(Text1.Text)) Then MsgBox " 请输入正整数",48,"输入的不是正整数”
Ope n App.Path & "\" & "jfwj.txt" For Output As #1
For i = 1 To n
Print #1, String(i, "*")
Next i
Close #1
End Sub
? Forml
；
r打开考生文件央下的工程文件阳咗?胡w 淆加适当的事件代码，实现职下功能！
___ 里蚩我鱼—生列怛里壘丕丄型空±lW Private Sub Comma nd1_Click() '''不得删除本行注释 Dim i As In teger For i = 1 To 200 If i Mod 3 = 0 And i Mod 7 = 0 The n Textl.Text = Textl.Text + Str(i) End If Next End Sub 乩打开等生丈件夹下的工程文件证対小0渍加适当閑事件代码，买现以下功能： 单击按钮，读入若生文件夹下的J3^t a+txt文件中的诃个整数］就入总“教组中.如果选中“求和"单选KfflOpl,在丈本框叫中显示仁数组元素之和何调用已有代码中的陶盘过程对壮上数组元素进行彊加）；如果选中“求积"单选擡祖Op2, 在T1中显示住匸数组元素之积（可调用Bhb过程对直“数组元売进行累乘）. Private Sub Comma nd1_Click() '''不得删除本行注释 Dim sum As Sin gle, i As In teger Ope n App.Path & "\" & "Jsdata.txt" For In put As #1 For i = 1 To 15 In put #1, Arr(i) Next i Close #1 If Op1 The n T1.Text = Aaa End If If Op2 Then T1.Text = Bbb End If End Sub 1.打畔考生文件夬F的工程Ot/.vfcR編写适当的書件过程代玛，实现以下功鉉在上方文 本框中输入正整数N的值，单壬“求和”按迅则求出从1到U范圃內所有能被3整除的数的和’并在下面文本框中且示.