VB程序改错40题.docx
- 文档编号:1079583
- 上传时间:2022-10-16
- 格式:DOCX
- 页数:52
- 大小:49.63KB
VB程序改错40题.docx
《VB程序改错40题.docx》由会员分享,可在线阅读,更多相关《VB程序改错40题.docx(52页珍藏版)》请在冰豆网上搜索。
VB程序改错40题
第2题(1、0分) 题号:
129
'【程序改错】
’题目:
该程序实现将输入得0-255 之间得正整数转
' 换成二进制数
Option Explicit
PrivateSubForm_Click()
Constn=8
Dima(n) AsInteger,s As String,mAsInteger,xAs
Integer
x=Val(InputBox(”请输入一个0— 255之间得正整数:
"))
Printx
’**********FOUND**********
Form=1Ton
a(m)= x Mod2
’**********FOUND**********
x= x/2
Nextm
s =" ”
Form =n To 0Step-1
’**********FOUND**********
s =Str(a(m))
Nextm
Prints
EndSub
答案:
(答案1)Form=0 Ton=======(答案2)x=x\2或x=int(x/2)=======(答案3)s =s +Str(a(m))
第3题(1、0分) 题号:
463
'题目:
以下程序功能就是输入三个数,由大到小排序。
’-----—-——-——---——-——-————-—-----—-———----—----——
OptionExplicit
DimAAs Integer
DimBAsInteger
DimCAsInteger
PrivateSub Form_Click()
Dim nTempAsInteger
A=Val(InputBox("Pleaseinputfirstinteger","输入正整数”))
B=Val(InputBox(”Pleaseinputsecond integer”,"输入正整数"))
C= Val(InputBox(”Pleaseinput third integer”,"输入正整数”))
'**********FOUND**********
If A <=C Then
nTemp=A
A= B
B=nTemp
EndIf
’**********FOUND**********
IfB <=CThen
nTemp=A
A =C
C =nTemp
EndIf
'**********FOUND**********
IfA〈=BThen
nTemp=B
B=C
C=nTemp
EndIf
Print ”Theintegers inorder is”; A;B;C
EndSub
答案:
=======(答案1)=======
If A <=BThen
=========或=========
IfB>= AThen
=======(答案2)=======
If A<=C Then
=========或=========
IfC >=AThen
=======(答案3)=======
If B〈=C Then
=========或=========
If C>= BThen
第4题(1、0分)题号:
127
’题目:
下面程序可输出如下图形:
’ *
’ ***
’ *****
'*******
' *********
’———--------—-—-———-——---——----————-———-—————-———
OptionExplicit
PrivateSubForm_Click()
DimmAsInteger,n AsInteger,sAsString,iAsInteger,jAs
Integer
n=4
m= 1
s ="*”
Fori=5 To1 Step—1
’**********FOUND**********
Print Spc(n)
For j =1To2 *m— 1
Prints;
Nextj
'**********FOUND**********
n = n +1
’**********FOUND**********
m =m—1
Nexti
EndSub
答案:
=======(答案1)=======
PrintSpc(n);
=======(答案2)=======
n=n-1
=======(答案3)=======
m=m+ 1
第5题(1、0分)题号:
469
’题目:
已知一个函数f(x)=1000*sin(x),利用绘图方法
' 在图片框中显示其图形。
结果如图1
’-———-----——-—————-—--—-—--—-———--—-————-—-—-—-——
OptionExplicit
Private Const pi =3、14159
PrivateSubmand1_Click()
’**********FOUND**********
DimxAsInteger
Picture1、Scale (-pi,-1200)—(pi,1200)
'**********FOUND**********
Forx= -piTopiSteppi
'**********FOUND**********
Picture1、PSet(x, 1000 *pi *Sin(x)),vbRed
Next x
EndSub
答案:
=======(答案1)=======
DimxAsSingle
=========或=========
Dim x!
=======(答案2)=======
Forx=-piTo piSteppi / 180
=======(答案3)=======
Picture1、PSet (x, 1000*Sin(x)), vbRed
=========或=========
Picture1、PSet(x, Sin(x)*1000), vbRed
第6题 (1、0分)题号:
497
'题目:
编程求一个十进制整数n得各位数字之与,设n为小于或等于5位得数
OptionExplicit
PrivateSubForm_Click()
DimNAsInteger, SumAsInteger,S1AsString, S2 AsString
Dimi AsInteger,ChAsString
Sum=0
N=InputBox("输入整数n”)
S1 =Str(N)
’**********FOUND**********
S1 =RTrim(S1)
Fori=1 To Len(S1)
'**********FOUND**********
Ch=Mid(N,i,1)
'**********FOUND**********
Sum=Val(Ch)
Nexti
Print”该整数得各位数之与就是:
”;Sum
EndSub
答案:
=======(答案1)=======
S1 =Trim(S1)
=======(答案2)=======
Ch=Mid(S1,i,1)
=======(答案3)=======
Sum =Sum+Val(Ch)
第7题(1、0分)题号:
454
'题目:
本程序得功能就是随机产生得10个两位正整数,并进行递减排序。
'-——-—--—--—---—---——————-—————--———-—--——-——--——
OptionExplicit
Private SubCreateRND()
Dim TempAsInteger
Dim IAsInteger
Dim NAsInteger
Dim X(10) AsInteger
DimJAsInteger
N=10
Print"数据:
"
For I= 1ToN
'**********FOUND**********
X(I)=Int(Rnd()*90)
Print X(I);
NextI
Print
Print ”排序:
”
ForI =0ToN- 1
ForJ= I+1ToN
’**********FOUND**********
If X(I)> X(J)Then
’**********FOUND**********
Temp= X(I)
X(J)=X(I)
X(I)=Temp
EndIf
NextJ
PrintX(I);
NextI
Print
End Sub
PrivateSub mand1_Click()
CreateRND
End Sub
答案:
=======(答案1)=======
X(I)=Int(10+Rnd()*90)
=======(答案2)=======
IfX(I) =======(答案3)======= temp = X(J) 第9题(1、0分) 题号: 130 ’题目: 以下程序段用于计算5得N次方。 '-—-—-—--—-—-—----——--———-—--———----——---—-—————— Option Explicit PrivateSub Form_Click() DimnAsInteger,kAsInteger,sAsLong n =InputBox(”Inputn”) ’**********FOUND********** k=0 ’**********FOUND********** s= 0 DoWhilek <=n s=s*5 k=k+1 '**********FOUND********** Next Print ”5得"; "n次方就是";s End Sub 答案: =======(答案1)======= k=1 =======(答案2)======= s=1 =======(答案3)======= Loop 第11题(1、0分)题号: 452 ’题目: 用自定义函数得方法求sum(x),求当—1≤x≤1时, ’ sum(x)=x/2! +x^2/3! +x^3/4! +……+x^n/(n+1)! ' 当x〉1或x〈—1时,函数
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序 改错 40