(新填空题1新8.docxVIP

1.题目：在窗体上设计两个文本框和两个标签，标签上显示摄氏温度和华氏温度，文本框一个用于输入摄氏温度数，一个用于输出对应的华氏温度?摄氏温度与华氏温度的转换公式为: c = (5 / 9) * (f - 32)要求：对输入的摄氏温度数有检查功能，以拒绝接收非数字字符?运行界面如图所示:Private Sub Command1_Click() Text1 = Text2 = Text1.Enabled = True Text2.Enabled = True Text1.SetFocusEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Text1 = Text2 = Text1.Enabled = False Text2.Enabled = FalseEnd SubPrivate Sub Text1_Change()**********FILL********** __ Text2.Text ___ = 5 * (Val(Text1.Text) - 32) / 9End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 8 Then **********FILL********** If Chr(KeyAscii) 0 Or Chr(KeyAscii) __9___ Then **********FILL**********KeyAscii = __ ___ End If End IfEnd Sub2. 题目：窗体上建立了两个文本框Text1(输入字符串)及Text2(转换结果)，一个命令按钮Command1(清除)。录入Text1内容时将，将录入内容大写字母转为小写，小写转为大写Private Sub Command1_Click() Text1.Text = Text2.Text = Text1.SetFocusEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Dim s As String * 1 **********FILL********** s = _Chr____(KeyAscii) Select Case s **********FILL********** Case A __To___ Z s = LCase(s) Case a To z **********FILL********** s = __UCase(s)___ Case Else s = * End Select Text2.Text = Text2.Text + sEnd Sub3.下面的程序段用于实现以下功能: 利用冒泡法将一组整数从小到大排序?Private Sub Form_Click()Const n = 15Dim a(1 To n) As Integer, work As BooleanDim iAs Integer, j As Integer, x As IntegerRandomizeFor i = 1 To na(i) = Int(90 * Rnd) + 10Next iFor i = 1 To n Print a(i);Next iPrint**********FILL**********For i = n To 2 __Step -1 ___work = True For j = 1 Toi - 1 If a(j) a(j + 1) Then x = a(j): a(j) = a(j + 1): a(j + 1) = x**********FILL********** __work = False 或 work=0 或 not work = true___ End If Next j**********FILL********** If work Then __ Exit For___Next iFor i = 1 To n Print a(i);Next iEnd Sub4.题目：由输入对话框输入n（n必须为大于零且小于30的自然数），计算下列表达式的值，并在标签框Label1上显示。 sum=1/2+1/6+ ... +1/(k*(k+1)) (k=n)Private Sub Form_Click() Dim n As Integer, sum As Double, k As Integer n = Val(InputBox(n=, 请输入自然数n(n0 且n30))) **********FILL********** Do While n = 0 __or___