1)private sub command1_click() x=10:y=0 for i=1 to 5 do x=x-2 y=y+2 loop until y>5 or x5 or x
是7,i=1 3次
i=2 to 5 4 次
为您推荐：
其他类似问题
扫描下载二维码new HoverPopover({
el: $adExplanation,
placement: 'bottom',
html: true,
content: content
});&We're trying Google Ads to subsidize server costs. If you are logged in, you won't see ads. Hover to learn more.&Academia.edu is experimenting with adsA STATISTICAL GENERALIZED PROGRAMMING ALGORITHM645 PagesAlexei Gaivoronski1&of 2&&connect to downloadGet&pdfREAD PAPERA STATISTICAL GENERALIZED PROGRAMMING ALGORITHM
Log In&with&FacebookLog In&with&GoogleEmail:Password:Remember me on this computeror&Enter the email address you signed up with and we'll email you a reset link.
Academia & 20162012春江苏省计算机二级VB笔试真题
2012春江苏省计算机二级VB笔试真题
3(20),(1 0
1.& ,___(1)___&&&
2.& ,___(2)___&&&
&&& A."",()
&&& B.,"",
3.& ,___(3)___
&&& B.2090,""
&&& D.HPDELLPC
4.& PCCPU,___(4)___
&&& A.,PCIntelCPU
&&& B.Intel Core i7CPU,i77
&&& C.PCAMDCPU,IntelCPU
&&& D.PCCPU&&&
5.& PCCMOSBIOS.___(5)___&&&
&&& A.CMOS,
&&& B.BIOS.
&&& C.CMOSCMOS,BIOS
&&& D.CMOS,
6.& PC,___(6)___
&&& A.USB3.0
&&& B.IEEE.1394b
&&& C.IDE&&&
&&& D.(IrDA)
7.& .___(7)___
&&& B.,dpi
&&& C.CCDCMOS.
8.& ,80mmDVD
& . ___(8)___
& A.670MB&&& B.1.46GB
& C.4.7GB&&& D.25GB
&&& ,___(9)___
&&& B.Adobe Acrobat&
&&& C.Word
&&& D.Access
10.Windows XP,___(10)___
&&& A.Windows XP.
&&& B.Windows xP
&&& C.Windows XP
&&& D.RAMROM,
11..___(11)___
12.Microsoft Office 2000().___(12)___
&&& A.WordExcelPowerPoint,
&&& B.Word,
&&& C.ExceI,
&&& D.PowerPoint,HTML()
13..___(13)___
14.IPv436.IPv6IP
&&& ___(14)___,IP
&&& A.32&&& B.64
&&& C.128&& D.256
15.IP.___(15)___&&&
&&& C.ADSL,IP
16TCP/IP.100()
___(16)___&&&
&&& A.NNTP
&&& C.Telnet
&&& D.SMTP
&&& .___(17)___&&&
&&& C..Cable MODEM
18.,___(18)___&&&
&&& C.DOCHTMLPDF,
19..1024102424
___(19)___
& A.24KB&&& B.3MB
& C.8MB&&& D.24MB
&&& ___(20)___
&&& A.&& .WAV
&&& B.&& .MIDI
&&& C.&& .AVI
&&& D.&& .MPG
第二部分Visual Basic程序设计
一、选择题(用答题卡答题,答案依次填在2l～30答题号内)
21.以下说法中,错误的是___(21)___。
&&& A.以.frm为扩展名的文件是窗体模块文件
&&& B.以.bas为扩展名的文件是标准模块文件
&&& C.窗体模块文件包含该窗体及其窗体上相关控件的属性信息
&&& D.标准模块文件由事件过程、通用过程等内容组成
22.下列语句中,错误的是___(22)___。
& A.Label1.Caption="Hello"&&&&& B.Text1.Caption="Hello"
& </mand1.Caption="Hello"&& D.Frame1.Caption="Hello"
23.在一个控件数组中用___(23)___属性标识不同的控件数组元素。
& A.TabIndex&&& B.Index&&& C.Caption D.Left
24.在select Case X结构语句中(X为Integer类型),能正确描述5≤x≤10的Case语句是___(24)___
&&& A.Case Is&=5,Is&=10&&& B.Case 5&=X&=10
&&& C.Case 5&=X,X&=10&&&&& D.Case 5 To 10
25.分别执行以下语句,输出结果为True的是___(25)___。
& A.Print CInt(4.5)&Int(4.5)&&& B.Print CInt(-4.5)&Fix(-4.5)
& C.Print CInt(-4.5)&Int(-4.5)& D.Print CInt(4.5)&Fix(4.5)
26.数学表达式 -Sin( )对应的VB表达式是___(26)___。
& A.Sqr(x+y)-Sin(Abs(y^2*x)/(x-y))
& B.Sqr(x+y)-Sin(Abs(y^2*x)/x-y)
& C.Sqr(x+y)-Sin(|y^2*x|/(x-y))
& D.Sqr(x+y)-Sin(|y^2*x|/x-y)
27.以下关于变量的说法中,正确的是___(27)___。
&&& A.同一个模块中的模块级变量不能和局部变量同名
&&& B.同一模块的不同过程中的变量名不能相同
&&& C.不同模块中的变量名不能相同
&&& D.不同模块中的全局变量名可以相同
28.在窗体的通用声明处有语句Dim a() As Single,以下重新定义数组的语句中,正确的是___(28)___
& A.ReDim a(3,3):ReDim a(3,4) As Double&&& B.ReDim a(3,3):ReDim Preserve a(4,4)
& C.ReDim a(3): ReDim a(3,3) As Double&&&& D.ReDim a(3,3):ReDim Preserve a(3,4)
29.以下有关自定义函数过程的说法中,错误的是___(29)___。
&&& A.在自定义函数过程中可以多次为函数名赋值
&&& B.如果在函数体内没有给函数名赋值,则该函数无返回值
&&& C.函数名的命名规则与变量名的命名规则相同
&&& D.函数定义时如果没有说明函数名的类型,则为变体类型
30.设x为字符型变量,n为整型变量,以下关于Mid函数的说法中,错误的是___(30)___。
&&& A.Mid(x,n)表示从字符串x的第n个位置开始向右取所有字符
&&& B.若x="xyz",执行语句Mid(x,1,2)="ab"后,x的值为"abz"
&&& C.Mid(x,n,1)的取值与Left(x,n)的取值相同
&&& D.使用Mid函数可提取字符串中指定位置、指定个数的字符
二、填空题(请将答案填写在答题纸的相应答题号内,每个答案只占一行)
1.执行下面程序,单击命令按钮Command1后,a(2,3)的值为___(1)___,a(3,4)的值为___(2)___,
a(5,4)的值为___(3)___。
&&& Option Explicit
&&& Private Sub Commandl_Click()
&&&&& Dim a(5,5)As Integer,i As Integer,j As Integer
&&&&& For i=1 TO 5
&&&&&&& For j=1 To 5
&&&&&&&&&& If& i=1 Or j=1 Then
&&&&&&&&&&&& a(i,j)=1
&&&&&&&&&& Else
&&&&&&&&&&&& a(i,j)=a(i-1,j)+a(i,j-1)
&&&&&&&&&& End If
&&&&&&&&&& Print a(i,j)；
&&&&&&& Next j
&&&&&&& Print
&&&&& Next& i
&&& EndSub
2.执行下面程序,单击命令按钮Cmd1后输出的fun函数值是___(4)___,a的值是___(5)___&&& ,
b的值是___(6)___。
&&& Option Explicit
&&& Private Sub Cmd1_Click()
&&&&&& Dim a As Integer,b As Integer
&&&&&& a=8
&&&&&& b=12
&&&&&& Print fun(a,b);a;b
&&& End Sub
&&& Private Function fun(ByVal a As Integer,b As Integer)As Integer
&&&&& a=a Mod 5
&&&&& b=b\5
&&&&& fun=a+b
&&& End Function
3.执行下面程序,单击命令按钮Cmd1后,a(2)的值是___(7)___,a(3)的值是___(8)___,a(5)
的值是___(9)___。
& Option Explicit
& Option Base 1
& Private Sub Cmd1_Click()
&&& Dim a() As Integer,i As Integer,n As Integer
&&& Dim k As Integer
&&& ReDim a(n)
&&& For i=1 To n
&&&&&& a(i)=2*i-1
&&& Next i
&&&&&& For i=UBound(a) To 1 Step -1
&&&&&&&& If i Mod a(k)=0 Then
&&&&&&&&&&&& Call delete(a,i)
&&&&&&&& End If
&&&&&& Next i
&&&&&& k=k+1
&&& Loop Until a(k)&UBound(a)
&&& For i=1 To UBound(a)
&&&&&& Text1=Text1 & Str(a(i))
&&&&&& If i Mod 5=0 Then Text1=Text1 & vbCrLf
&&& Next i
& Private Sub delete(a() As Integer,i As Integer)
&&& Dim k As Integer
&&& If i&&UBound(a) Then
&&&&&& For k=i+1 To UBound(a)
&&&&&&&&& a(k-1)=a(k)
&&&&&& Next k
&&& End If
&&& ReDim Preserve a(UBound(a)一1)
4.执行下面程序,单击命令按钮cmdRun后,窗体上显示的第一行内容是___(10)___,第二行内
容是___(11)___,最后一行内容是___(12)___。
& Option Explicit
& Private Sub CmdRun_Click()
&&& Dim n As Integer
&&& Print F1(n)
& Private Function F1(ByVal n As Integer)As Integer
&&& Static x As Integer
&&& If n&6 Then
&& &&&&F1=F1(n-2)+n
&&&&&& F1=n+x+1
&&& End If
&&& x=2*x+1
&&& Print F1,x
& End Function
&5.执行下面程序,单击命令按钮cmd1后,窗体上显示的第一行内容是___(13)___,第二行内容
是___(14)___ ;最后一行内容是___(15)___
& Option Explicit
& Private Sub Cmdl_Click()
&&& Dim i As Integer,c As Integer,s As String,t As String*1
&&& Dim a() As String,s1 As String,jg As Integer
&&& s="43X17Z23Y"&&& ’
&&& For i=1 To Len(s)
&&&&& t=Mid(s,i,1)
&&&&& s1=s1 & t
&&&&& If t&="X" And t&="Z" Then
&&&&&&&& c=c+1
&&&&&&&& ReDim Preserve a(c)
&&&&&&&& a(c)=s1
&&&&&&& &s1=""
&&&&& End If
&&& Next i
&&& Call sub1(a,jg)
&&& Print jg
& Private Sub sub1(a() As String,gj As Integer)
&&& Dim i As Integer
&&& For i=1 To UBound(a)
&&&&&& gj=gj+tran(a(i))
&&& Next i
&&& gj=gj/UBound(a)
& Private Function tran(ss As String)As Integer
&&& Dim i As Integer,t As Integer,st As String*1
&&& Dim P As Integer
&&& P=Len(ss)-1
&&& st=Right(ss,1)
&&& If st="X" Then
&&&&&& t=8
&&& ElseIf st="Y" Then
&&&&&& t=10
&&&&&& t=16
&&& End If
&&& For i=1 To P
&&&&&& tran=tran+Val(Mid(ss,i,1))*t^(P-i)
&&& Next i
&&& Print tran
&End Function
&&& 6.本程序的功能是按下列公式编写求积分余弦函数值,当通项的绝对值小于10 时停止计算,请完善
本程序。(提示:函数fact是用递归求阶乘。)
&&& f(x)=lnx+ ,&& x&0
Option Explicit
& Private Sub Command1_Click()
&&& Dim x As Single,y As Single
&&& Dim k As Integer,tx As Single
&&& x=Val(Text1.Text)
&&& y=Log(x)
&&&&& k=k+1
&&&&& tx=___(16)___
&&&&& y=y+tx
&&& Loop while& ___(17)___
&&& Text2.Text=Format(y,"0.#######")
& Private Function fact(ByVal n As Integer)As Long
&&& If n&=1 Then
&&&&&& fact=1
&&&&&& fact=___(18)___
& End Function
7.下面程序的功能是从输入的一串数字中找出全部由该数字串中连续数字组成的素数。
Option Explicit
Private Sub CmdRun_Click()
& Dim n As Long,s As String
& Dim i As Integer,j As Integer
& S=Text1.Text
& For i=1 To Len(s)
&&& For j=1 To Len(s)-i+1
&&&&& n=___(19)___
&&&&& If prime(n)& Then List1.AddItem CStr(n)
&&& Next j
Private Function prime(___(20)___)As Boolean
&&& Dim i As Integer
&&& For i=2 To Sqr(n)
&&&&& If n Mod i=0 Then Exit Function
&&& Next i
&&& ___(21)___
End Function
8.这是一个解密程序。密码由若干数字组成,每三位为一个数字组,若数字组中所有数字均小于5,
则该数字组有效,将有效的数字组按5进制转换成10进制数,再按ASCII代码转换为字符就可得到明
& Option Explicit
& Private Sub Command1_Click()
&&& Dim st As String,p As String
&&& st=Text1
&&&&&& P=___(22)___
&&&&&& If judge(p) Then
&&&&&&&&&& Text2=Text2 & Chr(conv(p))
&&&&&& End If
&&&&&& st=Right(st,Len(st)-3)
&&& Loop Until& ___(23)___
& Private Function judge(p As String) As Boolean& '判断有效数字组
&&& Dim q As String*1,i As Integer
&&& For i=1 To Len(p)
&&&&& q=Mid(p,i,1)
&&&&& If ___(24)___ Then Exit Function
&&& Next i
&&& judge=True
& End Function
& Private Function conv(p As String)As Integer&&&& '进制转换
&&& Dim k As Integer,q As String*1,i As Integer
&&& For i=Len(p) To 1 Step-1
&&&&& q=Mid(p,i,1)
&&&&& conv=conv+Val(q)*5^k
&&&&& ___(25)___
&&& Next i
& End FUnction
9.以下程序的功能是验证"数学黑洞6174"。对于任意一个各位数字不全部相同的四位整数,将组成
该数的数字组合成一个最大的数和一个最小的数,二者相减,判断其差值是否为6174,若不是,再将
相减的结果组合成新的最大的数和最小的数,以上过程最多重复7次,必得结果6174。程序运行界面
如图所示。
& Option Explicit
& Option Base 1
& Private Sub Cmd1_Click()
&&& Dim i As Integer,k As Integer
&&& Dim max As Integer min As Integer
&&& k=Val(Text1)
&&& For i=1 T0 3& '判断4位数字是否全部一样
&&&&& If Mid(CStr(k),i,1)&&Mid(CStr(k),i+1,1) Then ___(26)___
&&& Next i
&&& If i&3 Then
&&&&& MsgBox "输入的数据不合要求"
&&&&& Text1=""
&& &&&Exit Sub
&&& End If
&&& For i=1 To 7
&&&&&& Call Validate(k max,min)
&&&&&& List1.AddItcm k &":" & max &"-" & min & "=" & max-min
&&&&&& If max-min=6174 Then
&&&&&&&&&& Exit For
&&&&&& Else
&&&&&&&&& k=___(27)___
&&&&&& End If
&&& Next i
&&& If ___(28)___ Then List1.AddItem "验证失败!"
& Private Sub Validate(n As Integer,max As Integer,min As Integer)
&&& Dim i As Integer,t(4)As Integer
&&& Dim s As String,s1 As String,s2 As String
&&& S=CStr(n)
&&& For i=1 To 4
&&&&&& t(i)=Val(Mid(s,i,1))
&&& Next i
&&& Call sort(t)
&&& For i=1 To 4
&&&&& s1=s1 & CStr(t(i))
&&&&& s2=___(29)___
&&& Next i
&&& min=Val(s1)
&&& max=VaI(s2)
& Private Sub sort(a() As Integer)
&&& Dim i As Integer,j As Integer,t As Integer
&&& For i=1 To UBound(a)-1
&&&&& For j=i+1 To UBound(a)
&&&&&&& If ___(30)___ Then
&&&&&&&&& t=a(i):a(i)=a(j):a(j)=t
&&&&&&& End If
&&&&& Next j
&&& Next i
(-1)^k*x^(2*k)/(2*k*fact(2*k))
Abs(tx)&=10^-5
N*fact(n-1)
Mid(s,i,j)
Prime=true
Mid(st,1,3)
i&7& 或& i=8
Cstr(t(i)) & s2
A(i)& a(j)> 问题详情
设有如下程序 Private Sub Command1 Click（
x=10：Y=0 For i=l To 5 Do x=x2 y=y2 Loop Un
悬赏：0&答案豆
提问人：匿名网友
发布时间：
设有如下程序 Private Sub Command1 Click（
x=10：Y=0 For i=l To 5 Do x=x-2 y=y+2 Loop Until y&j Or x&-l Nex1 End Sub 运行程序，其中Do循环执行的次数是（ 。A.15B.10C.7D.3请帮忙给出正确答案和分析，谢谢！
网友回答（共0条）
我有更好的答案
您可能感兴趣的试题
1有下列二叉树，对此二叉树前序遍历的结果是（　　）。A.ACBEDGFHB.ABDGCEHFC.HGFEDCBAD.ABCDEFGH2下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。空白处应填入的内容是（　　）。Private Type AngK As IntegerSinx As SingleCosx As SingleEnd TypePrivate Sub Form_Click（　　）Dim Y As SingleDim i As IntegerDim Ksc As AngOpen_______Y=3．1For i-1 T0 90&&&KSC．K-i&&&KSC．Sinx=Sin(i*Y)&&&KSC．Cosx=Cos(i+Y)&&&________Next iClose#2Elld StubA."．．＼Data1．txt"For RandomAs#1 Len=10
Put#1，i，KSCB."．．＼Data1．txt"For Random As#1 Len=10
Put#1，Y，KSCC."．．＼Data1．txt"For Random As#1 Put#1，i，KSCD."．．＼Data1．txt"For Random As#1 Put#1，Y，KSC
相关考试课程
请先输入下方的验证码查看最佳答案
图形验证：
验证码提交中……