全国二级VB综合题.docVIP

1读通讯录 RecNum=RecNum+1 Put#1，recnum, pers Loop while UCase(asp) =”Y” Recnum=lof(1)/len(pers) Get #1 ,i , pers 2在文本框输入一个素数，单机查找按钮，找出小于给定素数的三个最大素数，并显示在标签空间数组lblresult中 Dim j as integer Dim n as integer N=val(txtinput.text)-1 For j= 0 to 2 While not isprime(n) N=n-1 Wend Lblresult(j).caption = n N=n-1 Next 3单机“显示第三个记录”读取第三个记录，分别显示在3个文本框 Private sub cmddisplay_click() Dim pers as paltype Open “in5.txt” for random as #1 len =len(pers) Get #1 ,3 ,pers Txtname.text=pers.name Txttel.text=pers.tel Txtpost.text=pers.post Close #1 End sub 4求100个水仙花数平均值结尾取整显示在文本框中 Dim sum as integer Dim n as integer Dim x as integer Dim y as integer Dim z as integer For I =1 to 100 X=int(a(i)/100) Y= int((a(i)-x*100)/10) Z=a(i)-x*100-y*10 If a(i)=x^3+y^3+z^3 then Sum=sum+a(i) n=n+1 end if next txtresult.text=int(sum/n) 5一数列，选中单选按钮，计算出第N项的值，显示在文本框中 Private sub cmdcal_click() Dim a() as integer Dim i as integer Dim n as integer For I = 0 to optnum.count-1 If optnum(i).value = true then N=val(optnum(i).caption) Exit for End if Next Redim a(n) a(1)=1 a(2)=2 for I = 3 to n a(i)=a(i-1)+a(i-2) next txtresule.text = a(n) end sub 6TEXT1中输入密码，123456显示正确，输入其他的提示错误，T系统 中数字减1 If txt1.text=”123456” then Txt1.passwordchar=”” If txt2.text0 then Txt1.enable=false 7单击计算，把两个数组中对应下表的元素相减，结果放入第三个数组中，最后计算第三个数组的各元素之和，在窗体上显示出来 Private sub cmdresd_click() Readdata1 Readdata2 End sub Private sub cmdcal_click() Dim Arr3(20) as integer Dim sum as integer Sum=0 For I = 1 to 20 Arr3(i)=arr1(i)-arr2(i) Sum = sum +arr3(i) Next Print sum Writedata “out5.dat”, sum end sub 8单击计算按钮产生次数列的前N项显示在txtlist中 Txtlist =txtlist a ” ” b a=b if k=n then b=d 9注册成功显示“注册成功”否则显示相应错误信息 用户名口令正确显示“登陆成功”否则显示错误信息 ---注册窗体 FORM2 N=N+1 ---登陆窗体 FORM3 If k = 0 then Else if trim$(text2)users(k,2) then 10去掉最高分和最低分求剩下的平均分再乘以3，再乘以难度系数 S=a(n-1) For k=2 to 7 Getmark = s*3*a(n,8) Private sub cmdselect_click() Dim max as integer Dim i as integer Max=1 For I =2 to 5 If getmark(max)getmark(i)