代碼如下:
Private?Sub?Command1_Click()
Dim?STR?As?String,?Xian?As?String
Xian?=?String(20,?"-")
STR?=?Format("姓?名",?"!@@@@@@@@@@")?&?Format("成?績",?"!@@@@@@@@@@")?&?vbCrLf?&?Xian?&?vbCrLf
STR?=?STR?&?Format("小?明",?"!@@@@@@@@@@")?&?Format("?95",?"!@@@@@@@@@@")?&?vbCrLf?&?Xian?&?vbCrLf
STR?=?STR?&?Format("小?華",?"!@@@@@@@@@@")?&?Format("?97",?"!@@@@@@@@@@")?&?vbCrLf?&?Xian?&?vbCrLf
STR?=?STR?&?Format("小?青",?"!@@@@@@@@@@")?&?Format("?96",?"!@@@@@@@@@@")?&?vbCrLf?&?Xian?&?vbCrLf
STR?=?STR?&?Format("小?紅",?"!@@@@@@@@@@")?&?Format("?99",?"!@@@@@@@@@@")?&?vbCrLf?&?Xian?&?vbCrLf
STR?=?STR?&?Format("小?麗",?"!@@@@@@@@@@")?&?Format("?98",?"!@@@@@@@@@@")?&?vbCrLf?&?Xian?&?vbCrLf
Print?STR?'Str中存的就是格式化後的表格形式
End?Sub
效果如圖所示: