。 (單選,填字母:A.Command1.Caption=“得分計算”/B.Form1.Name=“得分計算”/C.Form1.Text=“得分計算”/D.Form1.Caption=“得分計算”) (2)實現(xiàn)上述功能的VB程序如下,請在橫線處填入合適的代碼。 Private Sub Command1_Click ( ?。?br />Dim n As Integer'裁判人數(shù) Dim max As Integer,min As Integer,sum As Integer Dim AveScore As Single'存儲最終得分 n=Val(Text1.Text):sum=0 If n<=2Then MsgBox (“輸入數(shù)據(jù)要大于2,請重新輸入!“) If n>2Then List1.Clear Randomize score=Int(Rnd
*31)+70 List1.AddItem Str(score) '① max=score min=score For i=2To n score=Int(Rnd ( ?。?31)+70 List1.AddItem Str(score) If score>max Then max=score If score<min Then min=score sum=sum+score Next i AveScore='② Text2.Text=Str(AveScore) End If End Sub (3)若要將最終得分保留一位小數(shù)(四舍五入),下列代碼可行的是。 A.AveScore=int(AveScore+0.5) B.AveScore=int(AveScore*10+0.5)/10 C.AveScore=int(AveScore*100+0.5)/100
20.編寫一個VB程序,判斷某字符串是否為回文字符串。所謂回文字符串,指一個字符串從左往右讀和從右往左讀是完全一樣的。程序運行時,單擊“判斷”按鈕后,在標簽Label2中顯示判斷結果。程序運行效果如圖所示。 實現(xiàn)上述功能的程序如下,請回答下列問題: Private Sub Com1_Click ( ?。?br />Dim s As String Dim flag As Boolean Dim n As Integer,i As Integer s=Text1.Text
’① flag=True i=1 Do While i<=n\2 If Mid(s,i,1)<>
Then’② flag=False Exit Do'退出Do循環(huán) End If i=i+1 Loop If flag Then Label2.Caption=s+“是回文字符串“ Else Label2.Caption=s+“不是回文字符串“ End If End Sub (1)當前代碼的事件處理過程名為