全国计算机二级VB上机题库Word文档下载推荐.docx
- 文档编号:18494647
- 上传时间:2022-12-17
- 格式:DOCX
- 页数:44
- 大小:1.66MB
全国计算机二级VB上机题库Word文档下载推荐.docx
《全国计算机二级VB上机题库Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《全国计算机二级VB上机题库Word文档下载推荐.docx(44页珍藏版)》请在冰豆网上搜索。
0AndInStr(x,"
n"
0Then
m=m+1
EndIf
EndIf
Nexti
text2=Str(m)
第二题
DimkAsInteger
\in5.dat"
Fork=1To100
Input#1,a(k)
Text1=Text1+Str(a(k))+Space
(2)
Nextk
Dimb(100)AsInteger
num=0
IfLen(Text1.Text)=0Then
请先执行“读数据”功能!
考生编写(功能:
生成存放素数的数组b)
'
注意:
请务必将数组b的元素个数存入变量num中
num=1
Fori=1To100
Forj=2ToSqr(a(i))
Ifa(i)Modj=0Then
ExitFor
Nextj
Ifj>
Sqr(a(i))Then
b(num)=a(i)
num=num+1
以下程序段将b数组的内容显示在Text2中
Fori=1Tonum-1
Text2.Text=Text2.Text+Str(b(i))+Space
(2)
PrivateSubForm_Unload(CancelAsInteger)
\out5.dat"
ForOutputAs#1
Print#1,Text2.Text
第三题
在控件上右击——属性
第四题
PrivateSubmenu2_Click()
menu1.Enabled=True
第五题
第一小题
(1)
Dima(10)AsInteger
PrivateSubForm_Load()
Fori=1To10
a(i)=Int(Rnd*100)
Next
x=a
(1)
y=a
(1)
Fori=2To10
IfOption1.Value=TrueThen
Ifa(i)>
xThen
x=a(i)
ElseIfa(i)<
yThen
y=a(i)
Label2.Caption=x
Label2.Caption=y
第二小题
(2)
PrivateSubList1_DblClick()
CallMoveItem(List1,List2)
CallMoveAll
PublicSubMoveItem(L1AsListBox,L2AsListBox)
L2.AddItemL1.Text
L1.RemoveItemL1.ListIndex
PublicSubMoveAll()
Fori=0ToList1.ListCount-1
List2.AddItemList1.List(i)
Dima(7,7)AsInteger
read
PublicSubread()
\Data5.txt"
DoWhileNotEOF
(1)
Fori=1To7
Forj=1To7
Input#1,a(i,j)
Loop
PublicSubSave()
\out5.txt"
Print#1,lblFirst.Caption,lblSecond.Caption
DimSumAsLong
N=7
Counter=0
Sum=0
===============考生编写程序开始======================
Fori=1ToN
Forj=1ToN
Ifi=jOri+j=8Then
Ifa(i,j)Mod3=0Then
Counter=Counter+1
Sum=Sum+a(i,j)
lblFirst.Caption=Counter
lblSecond.Caption=Sum
===============考生编写程序结束======================
Save
第六题
时钟的interval属性设置为300
DimflagAsInteger
PrivateSubCmd_Click(IndexAsInteger)
IfIndex=2Then
End
Image1.Picture=LoadPicture("
yellow.ico"
)
flag=Index
Timer1.Enabled=True
PrivateSubTimer1_Timer()
SelectCaseflag
Case0
green.ico"
Timer1.Enabled=False
Case1
red.ico"
EndSelect
第七题
第八题
PrivateSubForm_Click()
Label1.Visible=True
Form1.Caption="
标签"
第九提
CallShowName(Command1)
PrivateSubLabel1_Click()
CallShowName(Label1)
PrivateSubShowName(cAsControl)
IfTypeOfcIsCommandButtonThen
Label2.Caption="
单击"
&
Command1.Caption
第十题
注意,时钟interval设置为500
Picture1(0).Left=0
Picture1(0).Top=100
Fork=1To7
Picture1(k).Visible=False
StaticiAsInteger
Picture1(i).Visible=False
i=i+1
Ifi=7Then
i=0
Picture1(i).Visible=True
第十三题
第十四题
第十五题
第十六,七题
PrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
PrivateSubText2_Change()
IfCheck1.Value=1Then
Text3.PasswordChar="
#"
Text3.Text=Text2.Text
‘Text1.Enabled=true
Text1.SetFocus
IfText1.Enabled=FalseThen
请先使用“输入密码”功能!
IfText1<
abc"
Then
n=n+1
Ifn=3Then
三次密码输入错误,你无权进入本系统!
第"
+Str(n)+"
次密码输入错误,请重试!
Text1="
Text1.Enabled=False
form1.Hide
form2.Show
‘Form2:
Form2.Hide
Form1.Show
第十八题
OptionBase1
IfText1.sellength=0Then
Ift="
the"
第十九题
Dima(100)AsInteger,numAsInteger
Text1=Text1+Str(a(k))+Space
(1)
'
生成b数组,且按从小到大顺序排序)
以下程序段将已排序的b数组显示在Text2中
Fori=1Tonum
第二十题
第二十一题
n=InputBox("
请输入"
"
等级考试"
Basic"
第二十二题
DimnAsInteger
DimbAsInteger
Dima(3)AsInteger
s=RTrim(Text1.Text)
n=Len(Text1.Text)
Fori=1Ton
b=a(Mid(s,i,1))
SelectCaseAsc
Case48To57
a(0)=a(0)+1
Case65To90
a
(1)=a
(1)+1
Case97To122
a
(2)=a
(2)+1
Fori=0To2
Label=a(i)
PrivateSubremove(LaAsListBox,LbAsListBox)
Fori=0Tola.listcount-1
Lb.AddItemla.List(i)
la.Clear
Callremove(List1,List2)
Callremove(List2,List1)
第二十四题
Print#1,Label4.Caption
DoWhileNoteof
(1)
Input#1,a(i)
s=s&
a(i)
Label2.Caption=s
============以下考生编写程序开始=================
Fori=1to9
Forj=i+1to10
Ifa(i)>
a(j)then
t=a(i)
a(i)=a(j)
a(j)=t
endif
nextj
nexti
============考生编写程序结束=====================
Str(a(i))
Label4.Caption=s
第二十五,六题
PrivateSubHScroll1_Change()
PrivateSubList1_Click()
HS.Width=List1.Text
第二十七题
Loadme
PrivateSubOption1_Click(IndexAsInteger)
n=Val(Text1.Text)
SelectCaseIndex
Text2.Text=f1(n)
Text2.Text=f1(n+2)
PublicFunctionf1(nAsInteger)AsLong
DimxAsLong
x=1
x=x*i
Next
f1=x
EndFunction
第二十八题
\in4.txt"
LineInput#1,s
s=Text1.Text
s1=RTrim(Text2.Text)
Do
p=InStr(s1,s)
Ifp<
0Thenn=n+1
s=Mid(s,p+1)
LoopWhilep=0
Label3.Caption=n
第二十九题
PrivateFunctionisprime(aAsInteger)AsBoolean
DimflagAsBoolean
flag=True
b%=2
DoWhileb%<
=Int(a/2)Andflag
IfInt(a/b%)=a/b%Then
flag=False
b%=b%+1
isprime=flag
PrivateSubC1_Click()
DimxAsInteger
x=17999
DoWhilex<
18000
Ifisprime(x)Then
Text1.Text=x
ExitDo
x=x-2
Loop
PrivateSubC2_Click()
Print#1,Text1
第三十题
第三十三题
DimIasinteger,jasinteger,tasinteger,nasinteger
ForI=1to100
Ifa(i)mod3=0then
N=n+1
B(n)=a(i)
Endif
Fori=1ton-1
Forj=i+1ton
Ifb(i)>
b(j)then
T=b(i)
B(i)=b(j
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 全国计算机 二级 VB 上机 题库