填空题

下列这个Sub过程的功能是：统计字符串中“a”的个数，请在空白处填上合适的代码，将程序补充完整。
Private Sub numCount()
Dim num As Integer
S$="software And hardware"
num=Len(s$)
For i=1 To num
b$=______
Ifb$="a" Then x=x+1
Next i
Print "x=";x
End Sub

【参考答案】

Mid(s$,i,A)

<上一题目录下一题>

热门试题

填空题

下面的程序用于根据文本框Test中输入的内容进行以下处理：若Text为1，则打印“您的成绩为优秀！”；若Text为2，则打印“您的成绩为良好!”；若Text为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下!”，请填空。 Private Sub Command1_Click( ) Selct Case Val(Text1.Text) Case______ Print 您的成绩为优秀！ Case______ Print 您的成绩为良好！ Case______ Print 您的成绩为一般！ Case Else Print 您的成绩为一般以下！ End Select End Sub

填空题

在窗体上设计两个复选框，一个显示粗体，另一个显示斜体，通过对复选框的选择，在一个文本框中显示相应效果的文本，请完成下列程序。 Private Sub Form. Load() Check1. Caption= 显示粗体 Check2. Caption= 显示斜体 Text1. Text= May you a happy day! End Sub Private Sub Check1 Click0 If______=1 Then Text1. FontBold=True Else Text1. FontBold=False EndIf End Sub Private Sub Cbeck2_Click() If Check2. value=1 Then Text1. ______ Else Text1. ______ End If End Sub

相关试题