第1题:
在窗体中添加一个标签LblResult和一个命令按钮Command1,然后编写程序。程序的功能是单击命令按钮,计算1+2+3+4+5的值,并把结果转化为字符串显示在标签内,能够实现上述功能的程序段是, ( )
A.Private Sub Command1_Click() Dim I,R As Integer For I=1 To 5 Step 1 R=R+I Next LblResult. Name=Str$ (R) End Sub
B.Private Sub Command1_ClickO Dim I,R As Integer For I=1 To 5 Step 1 R=R+I Next LblResult. Caption= Str$ (R) End Sub
C.Private Sub Command1_Click() Dim I,R As Integer Do While I<5 R=R+I I=I+1 Loop LblResult. Caption=Str$ (R) End Sub
D.Private Sub Command1_Click() Dim I,R As Integer Do R=R+I I=I+1 Loop While I<5 LblResult. Caption=Str$ (R) End Sub
第2题:
以下程序用来输出20个在开区间(10,87)上的随机整数R,每行输出4个整数。请完成空白处。
Private Sub Command1 Click()
For I=1 To 10
R=Int(Rnd*76+11)
Print R;
If【 】Then Print
Next I
End Sub
第3题:
以下程序用来输出20个在开区间(10,87)上的随机整数数R,每行输出4个整数。请完成空白处.
Private Sub Commandl. Click( )
For I=1 To 10
R = Int (Rnd * 76 + 11)
Print R;
If【 】Then Print
Next I
End Sub
第4题:
钻井滤液电阻率Rmf与地层水电阻率Rw差值越大,渗透层处自然电位异常幅度()。
第5题:
编写如下两个事件过程: Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer) Print Cb_r(KeyCode) End Sub Private Sub Form_KeyPress( KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住Shift键和锁定大写键时)运行程序,如果按“A”键,则程序输出的结果是
A.A A
B.a A
C.A a
D.a a
第6题:
【程序说明】 计算下列算式的值。a,Ai为正整数,从键盘输入。其小∑Ai=1+2…+ Ai,Ai!=1 *2*3*Ai(i=1,2… a)。
【程序】
SET TAIK OFF
CLEAR
INPUT“M=”TO M
STORE 0 TO S1,S2
FOR I=1 TO M
(8)
DO SUB1
DO SUB2
ENDFOR
? ” 所求算式的值为:“+ALLTRIM(STR(S1/S2,15,3))
SET TALK ON
PROCEDURE SUB1
(9)
FOR R=1 TO A
K=K+R
ENDFOR
(10)
RETURN
PROCEDURE SUB2
(11)
FOR P=1 TO A
T=T*P
ENDFOR
(12)
RETURN
(8)
A.INPUT“A=”TO A
B.INPUT“I=”TO I
C.INPUT“R=”TO STR(R)
D.INPUT“K=”TOK
第7题:
当执行以下过程时,在名为1blResult的标签框内将显示______。 Private Sub cmdlt_ click() Dim I,R R=0 For I=1 To 5 Step 1 R=R+I Next i 1blResult.Caption=Str$(R) End Sub
A. 字符串15
B.整数15
C.字符串5
D.整数5
第8题:
当执行以下过程时,在名为lblResult的标签框内将显示______。Private Sub Command1_ Click() Dim I, R R = 0 for I = 1 To 5 step 1 R= R+ I Next I lblResult. Caption = Str$(R)End Sub
A.字符串15
B.整数15
C.字符串5
D.整数5
第9题:
A. :r/^#//g
B. :1,$ s/^#//g
C. :sed s/^#//g
D. :sub s/^#//g
第10题:
在淡水泥浆中,砂岩自然电位为正异常,说明泥浆电阻率()地层水电阻率。