VB基础试题课件.pptx

VB合作学习报告;组长：张建迢 组员：彭佳媛 徐彩依 李静雯 邬祺轲 汤敦邦 ;一：滚动字幕程序设计;Private Sub Timer1_Timer() If Label1.Left Form1.Width Then Label1.Left = Label1.Left + 100 Else Label1.Left = -Label1.Width End If End Sub;二：利用计时器可以按指定间隔时间对字体进行放大。 并要求字的颜色也按指定时间间隔随机改变;Private Sub Form_Load() Label1.Caption = 放大 Label1.Font = 宋体 Label1.FontBold = True Label1.FontSize = 20 Label1.ForeColor = vbRed End Sub Private Sub Timer1_Timer() If Label1.FontSize 100 Then Label1.FontSize = Label1.FontSize + 10 Else Label1.FontSize = 20 End If Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End Sub;三：完成秒数转换成时分秒的程序 ;Private Sub Command1_Click() Dim a As Long, e As Long, f As Integer, g As Integer a = Val(Text1.Text) e = a \ 3600 f = (a Mod 3600) \ 60 g = a - e * 3600 - f * 60 Text2.Text = Str(e) Text3.Text = Str(f) Text4.Text = Str(g) End Sub Private Sub Command2_Click() End End Sub;4.电子倒计时器设计 ;要求：先由用户给定倒计时的初始分秒数，然后开始倒计时，当计到0分0秒时，通过消息对话框显示“倒计时结束”。 在窗体上建立一个计时器(Timer1)、两个标签、两个文本框(Text1和Text2)和一个命令按钮(Command1) 计时器的Enabled属性值为True, Interval属性值为0 ;Dim m As Integer, s As Integer Private Sub Command1_Click() m = Val(Text1.Text) s = Val(Text2.Text) Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 End Sub ;讨论五：输入三角形的三边长（可以用消息框也可以用文本框），求三角形的面积。要判断输入的三边能否构成三角形。;方法一： Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer,s As integer a = InputBox(请输入三角形的一条边长：) b = InputBox(请输入三角形的第二条边长：) c = InputBox(请输入三角形的第三条边长：) If a + b c And b + c a And a + c b Then d = (a + b + c) / 2 s = Sqr(d * (d - a) * (d - b) * (d - c)) FontSize = 22 Print 请输入三角形的三边： FontSize = 22 Print “三边分别为：” ； a,；b； c FontSize = 22 Print “三角形的面积是：” ； s Else Print 不能组成三角形 End If End Sub;方法二： Private Sub Form_Click() FontSize = 22 Print 请输入三角形的三边： Dim a As Single, b As Single, c As Single a = InputBox(请输入三角形的第一条边的长度, 数据输入, 5) b = InputBox(请输入三角形的第二条边的长度, 数据输入, 5) c = InputBox(请输入三角形的第三条边的长度, 数据输