模块:type sell name as string*10 standard as string*20 price as currency end type 窗体Form_Load()事件 Private sub Form_Load() dim mysell as sell mysell.name="Epson打印机" mysell.standard="Epson style C65" mysell.price="450" Msgbox"产品
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 03:34:12
![模块:type sell name as string*10 standard as string*20 price as currency end type 窗体Form_Load()事件 Private sub Form_Load() dim mysell as sell mysell.name=](/uploads/image/z/6455405-29-5.jpg?t=%E6%A8%A1%E5%9D%97%EF%BC%9Atype+sell+name+as+string%2A10+standard+as+string%2A20+price+as+currency+end+type+%E7%AA%97%E4%BD%93Form_Load%28%29%E4%BA%8B%E4%BB%B6+Private+sub+Form_Load%28%29+dim+mysell+as+sell+mysell.name%3D%22Epson%E6%89%93%E5%8D%B0%E6%9C%BA%22+mysell.standard%3D%22Epson+style+C65%22+mysell.price%3D%22450%22+Msgbox%22%E4%BA%A7%E5%93%81)
模块:type sell name as string*10 standard as string*20 price as currency end type 窗体Form_Load()事件 Private sub Form_Load() dim mysell as sell mysell.name="Epson打印机" mysell.standard="Epson style C65" mysell.price="450" Msgbox"产品
模块:type sell name as string*10 standard as string*20 price as currency end type 窗体Form_Load()事件 Private sub Form_Load() dim mysell as sell mysell.name="Epson打印机" mysell.standard="Epson style C65" mysell.price="450" Msgbox"产品名称:" & mysell.name & Chr(10) &"产品类型:"& mysell.standard & Chr(10) & "单价:"mysell.price End Sub
模块:type sell name as string*10 standard as string*20 price as currency end type 窗体Form_Load()事件 Private sub Form_Load() dim mysell as sell mysell.name="Epson打印机" mysell.standard="Epson style C65" mysell.price="450" Msgbox"产品
VB里把一个整数作为ASCII码转换成对应的字符,Chr(10)表示ASCII码为10的字符,就是换行