赠送三百分

Question

一、
  2.GotFocus  LostFocus
  3.TabIndex
  4.Shell
  5.Caption
  6.Lock
  7.Appearance  BordStyle
  8.vbCrLf
  9.0 1 2
  10.0 1
  11.Click
  12.AddItem
太多了，你也太懒了，看看书吧

Answer 1

一、
  1.
  2.GotFocus  LostFocus
  3.TabIndex
  4.Shell
  5.Caption
  6.Lock
  7.Appearance  BordStyle
  8.vbCrLf
  9.0 1 2
  10.0 1
  11.Click
  12.AddItem
  13.
  14.picture1.picture
  15.
  16.zoomin and zoomout
  17.menu editor
  18.
  19.load unload
  20.
  21.shift, x, y
  22.mouse leftbutton and mouse rightbutton and shift control state
  23.
  24. 
  25.
2)
 1．picDisplay.picture=loadpicture(“c:\picts\cars.bmp”)
 2．hong.checked=true

Answer 2

个别答案：
 一，
  2.GotFocus  LostFocus
  3.TabIndex
  4.Shell
  5.Caption
  6.Lock
  7.Appearance  BordStyle
  8.vbCrLf
  9.0 1 2
  10.0 1
  11.Click
  12.AddItem
  14。PITURE属性
15。自动调节大小
17。就是那个VB右上角的那个菜单里的工具，你查查看
21。MouseMove Event,Mouse在FORM外，再者FORM内
24。其中一个TOOL BAR控件
二，
1。 
picDisplay.picture=LoadPicture(“c:\picts\cars.bmp”)
2.
hong.checked=true
三，
1.对鼠标按下的事件
2。不知所云
四，
你太夸张了

Answer 3

1．设计窗体并编写代码，用三个滚动条来控制一个文本框的背景颜色。Private Sub Form_Load()
hscR.Max = 255 '控制滚动条 R
hscG.Max = 255 '控制滚动条 G
hscB.Max = 255 '控制滚动条 B
hscR.Min = 0 '控制滚动条 R
hscG.Min = 0 '控制滚动条 G
hscB.Min = 0 '控制滚动条 B
End SubPrivate Sub hscB_Change()
 Text1.BackColor = RGB(hscR.Value, hscG.Value, hscB.Value)End SubPrivate Sub hscG_Change()
 Text1.BackColor = RGB(hscR.Value, hscG.Value, hscB.Value)End SubPrivate Sub hscR_Change()
 Text1.BackColor = RGB(hscR.Value, hscG.Value, hscB.Value)
End Sub

Answer 4

faint!!
八成是老师的试卷！

Answer 5

2 设计一个电子表，并用窗体上的两个单选按钮来选择12小时制还是24小时制。
——————————————————————————————————
Private Sub Form_Load()
   
  Timer1.Interval = 1000
  Option1.Value = True
End SubPrivate Sub Option1_Click() '12小时制
  Timer1_Timer
End SubPrivate Sub Option2_Click() '24小时制
  Timer1_Timer
End SubPrivate Sub Timer1_Timer()
  Me.Cls
  If Option1.Value = True Then '12小时制
    Print Format(Time, "HH:mm AM/PM")
  Else '24小时制
     Print Format(Time, "HH:mm")
  End If
End Sub答了两题冇人愿答的题，应该给高点分，可以吗？

Answer 6

根本就是作业~
我来up
up
up