B复习题.docVIP

1 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为转换的命令按钮，如下图所示。在程序运行时，单击转换按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) = 65 And Asc(Mid(ch, i, 1)) = 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 2 在名称为Form1的窗体上添加一个名称为Text1的文本框；添加两个标题分别为对齐方式、字体，名称分别为Fm1、Fm2的框架；在Fm1框架中添加三个单选按钮，标题分别为左对齐、居中、右对齐，名称分别为Opt1、Opt2、Opt3；在Fm2框架中添加两个单选按钮，标题分别为宋体、黑体，名称分别为Opt4、Opt5。 要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的内容实现相应的操作(如图所示)。 Private Sub Opt1_Click() If Opt1 Then Text1.Alignment = 0 End Sub Private Sub Opt2_Click() If Opt2 Then Text1.Alignment = 2 End Sub Private Sub Opt3_Click() If Opt3 Then Text1.Alignment = 1 End Sub Private Sub Opt4_Click() If Opt4 Then Text1.FontName = 宋体 End Sub Private Sub Opt5_Click() If Opt5 Then Text1.FontName = 黑体 End Sub 3 请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择N的阶乘或(N+2)的阶乘单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。 Dim n% Private Sub Form_Load() End Sub Private Sub Option1_Click() Dim i% n = Val(Text1) m = 1 For i = 1 To n m = m * i Next i Text2 = m End Sub Private Sub Option2_Click() Dim i% m = 1 For i = 1 To n + 2 m = m * i Next i Text2 = m End Sub 4 在窗体上添加两个文本框和三个标签，设置它们的属性，达到下图效果。程序运行时，在第一个文本框输入一串字符，在第二个文本框中输入一个字符，然后单击统计命令按钮，统计第二个文本框中字符(大小写被认为是不同的字母)在第一个文本框中出现的次数，统计结果在标签Label3中显示。 Private Sub Command1_Click() Dim i%, n% For i = 1 To Len(Text1) If Mid(Text1, i, 1) = Text2 Then n = n + 1 Next i Label3 = n End Sub Private Sub Label3_Click() End Sub 5 编程实现求(n为小于等于20的整数)。程序运行界面如下图所示。程序运行时，在文本框中输入n的值，点击“计算”命令按钮，将计算结果显示在标签上。 Private Sub Command1_Click() Dim i%, m As Long, sum As Double n = Val(Text1) m = 1 For i = 1 To n m = m * i sum = sum + 1 / m Next i Label2 = sum= sum End Sub Private Sub Form_Load() End Sub  6 编写程序程序运行时，单击窗体则显示如下图所示的图案。 Private Sub Form_Click() For i = 1 To 5 Print Tab(10 - i); S