小明在物理課堂上學(xué)了并聯(lián)電阻的阻值計(jì)算知識(shí)（并聯(lián)后的電阻阻值的倒數(shù)等于各個(gè)并聯(lián)電阻阻值的 倒數(shù)之和）后編寫了一個(gè)計(jì)算并聯(lián)電阻阻值的程序，程序界面如16題圖所示。在文本框Text1中輸入各 個(gè)并聯(lián)電阻的阻值以“，”為間隔，單擊“計(jì)算”按鈕Command1后，將這些電阻并聯(lián)后的阻值計(jì)算結(jié)果顯 示在Label4中。

（1）要使程序運(yùn)行后，窗體Form1的標(biāo)題欄中顯示“阻值計(jì)算”，正確的做法是

c

c

（單選，填字母：A．將窗體的Text屬性改為“阻值計(jì)算”/B．在Form_Load （　?。┦录休斎氪aForm1．Caption=“阻值計(jì)算”/C．在Form1_Load （　?。┦录休斎氪aForm.Name=“阻值計(jì)算”）；
（2）實(shí)現(xiàn)上述功能的程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
PrivateSubCommand1_Click （　?。?br />Dims As String,rAs String,ch As String
DimRsAs Single‘Rs變量表示并聯(lián)后的總阻值
Dimi AsInteger
s=Text1．Text
r=““：i=1：Rs=0
DoWhile

i＜=Len（s）

i＜=Len（s）

ch=Mid（s,i,1）If ch＜＞“，“Then
r=r+ch
Else

Rs=Rs+1/Val（r）
r=““
EndIf
i=i+1
Loop
Rs=

Rs+1/val（r）

Rs+1/val（r）

 Rs=1/Rs
Label4．Caption=

str（Rs）+“歐姆”

str（Rs）+“歐姆”

End Sub
如果在文本框Text1中輸入“2，2，”后，單擊“計(jì)算”按鈕后，則程序的運(yùn)行結(jié)果為

除數(shù)為零

除數(shù)為零

。