作业帮 > 综合 > 作业

模块:type sell name as string*10 standard as string*20 price a

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/07/14 21:03:40
模块: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 a
VB里把一个整数作为ASCII码转换成对应的字符,Chr(10)表示ASCII码为10的字符,就是换行