13.從字符串中找出所有大寫字母,并把找出的大寫字母顯示在Text2中。請完善程序。 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)編號)添加文本框Text1。 (2)實現(xiàn)上述功能的VB程序如下,請在橫線處填寫合適的代碼。 Private Sub Command1_Click ( ) Dim n As Integer,i As Integer Dim flag As Boolean‘用于標記是否為素數(shù) Randomize n=Int( ①
)*2+1‘隨機生成三位正奇數(shù) Text1.Text=Str(n) flag=True‘標記為素數(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)+“是素數(shù)” Else Text2.Text=Str(n)+“不是素數(shù)” End If End Sub (3)以下選項中,與加框處表達式“n Mod i=0”等價的是