VB基础试题课件
21页1、VB合作学习报告,第四组,指导教师:朱旭萍,1,VB基础试题,组长:张建迢 组员:彭佳媛 徐彩依 李静雯 邬祺轲 汤敦邦,主题:顺序和选择程序设计,2,VB基础试题,一:滚动字幕程序设计,屏幕上一标签,文字内容:祝您考试成功,该标签能从左到右或者从右到左滚动显示,3,VB基础试题,4,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 Command1_Click() If Command1.Caption = 开始 Then Timer1.Enabled = True Command1.Caption = 停止 Else Timer1.Enabled = False Command1.Caption = 开始 End If Timer1.Interval = 100 End Sub Private Sub Form_Load
2、() Form1.Caption = 字幕滚动 Label1.Caption = 祝您考试成功! Label1.Font = 宋体 Label1.FontBold = True Label1.FontSize = 22 Label1.ForeColor = vbRed Command1.Caption = 开始 End Sub,5,VB基础试题,二:利用计时器可以按指定间隔时间对字体进行放大。 并要求字的颜色也按指定时间间隔随机改变,6,VB基础试题,7,VB基础试题,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 I
3、f Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End Sub,8,VB基础试题,三:完成秒数转换成时分秒的程序,9,VB基础试题,10,VB基础试题,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,11,VB基础试题,4.电子倒计时器设计,12,VB基础试题,要求:先由用户给定倒计时的初始分秒数,然后开始倒计时,当计到0分0秒时,通过消息对话框显示“倒计时结束”。 在窗体上建立一个计时器(Timer1)、两个标签、两个文本框(Text1和
4、Text2)和一个命令按钮(Command1) 计时器的Enabled属性值为True, Interval属性值为0,13,VB基础试题,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 Timer1_Timer() If s 0 Then s = s - 1 Else If m 0 Then m = m - 1 s = 59 End If End If Text1.Text = Format(m, 00) Text2.Text = Format(s, 00) If s = 0 And m = 0 Then MsgBox 计时结束 Timer1.Enabled = False End If End Su
《VB基础试题课件》由会员石磨分享,可在线阅读,更多相关《VB基础试题课件》请在金锄头文库上搜索。
高考语文复习常见文言文实词意义例释
高考语文二轮专题复习作文发展等级之有文采-丰富
高考语文一轮复习之古代诗歌鉴赏-表达技巧类
鲁教版语文一年级下册古诗两首村居
高频电子线路第二版绪论
高考辅导讲座B肖仲斌
高考语文模块突破复习1-识记现代汉语普通话的字音
高考语文专题复习现代文阅读探究题答题指南
高考语文专题复习诗歌的表达技巧
高考英语总复习专项专题定语从句
高考语文专题复习语言运用训练题
高考复习专题十一图文转换第三课时漫画类
高考复习易出现的问题解决方法主题班会
高考复习一(字音字形词语)
高考历史一轮复习第3课宋明理学新人教版必修
高中数学总复习直线与圆锥曲线的位置关系
高中语文包身工1新人教版必修
高考专题辅导诊断病句
高中音乐祖国颂歌
高中长句总结
2024-05-05 83页
2024-05-05 54页
2023-10-16 23页
2023-10-07 29页
2023-09-09 127页
2023-07-21 89页
2023-07-21 76页
2023-07-21 72页
2023-07-21 55页
2023-07-21 56页