2011 vb期末改错和编程复习题11.docVIP

三．编写程序 1. 10分 文本框txtin输入一个十进制整数将其转化为二进制数。程序运行界面如下图所示。单击“转换”按钮，标签lblre中输出二进制数。（要求while……wend循环实现） 1. Private Sub Command1_Click Dim n As Long n保存文本框中的数据 lblre.Caption n Val txtin.Text ********** Program ********** While n 0 r n Mod 2 lblre.Caption r lblre.Caption n n \ 2 Wend ********** End ********** End Sub 2. 10分 单击“打印”按钮command1在图片框picture1中输出如图下所示的图形。（涉及的循环要求用for循环） Private Sub command1_Click ********** Program ********** For i 1 To 5 picture1.Print Tab 10 + i ; $; For j 1 To 11 - i * 2 picture1.Print *; Next j picture1.Print $; picture1.Print Next i picture1.Print Tab 10 + i ; *; ********** End ********** End Sub 3.（12分）单击form1窗体：重新定义坐标系为（-10，300）-（300，-10）；在窗体上按公式： y x2÷255，其中x 0~255。 用Pset方法绘制如图所示图形，其中线宽为3。（要求for循环实现） Private Sub Form_Click ********** Program ********** Scale -10, 300 - 300, -10 DrawWidth 3 Line -10, 0 - 300, 0 : Line 0, 300 - 0, -10 For x 0 To 255 Step 0.01 y x * x / 255 PSet x, y Next x ********** End ********** End Sub 4.判断文本框text1中输入的字符是否全是字母,并在标签label1中显示判断结果：“全是字母”或“不全是字母”。.运行结果参考下图。（涉及的循环用for循环） Private Sub Command1_Click Dim s As String 保存文本框中的字符 s Text1.Text ********** Program ********* For i 1 To Len s If LCase Mid s, i, 1 a Or LCase Mid s, i, 1 z Then Exit For End If Next If i Len s Then Label1.Caption 全是字母 Else Label1.Caption 不全是字母 End If ********** End ********** End Sub 5. 10分 求1！+2！+3！+… +10！的值，程序运行界面如图下所示。单击“计算”按钮command1在标签lblre中输出结果。（要求for循环实现） Private Sub Command1_Click Dim s As Long 保存累加的结果 Dim n As Long 保存阶乘的结果 ********** Program ********** s 0: n 1 For i 1 To 10 n i * n s s + n Next i lblre.Caption s ********** End ********** End Sub 6．数据由小到大排序。窗体运行如下图。单击“产生数据” 按钮Command1，产生5个10~99之间的随机整数放入数组s，并显示在图示的标签lblra上；单击“排序” 按钮Command2，将数组排序后的数据输出到图示的标签lblre。（要求for循环实现） Dim s 1 To 5 As String 保存产生的随机数 Private Sub Command1_Click lblra.Caption *********** Program ************ For i 1 To 5 s i Int Rnd * 90 + 10 lblra.Caption lblra.Captio