编程题

（一）

1、打开考生文件夹下的工程文件Qss.vbp，添加适当的事件代码，实现以下功能：

在Text1文本框中输入自然数N的值，单击按钮，在Label2中显示N的值是否为素数（用Yes的No表示）

2、 打开考生文件夹下的工程文件Chast.vbp, 添加适当的事件代码，实现以下功能：

在Text1中输入一个字母。单击按钮，将统计出paper In.txt文件中该字母出现的次数（忽略大小写），并将出现次数保存到考生文件夹下的PaperOut.txt文件中。

注：统计次数时可以调用题目提供的CountChar()函数。该函数以字母为参数，返回该字母在paper In.txt文件中出现的次数。

（二）

1、 打开考生文件夹下的工程文件Strconv.vbp，添加适当的事件代码，实现以下功能：在Text1中输入一个字符串，单击按钮，Text2将Text1中的字符串反转显示。

2、 打开考生文件夹下的工程文件Xh.vbp，添加适当的事件代码，实现以下功能：单击按钮，以按行读的方式在文本框Text1中显示考生文件夹下Bdata.txt文件的内容。

注：设计题与模拟题1相同。

（三）

1、打开考生文件夹下的工程文件Sum.vbp，添加适当的事件代码，实现以下功能：在Text1中输入一个正整数N。如果选择“奇数求和”，表示求1~N之间（包括1和N）的奇数和；否则，求偶数和。单击“求和”命令按钮，在Text2中输出求和结果。

2.打开考生文件夹下的工程文件Lyf.vbp，添加适当的事件代码，实现以下功能：

（1） 在Text1和Text2中分别输入起始和中止年份

（2） 单击按钮，将起始和中止年份之间的所有闰年逐行写入考生文件夹下的Ly.txt文件。

（四）

1、打开考生文件夹下的工程文件jpx.vbp，添加适当的事件代码，实现以下功能：

（3） 单击“随机函数”按钮，在4个文本框中分别显示10到100之间的随机整数

（4） 单击“降序排列”按钮，将4个文本框中的随机整数按自左向右从小到大的顺序重新排列。

2、打开考生文件夹下的工程文件Cp.vbp，添加适当的事件代码，实现以下功能：单击“保存”按钮，将标签Label1的内容写入考生文件夹下的Aout.txt文件中。

（五）

1、打开考生文件夹下的工程文件Fstowj.vbp，添加适当的事件代码，实现以下功能：List1显示五个百分制的分数（分数生成程序已在Form_Load事件中给出），单击按钮，将List1中的百分制分数转换成对应的五级记分制表示，并依次在List2中显示。

注：90~100为“优秀”、80~89分为“良好”、70~79分为“中等”、60~69分为“及格”、0~59分为“不及格”（边界值也算在范围内）

2、打开考生文件夹下的工程文件Wbjs.vbp，添加适当的事件代码，实现以下功能：单击按钮，读入考生文件夹下的Jsdata.txt文件中的15个整数，放入Arr数组中。如果选中“求和”单选按钮Op1，在文本框T1中显示Arr数组元素之和（可调用题目所提供的Aaa过程对Arr数组元素进行累加）；如果选中“求积”单选按钮Op2在T1中显示Arr数组元素之积（可调用题目所提供的Bbb过程对数组元素进行累乘）。

（六）

1、打开考生文件夹下的工程文件Strconv.vbp，添加适当的事件代码，实现以下功能：在Text1中输入一个字符串，单击按钮，Text2将Text1中的字符串反转显示。

2、打开考生文件夹下的工程文件Xh.vbp，添加适当的事件代码，实现以下功能：单击按钮，以按行读的方式在文本框Text1中显示考生文件夹下Bdata.txt文件的内容。

（七）

1、打开考生文件夹下的工程文件Zds.vbp，添加适当的事件代码，实现以下功能：单击按钮，产生10个0~100之间（包括0和100）的随机整数，在Text1中显示最大值，在Text2中显示最小值。

2、打开考生文件夹下的工程文件Chg.vbp，添加适当的事件代码，实现以下功能：

（5） 单击“open“按钮，打开考生目录下的Infile.txt文件，将该文件内容显示在文本框中，并将文本框中的字母进行大小写互换。可调用题目所提供的Aaa过程完成上述功能

（6） 单击”save“按钮，将转换后的内容保存到考生目录下的outfile.txt文件中。

（八）

1、 打开考生文件夹下的工程文件Leapyear.vbp，添加适当的事件代码，实现以下功能：在Text1中输入一个年份。单击按钮，如果该年是闰年，在Label2中显示“闰年”，否则，显示“非闰年”

2、 打开考生文件夹下的工程文件Ps.vbp，添加适当的事件代码，实现以下功能：

（1） 单击“输入”按钮，读入考生文件夹的Intdata.txt文件中的5个整数，放入Arr数组中

（2） 单击“排序”按钮，对Arr数组元素进行升序排序（考生可调用题目所提供的Aaa过程完成数组排序）

（3） 单击“显示”按钮，将排序后的Arr数组元素通过文本框显示出来。

（九）

3、 打开考生文件夹下的工程文件Gys.vbp，添加适当的事件代码，实现以下功能：分别在Text1和Text2文本框中输入自然数M、N的值，单击按钮，标签Label3中显示M、N的最大公约数。

4、 打开考生文件夹下的工程文件Qh.vbp，添加适当的事件代码，实现以下功能：

（1） 单击“输入”按钮，读入考生文件夹的Adata.txt文件中的20个整数，放入Arr数组中

（2） 单击“求和”按钮，在文本框中显示这20个整数的和。

（十）

1、 打开考生文件夹下的工程文件Sjpx.vbp，添加适当的事件代码，实现以下功能：

（3） 单击“随机整数”按钮，在4个文本框中分别显示10到100之间的随机整数

（4） 单击“降序排列”按钮，将4个文本框中的随机整数按自左向右从大到小的顺序重新排列。

2、打开考生文件夹下的工程文件Cp.vbp ,添加适当的事件代码，实现以下功能：单击“保存”按钮，将标签Label1的内容写入考生文件夹下的Aout.txt文件中。

（十一）

1、 打开考生文件夹下的工程文件Pds.vbp，添加适当的事件代码，实现以下功能：单击按钮，调用程序中提供的GetChar过程，产生一个随机字符并显示在Text1中，同时判断该字符属于字母、数字或其它字符中的哪一类，将结果显示在Label1上。

2、 打开考生文件夹下的工程文件Dwj.vbp，添加适当的事件代码，实现以下功能：

（1） 单击“读入数组”按钮，读入考生文件的In.txt文件中的100个整数，放入A数组中

（2） 单击“保存奇数”按钮，可将数组A中的奇数存入B数组中。

（十二）

1、 打开考生文件夹下的工程文件Zds.vbp，添加适当的事件代码，实现以下功能：单击按钮，产生10个0~100之间（包括0和100）的随机整数，在Text1中显示最大值，在Text2中显示最小值。

2、 打开考生文件夹下的工程文件Chg.vbp，添加适当的事件代码，实现以下功能：

（1） 单击“Open”按钮，打开考生目录下的Infile.txt文件，将该文件内容显示在文本框中，并将文本框中的字母进行大小写互换。可调用题目所提供的Aaa过程完成上述功能。

（2） 单击“Save“按钮，将转换后的内容保存在考生目录下的Outfile.txt文件中。

编程题部分参考答案:

（一）1、command1_click()

dim n as integer,I as integer,flag as Boolean

flag=false

n=val(text1.text)

for i=2 to n-1

if n mod i=0 then

flag=true

exit for

end if

next i

if flag=false and n<>1 and n<>2 then

label2.caption=”Yes”

else

label2.caption=”No”

end if

2、command1_click()

dim s as long

s=countchar(text1.text)

open app.path &”\paperout.txt” for output as #1

print #1,s

close #1

(二)

1、command1_click()

dim strx1 as string,strx2 as string,intN as integer

strx1=text1.text

intN=len(strx1)

for i=intN to 1 step -1

strx2=strx2 & mid(strx1,I,1)

next i

text2.text=strx2

2、Command1_click()

dim strx as string

open app.path & “Bdata.txt” for input as #1

do until eof(1)

line input #1,strx

text1.text=text1.text+strx+chr(13)+chr(10)

loop

close #1

(三)

1、command1_click()

dim I as integer,n as integer,s as long

n=val(text1.text)

if op1.value=true then

s=0

for i=1 to n

if I mod 2<>0 then s=s+i

next i

end if

if op2.value=true then

s=0

for i=1 to n

if I mod 2=0 then s=s+i

next i

end if

text2.text=str(s)

2、“通用过程”：option base 1

command1_click()

dim n1 as integer,n2 as integer,flag as Boolean

flag=false

n1=val(text1.text):n2=val(text2.text)

open app.path & “\ly.txt” for output as #1

for i=n1 to n2

flag=Isleapyear(i)

if flag=true then

print #1,i

end if

next i

close #1

(四)

1、”通用过程“：

option base 1

dim x(4) as integer

Command1_click()

Randomize

For i=1 to 4

X(i)=int(rnd*91)+10

Next i

Text1.text=x(1)

Text2.text=x(2)

Text3.text=x(3)

Text4.text=x(4)

Command2_click()

Dim t as integer

For i=1 to 3

For j=i+1 to 4

If x(i)>x(x(j) then

T=x(i)

x(i)=x(j)

x(j)=t

end if

next j

next i

Text1.text=x(1)

Text2.text=x(2)

Text3.text=x(3)

Text4.text=x(4)

2、Command1_click()

open app.path & “\aout.txt” for output as #1

print #1,label1.caption

close #1

(五)

1、Command1_click()

dim I as integer

for i=0 to list1.listcount-1

select case list1.list(i)

case is<60

list2.additem “不及格”

case is<70

list2.additem “及格”

case is<80

list2.additem “中等”

case is<90

list2.additem “良好”

case else

list2.additem “优秀”

end select

next i

2、Command1_click()

dim s as double,I as integer

open app.path & “\jsdata.txt” for input as #1

for i=1 to 15

input #1,arr(i)

next i

close #1

if op1.value=true then s=aaa

if op2.value=true then s=bbb

t1.text=str$(s)

(七)

1、command1_click()

option base 1

dim x(10) as integer,max as integer,min as integer

randomize

for i=1 to 10

x(i)=int(rnd*101)

next i

max=x(1)

min=x(1)

for i=2 to 10

if max

if min>x(i) then min=x(i)

next i

text1.text=str$(max)

text2.text=str$(min)

2、command1_click()

(1)”open_click()

str=aaa

(2)save_click()

open app.path & “\outfile.txt” for output as #1

print #1,text1.text

close #1

(八)

1、command1_click()

dim y as integer

y=val(text1.text)

if (y mod 4=0 and y mod 100<>0) or (y mod 400=0) then

label2.caption=”闰年”

else

label2.caption=“非闰年”

end if

2、

(1)“输入_click()”

open app.path & ‘\intdata.txt” for input as #1

for i=0 to 4

input #1,arr(i)

next i

close #1

(2)”排序“

aaa

(3)“显示”

for i=0 to 4

t1(i).text=arr(i)

next i

(九)

1、dim m as integer,n as integer,r as integer

m=val(text1.text)

n=val(text2.text)

r=m mod n

do while r<>0

m=n

n=r

r=m mod n

loop

label3.caption=str$(n)

2、

(1)open app.path & “\adata.txt” for input as #1

for i=0 to 19

input #1,arr(i)

next i

close #1

(2)dim s as long

s=0

for i=0 to 19

s=s+arr(i)

next i

text1.text=str$(s)

(十)

1、”通用“

dim x(4) as integer

(1) randomize

for i=1 to 4

x(i)=int(rnd*91)+10

next i

text1.text=x(1)

text2.text=x(2)

text3.text=x(3)

text4.text=x(4)

(2) for i=1 to 3

for j=i+1 to 4

if x(i)

t=x(i)

x(i)=x(j)

x(j)=t

end if

next

next

text1.text=x(1)

text2.text=x(2)

text3.text=x(3)

text4.text=x(4)

2、open app.path & “\aout.txt” for output as #1

print #1,label1.caption

close #1

（十一）

1、 dim s as string,n as integer

call getchar(s)

text1.text=s

n=asc(s)

if (n>=65 and n<=91) or (n>=97 and n<=123)then

label1.caption=”字母“

elseif n>=48 and n<=58 then

label1.caption=”数字“

else

label1.caption=”其它字符“

end if

2、（1）dim a(99) as integer

open app.path & “\in.txt” for input as #1

for i=0 to 99

input #1,a(i)

next i

close #1

(2)dim b(99) as integer

for i=0 to 99

if a(i) mod 2<>0 then

b(i)=a(i)

end if

next

vb编程题部分及答案