没有合适的资源?快使用搜索试试~ 我知道了~
《计算机程序设计A》计算机程序设计(答案).pdf
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 75 浏览量
2021-10-10
18:24:48
上传
评论
收藏 168KB PDF 举报
温馨提示
试读
47页
计算机技术
资源推荐
资源详情
资源评论
A 1 47
VB
1 Visual Basic
A B C D
2
A
B
C
D
3
APicture BCaption CName DLcon
4 str1 str2
ALeft BMid CString DInstr
5 Int(100*Rnd+1)
A 1 100 B 0 100 C 1 101 D 0 101
6 True
A0 B-1 CTrue DFalse
7
AConst a As Single = 1.1 BConst a As Integer = 12
C Const a As Double = Sin(1) DConst a = OK
8 k 2
AInt((k+0.5)*100)/100 BInt(k*100)/100+0.5
C Int(k*100+0.5)/100 DInt(k*(100+0.5))/100
9 a b 1a8 1 b8
A 1<=a And a<8 And 1<b And b<=8
B (1<=a And a<8 ) And Not(1<b And b<=8)
C 1<=a And a<8 Or 1<b And b<=8
D Not(1<=a And a<8) Or (1<b And b<=8)
10
Type Student
Number As String * 10
Name As String * 20
Age As Integer
A 2 47
End Type
A Student.Nam =
B Dim s As Student
s.Name =
C Dim s As Type Student
s.Name =
D Dim s As Type
s.Name =
11
Print Format$(32548.5, 000,000.00 )
A32548.5 B32,548.5 C032,548.50 D32,548.50
12 Pic1 Txt1
APrint abcd BPic1.Print abcd
C Txt1.Print abcd" DDebug.Print abcd
13
age$ = 18
Print ;
Print age
A 18 B 18
C 18 D 18
14 m=Len(Mid( 03 ,5,5)) m 4
A B 03 C5 D 8
15 1
A B
C D
16 2
A Name
B Name
C Name
D Name
17 Command1
Private Sub Command1_Click()
A=45678
A 3 47
Print Format(A, 000.00 )
End Sub
4
A456.78 B 45678.00 C45678 D00456.78
18 Command1
Private Sub Command1_Click()
Move 500,500
End Sub
1
A 500
B 500
C 500
D 500
19 EXE 3
A B C D
20
AVisual Basic
BVisual Basic
C Visual Basic Width Height
D Visual Basic
21
A
B .BAS
C
D
22 4
A
B
C
D
23
Dim TestDate As Date
TestDate 4
ATestDate = # 6/22/2003 #
BTestDate = # 6/22/2003 #
A 4 47
C TestDate = Date( 6/22/2003
D TestDate = Format( m/d/yy , 6/22/2003
24 Text1 Text1 Tab
4
ATabStop BEnabled CVisible DTabIndex
25 4
A Private
B
C Private
D Static
26 Com1
Private Sub com1_Click( )
Static X As Integer
Static Y As Integer
Cls
Y=1 : Y=Y+10 : X=X+Y
Print X, Y
End Sub
Com1 5
A33 11 B63 31 C60 30 D31 31
27 False 4
AFINE >Fine Bgood <>god
C BASIC =Ucase( Basic ) Dgood >god
28 a = 3 b = 5 6
A(-3+5) And (b > 0) Ba >= b And b > 10
C (a > b) Or (b > 0) D(a < 0) Eqv (b > 0)
29 Print 6 / 5 * 6 \ 5 Mod 2 4
A0 B1 C2 D3
30 4
ADim Arr as Variant BDim Arr(10) as Integer
Arr=Array(1,2,3,4,5,6,7,8) Arr=Array(1,2,3,4,5,6,7,8)
C Dim Arr%(10) DDim a(3),b(3) as Integer
Arr(1)= ABCDEFGH a(0)=0
a(1)=1
a(2)=2
A 5 47
b=a
31 List1
4
AFor i=0 To List1.ListCount-1 BFor i=0 To List1 .Count-1
Next Next
C For i=1 To List1.ListCount DFor i=1 To List1 .Count
Next Next
32 4
A Print
B
C
D Stretch
33
x = InputBo x( , 0 ,
100 7
A0
B x 100
C x 100
D InputBox
34
A
B MouseMove
C
D DblClick
35 Str1 Str2
8
AMid B Instr C String DLeft
36 Change 9
A B
C D
37 a = b = 10
Ab = Left (a , 15 , 8 ) B b = Left ( a , 7 , 4 )
C b = Mid ( a , 15 , 8 ) Db = Mid ( a , 7 , 4 )
剩余46页未读,继续阅读
资源评论
nidezlk
- 粉丝: 1
- 资源: 11万+
下载权益
C知道特权
VIP文章
课程特权
开通VIP
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功