第5章高级用户界面练习题1.pptVIP

第5章高级用户界面练习 下列程序将产生什么结果是_____. 1、Private Sub Timer1_Timer() Timer1.Interval = 2000 Timer1.Enabled = True For i = 1 To 2 Print “什么是中西医结合”; Next I Print End Sub A. 显示“什么是中西医结合” B. 显示“什么是中西医结合什么是中西医结合” C. 逐行显示“什么是中西医结合什么是中西医结合” D.显示“什么是中西医结合”2秒钟后消失 2、设计一个模拟霓虹灯显示“南方医科大学中医药学院”文字的程序，要求是： （1）每0.5秒钟显示一个字，显示全部后，再重新开始； （2）单击“显示”按钮开始显示；单击“停止”按钮退出程序； （3）所有文字显示红色、粗体，但“南方医科大学”采用隶书、小一号；“中医药学院”采用华文新魏、初号。 3、设计一个程序，其功能是： （1）单击“加载”按钮后，将两张图片加载到两个图片框中，假设两张图片的名字分别是picture1和picture2，存放在C盘的my_picture文件夹中； （2）单击“交换”按钮后，见方实现两个图片框中图形的交换，交换后界面不能再出现多余的图片。 4、下列程序执行的结果是：____。 Private Sub Form_Click() Dim i As Integer For i = 1 To 6 List1.AddItem i Next i For i = 1 To 3 List1.RemoveItem i Next I End sub A. 在List1中显示 0，1，2 B. 在List1中显示 1，2，3 C. 在List1中显示 1，3，5 D. 在List1中显示 0，1，2，3，4，5 5、下面程序界面有两个列表框，执行最后一个过程的结果是：_____。 Private Sub Form_Load() List1.AddItem 南方医院: List1.AddItem 珠江医院 List1.AddItem 基础医学院: List1.AddItem 中医药学院 List1.AddItem 药学院: List1.AddItem 生物技术学院 List1.AddItem 医工学院: List1.AddItem 卫生管理学院 End Sub ?Private Sub List1_DblClick() List2.AddItem List1.List(List1.Listindex) List1.RemoveItem List1.Listindex End Sub ?? Private Sub List2_DblClick() List1.AddItem List2.List(List2.Listindex) List2.RemoveItem List2.ListIndex End Sub A.双击List2时，将List1全部项目移到List2中； B.双击List2时，将List1全部项目复制到List2中； C.双击List2中某个项目时，将该项目从List1移到List2中； D.双击List2中某个项目时，将该项目从List2移到List1中； 6、设计一个程序，设窗体有两个组合框和一个带水平滚动条的文本框，其中组合框1有多种字体，组合框2有多种字号，文本框内有一行文字“组合框控制文本框字体字号变化程序设计”。要求： 当选择一种字体或一种字号都将使文本框内的文字发生改变； 组合框中项目用命令实现，其中： 组合框1包含宋体、黑体、楷体_GB2312、隶书、华文新魏、华文彩云等； 组合框2包含10、20、30、40、50等。 7、设计一个浏览.jpg图片的浏览器。 8、设计一个通用颜色对话框，以此实现文本框中“南方医科大学”文字颜色的控制。 * * * *