模块: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/12/02 18:59:20
模块: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的字符,就是换行