vb编程题部分及答案

编程题

（一）

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

本文来源：https://www.bwwdw.com/article/qf3d.html