Private Sub Command1_ClickDim strA9 As String Dim i， s As Long s = 0 For i = 0 To 9 strAi = InputBoxquot请输入第quot i + 1 quot位同学成绩！quot， quot提示成绩为大写ABCDEquotIf Asc。
先在程序中加一个Label，名字应该符合VB程序控件命名规范lbllt名称 再加一个Timer控件，名字也要符合命名规范 在窗体代码对话框中打入 Private Sub Form_LoadOn Error Resume Next MeFont = quotArialquotMeFontSize = 24。