31.下面是窗体Forml的Click事件过程,实现运行时每次单击窗体时,窗体均向右移动100。 d9 z8 |- u* S' s
Private Sub Form_click() 2 v9 g4 l( R, S% i! Q
Static intleft As Integer 2 P" B% @3 S* ~9 E
intleft = intleft + 100 3 Y: ^" e {) W: a; A
Form1.____ = intleft 7 c( @& d9 Q* V X
End Sub
- H1 o O- [! }% _请选择正确属性填充空白处,完成本程序: & q% q0 c! i- n+ s# Q, _/ x& `
A、Caption
6 C& j k# [- a; Z6 R$ T% Y- eB、Top
" i* i& B4 U( f% A- j, B2 kC、Width # }/ v ^0 G" k% ~, [2 b: P
D、Left A B C D 32.窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
! X: Z0 l: M$ f" ?6 b/ A3 Q, A% A# B8 \; K6 M: ~ g% I
Private Sub Command1_Click()
# S+ R( O* w; j# M$ {3 T5 O* J5 MDim A(10), B(5)
) Q5 O+ J& L3 g6 Z; [" KFor I = 1 To 10
6 J8 w! o# \: B4 {% m- SA(I) = I 8 j' \# d# ?3 }9 a4 }8 C; ^
Next I
6 V7 [# T9 K! `For J = 1 To 5
% l9 I d" y% _* m* t" z7 @- aB(J) = J * 20
" \0 @& z7 t- e% O# }Next J 5 a8 @& H. b, z( R% _( K
A(5) = B(2) ! `9 g5 B5 ]( Q
Print "A(5)=", A(5)
# v, }( }6 G0 W( R9 C% V& _End Sub & T1 P$ L& f, X
: ~8 t9 W4 m' m8 Z7 [/ ]2 ]窗体运行后,单击命令按钮,输出结果是 , v1 ]6 A+ l. c' h7 Z7 [
A、A(5)=40 $ m. j" Q# d0 N' ?
B、A(5)=20 1 w7 l; x$ d' I: i' t
C、A(5)=10 0 D) m5 g: z: G% @8 S8 z, F
D、A(5)=5 A B C D 33.窗体上有两名称分别为Text1、Text2的文本框,一个名称为Command1命令按钮。运行后的 0 M2 l( ?5 q# y$ v6 Y- F1 h) P* D
窗体外观如图所示:
9 ?2 j: F$ d' U; q# M) b1 G
8 I; A' s( p m4 b+ n. i设有如下的类型声明
/ U" t) n# y6 s+ [. D3 s" ^" X, sType Person
; r U. R T+ `' fname As String*8 ; @& c) F2 `$ ` `& D# F
major As String*20
7 r: F) {' ?$ U5 s- K8 tEnd Type + K- u8 W+ [# U0 J
当单击“保存”按钮时,将两个文本框中的内容写入一个随机文件Test29.dat中。设文本框中 # Z) t% a- Q2 {" {' I
的数据已正确地赋值给Person类型的变量p。 . H% d' t* Y6 w
则能够正确地把数据写入文件的程序段是: 9 v- u$ B! v: @4 x
A)Open "c:\Test29.dat"For Random As #1 2 h/ W1 E/ r" Y B J
Put #1,1,p 3 U1 ?9 }* F: y; x
Close #1 . Y% |2 G. L- j3 H
B)Open "c:\Test29.dat"For Random As #1 ) P' s9 C$ w; n n2 n, A. ]$ h& L
Get #1,1,p : L- r# _2 v6 d- A; h7 E, D
Close #1 8 i' X/ ^# b8 G, K. x
C)Open "c:\Test29.dat"For Random As #1 Len=Len(p)
/ @2 O+ c/ v% S1 i) s8 h: aPut #1,1,p
2 @1 M- p1 v$ @; M( ]+ `Close #1 * f' Y. C8 h" ^2 \
D)Open "c:\Test29.dat"For Random As #1 Len=Len(p)
/ U7 f5 R2 {/ N' N g6 u: PGet #1,1,p 4 L+ K4 Z# f. L- u0 s2 c- t2 p
Close #1 A B C D 34.设有如下程序:
S7 {2 B% Q# Y# r; x4 e3 EPrivate Sub Command1_Click() ' @8 C1 g/ _, G0 G1 j2 D7 O
Dim sum As Double,X As Double
8 C* @) r5 \) u8 n Q& [3 l' L% fsum=0
$ n* p' R# i. k% D: @6 w3 R! yn=0 ) h1 ?& m; r' V0 s2 e2 |9 L
For i=1 To 5 " b# ]4 ~6 I: I, [3 O5 @
x=n/i
) K7 _# p1 P$ U, e5 Z, U- d5 Bn=n+1 0 [/ B) Y( ~+ v% }
sum=sum+x 9 A( ^3 t3 z& c: a/ @! ~
Next
0 \1 C* j8 d- H4 Q5 P! W' g1 QEnd Sub
+ }# e+ z' k% L; C4 f. f+ P该程序通过For循环计算一个表达式的值,这个表达式是
* w \/ H9 q9 F8 N# O: n8 [A、1+1/2+2/3+3/4+4/5
! ]" h/ V; g; N$ \1 n7 ^8 LB、1+1/2+2/3+3/4 ; N4 R5 w. x6 k* z
C、1/2+2/3+3/4+4/5 ; A7 I5 p& i9 D' T& g
D、1+1/2+1/3+1/4+1/5 A B C D 35.在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:
+ g% x3 c( T6 c0 g7 c% o# _$ kFunction Func(ByVal x As Integer, y As Integer) 5 H# g4 W, \# @! N5 _
y = y * x * O8 R. R8 a* V8 G9 J5 [
If y > 0 Then * O2 O0 Z& \# v! Q+ a& r
Func = x
$ y+ O* R, J- e( jElse / _. |! Q! \2 Y: `4 p) @
Func = y
" o/ V o. x) AEnd If
- g* ]5 K3 t4 a1 \* nEnd Function $ |1 {0 u( e' ~; [! T
Private Sub Command1_Click()
: g+ V7 |9 R z/ r2 S/ T1 S. ~Dim a As Integer, b As Integer
7 y8 f, R3 x1 M% m2 L1 I1 \8 _0 ba = 3
* v! }# b0 [8 S" z" H2 f$ Zb = 4
& y9 |# L( ~* q% i3 Rc = Func(a, b)
$ o5 n9 r5 d# I5 T" i5 yPrint a;b;c
- m4 I2 P2 G- n1 p D& PEnd Sub " v; k1 n( T+ a2 J
程序运行后,单击命令按钮,其输出结果为 6 z5 u/ J3 D8 n8 q
A、3 12 3
( S1 I5 V- v8 V6 ]" G" q. N8 ?' qB、3 4 3 5 b* {' H x) Q# |9 e4 J& I
C、3 4 12
0 y, ]8 I- Y( p+ }2 n C: \- Y$ a# {; aD、3 12 12 A B C D |