10月VB复习资料带答案

Private Sub Form_Load() Picture1.Height = 3200 Picture1.Width = 0 Picture1.Left = 0 Picture1.Top = 0 HScroll1.Max = 5900 HScroll1.Min = 0 HScroll1.Value = 0 End Sub Private Sub HScroll1_Change() Picture1.Width = HScroll1.Value End Sub

Private Sub Command1_Click() Dim s As String, c As String * 1 s = Text1.Text For i = 1 To Len(s) c = Mid(s, i, 1) If c >= \ Text2.Text = Text2.Text & \ Else Text2.Text = Text2.Text & c End If Next i End Sub 第十套

一、程序启动运行后,图片框PictureBox1不可见,在定时器控制下,图片沿垂直方向以较慢的速度自动展开,到图片完全展开时,定时器停止工作(初始条件在窗体加载事件过程中设置,图片自选)。

二、在文本框1中输入一串字符,分别统计其中大写字母和小写字母的个数,结果显示在文本框2中。

三、程序功能是用随机函数产生20个3位整数,再找出其中大于平均值的数

以每行5个的格式输出。 Private Sub Form_Click()

Dim a(1 To 30) As Integer, n As Integer

Dim ave As Integer, sum As Single 'Dim ave As Single Randomize

For i = 1 To 20 '产生20个数据并输出

a(i) = Int(Rnd * 900 + 100):Print a(i); sum = sum + a(i) Next i

Print:ave = ave / 20 '计算平均值 ' sum

Print \大于平均值的数是:\For i = 1 To 20

If a(i) > ave Then '寻找大于平均值的数

n = n + 1:Print a(i) ' Print a(i);

If n \\ 5 = 0 Then Print '按每行5个输出大于平均值的数 'mod Next k ' End If Next i End Sub 一、参考程序 二、参考程序 Private Sub Form_Load() Picture1.Width = 5900 Picture1.Height = 0 Timer1.Interval = 100 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() If Picture1.Height < 3200 Then Picture1.Height = Picture1.Height + 20 Else Timer1.Enabled = False End If End Sub

Private Sub Command1_Click() Dim n1 As Integer, n2 As Integer s = Text1.Text For i = 1 To Len(s) c = Mid(s, i, 1)

>>灞曞紑鍏ㄦ枃<<
12@gma联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4