单项选择题已知文本框Text1中输入了一篇英文短文,并编写了如下程序段: Str_x = Text1.Text n = Len(Str_x) m = 0 t = 0 For i = 1 To n w = UCase(Mid(Str_x, i, 1)) If w >= A And w <= Z Then If t = 0 Then m = m + 1 t = t + 1 Else t = 0 End If Next Print m该程序段的功能为统计并输出英文短文中( )。
单项选择题设窗体上有文本框Text1和命令按钮Command1,并编写了下面的过程:Private Sub Command1_Click() ch$ = x% = Val(Text1.Text) k = 2 For k = 2 To x 2 If x Mod k = 0 Then ch = ch & & k End If Next k Print chEnd Sub程序运行后,在文本框中输入28,单击命令按钮,则输出是( )。