用VB编写“检查句子格式”的程序，实现如下功能：在文本框Text1中输入要检查的英文句子，单击“检查”按钮Command1。判断句子“”和“？”后的字母是否是大

题干

用 VB 编写“检查句子格式”的程序，实现如下功能：在文本框 Text1 中输入要检查的英文句子，单击“检查”按钮 Command1。判断句子“”和“？”后的字母是否是大写，如果是小写字母，那么将其转换为大写字母，并在文本框 Text2 中输出。程序运行界面如下图所示。

（1）要使程序运行时，文本框 Text1 的 Height 属性值为 900，可在 Form_Load 事件处理过程中添加语句________（单选，填字母：

A．Height=900 /

B．Textl. Height = 900 /

C．Height. Textl=900）。

（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub
Command1_Click()
Dim s As String, ch As String, flag As Boolean Dim ch2 As String, res As String, i As Integer s = Text1.Text: res = ""
______________
Do While i <= Len(s)
flag = False
ch = Mid(s, i, 1)
If i = 1 And ch >= "a" And ch2 <= "z" Then
ch = Chr(Asc(ch) - 32) '小写字母转换为大写字母
End If
If ch = "." Or ch = "?" Then flag = True
ch2 = Mid(s, i + 1, 1)
If flag And ch2 >= "a" And ch2 <= "z" Then
ch2 = Chr(Asc(ch2) - 32) '小写字母转换为大写字母
res =_________________
i = i + 2
Else
i = i + 1
res = res + ch
End If Loop
Text2.Text = res End Sub
（3）若在文本框 Text1 中输入句子:“you are best.”，第 1 个单词前有空格，则经过上述程序处理后，输出结果首字母“y”是否会变为大写“Y”？_____________(选填：是/ 否)。

上一题下一题 0.99难度填空题更新时间:2019-05-28 08:39:41

答案(点此获取答案解析）

同类题1

编写VB程序,实现如下功能: 单击“排序数组a”按钮Command1时，对已有数组a的数据进行升序排列，并显示在文本框Label1中；单击“显示数组b”按钮Command2时，将升序数组b的数据显示在文本框Label2中；再单击“合并a和b”按钮Command3时，对数组a和数组b升序合并到字符串中，将合并后的数据在文本框Label3中显示。(运行效果如图所示)。实现上述功能的VB代码如下, 请在划线处填入合适代码。

Dim a(1 To 6) As Integer
Dim b(1 To 6) As Integer
Private Sub Command1_Click() '对数组a中的数据进行排序
Dim i As Integer, j As Integer ，k as integer
a(1) =" 53" :a(2) =" 18:a(3)" =" 62:a(4)" =" 22:a(5)" =" 6:a(6)" = 25
s = ""
For i =" 1" To 5
k = i
For j =" i" + 1 To 6
If a(k) > a(j) Then ①
Next j
If i <> k Then
t =" a(k):" a(k) =" a(i):" a(i) = t
End If
Next i
For i =" 1" To 6
s =" s" + Str(a(i))
Next i
Label1.Caption = s
End Sub
Private Sub Command2_Click()
b(1) =" 3:" b(2) =" 8:" b(3) =" 15:" b(4) =" 27:" b(5) =" 38:" b(6) = 49
'此处部分代码省略
End Sub
Private Sub Command3_Click()
'将数组a和b中的数据逐个比较后添加到新的字符串s中，并将s在label3中显示
i =" 1:" j =" 1:" s = ""
Do While i <=" 6" ② j <= 6 '如果两数组都还有数据未合并
If ③ Then
s =" s" + Str(a(i)) : i =" i" + 1
Else
s =" s" + Str(b(j)) : j =" j" + 1
End If
Loop
Do While i <= 6 '只有数组a还有数据未合并
s =" s" + Str(a(i)) : i =" i" + 1
Loop
Do While j <= 6 '只有数组b还有数据未合并
s =" s" + Str(b(j)) : j =" j" + 1
Loop
Label3.Caption = s
End Sub

A．使程序模块化	B．使程序易于阅读
C．提高程序运行速度	D．便于系统的编译

题干

答案(点此获取答案解析）

同类题1

同类题2

同类题3

同类题4

同类题5