13.從字符串中找出所有大寫字母,并把找出的大寫字母顯示在Text2中。請(qǐng)完善程序。 Dim x As String,y As String,i As Integer Dim n As Integer,pd As Boolean ① y=““ For i=1 To ② pd=Asc(Mid(x,i,1)) If pd<91 And pd>64 Then'大寫字母的ASCII值為[65,90] ③ End If Next i Text2.Text=y
(填寫相應(yīng)編號(hào))添加文本框Text1。 (2)實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)?jiān)跈M線處填寫合適的代碼。 Private Sub Command1_Click ( ?。?br />Dim n As Integer,i As Integer Dim flag As Boolean‘用于標(biāo)記是否為素?cái)?shù) Randomize n=Int( ①
)*2+1‘隨機(jī)生成三位正奇數(shù) Text1.Text=Str(n) flag=True‘標(biāo)記為素?cái)?shù) i=3 Do While i<=n-1And flag=True If n Mod i=0 ②
i=i+2 Loop If flag=true Then Text2.Text=Str(n)+“是素?cái)?shù)” Else Text2.Text=Str(n)+“不是素?cái)?shù)” End If End Sub (3)以下選項(xiàng)中,與加框處表達(dá)式“n Mod i=0”等價(jià)的是