vb所有课件第5章上机提示

1、作业：1 习题五 一、二、三2 程序阅读题p153程序1,2,3,43 程序填空题P156 第五大题第1, 2,3小题4 程序设计题 p160 第1,2,3,4,5,6,8,9,10题5 提高题 p66Visual Basic学习及实践指导 实验1、2、3、4、5、6上机题提示 编写Command1.click() 根据Command1.caption是“显示”还是“清除”选择所需的操作。 “界面恢复窗体装入时的初始状态”是指运行初始界面。 在窗体上建立命令按钮“Command1”（显示）和“Command2”（退出）。运行时，“Command2”按钮始终显示“退出”；单击“显示”按钮后窗体上

2、显示“欢迎使用Visual Basic！”，同时标题改为“清除”，再单击“清除”按钮后，界面恢复窗体装入时的初始状态。P160 六、1上机题提示 编写Text1_KeyPress(KeyAscii As Integer) 把参数KeyAscii的 值转换成相应的字符P160 六、2上机题提示 编制文本框的KeyPress事件。 判断回车键 用 if KeyAscii=13 then 输入的口令和密码比较 end if P160 六、3注意变量的作用域，即在什么地方声明，是在过程里，还是窗体的通用部分 若至少有两个以上的过程用到同一变量，申明为窗体/模块级上机题提示 编制文本框的KeyPress

3、事件。 判断回车键 用 if KeyAscii=13 then 输入的数和生成的随机数比较 。 end if P160 六、4注意输入的数和生成的随机数的作用域，即在什么地方声明，是在过程里，还是窗体的通用部分上机题提示 编制文本框的MouseUp事件判断是否选定了文本 参考例5-2 P160 六、5上机题提示 编制Option1_Click() P160 六、6上机题提示 参考例5-5 P160 六、8数制转换：假设：要把十进制数K1转换成n进制数(可以是2,8,16)，字符串变量Tran存放转换后的数码。 (1) 令K=Abs(K1); (2) 若K=0，执行(6)；否则执行(3)； (3

4、) K除以n得余数X:若X=10,令y=Chr(Asc(“A”)+X-10);若X10,令y=Trim(Str(X); (4) Tran=y + Tran； (5) K=Kn，再重复执行(2); (6) 若K1 0 x = k1 Mod n If x = 10 Then y = Chr(Asc(A) + x - 10) Else y = CStr(x) End If tran = y + tran k1 = k1 n Loop If k 0 Then tran = - + tranEnd FunctionP160 六、9上机题提示 字号放大的速度由水平滚动条控制 Private Sub HScroll1_Change()erval= HScroll1.value End Sub P160 六、10Timer1_Timer ：Select Case k K为