当泥浆滤液电阻率R_mf小于地层水电阻率R<

在窗体中添加一个标签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

以下程序用来输出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

以下程序用来输出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

编写如下两个事件过程： 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

【程序说明】 计算下列算式的值。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

当执行以下过程时，在名为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

当执行以下过程时，在名为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

A. :r/^#//g

B. :1,$ s/^#//g

C. :sed s/^#//g

D. :sub s/^#//g