score.frm

来自「河北工业大学大一至大二学期」· FRM 代码 · 共 46 行

VERSION 5.00
Begin VB.Form Score 
   Caption         =   "得分情况"
   ClientHeight    =   1365
   ClientLeft      =   3915
   ClientTop       =   1470
   ClientWidth     =   3735
   LinkTopic       =   "Form1"
   ScaleHeight     =   1365
   ScaleWidth      =   3735
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton return 
      Caption         =   "返回计算"
      Height          =   375
      Left            =   1200
      TabIndex        =   1
      Top             =   960
      Width           =   1335
   End
   Begin VB.PictureBox Sout 
      AutoRedraw      =   -1  'True
      Height          =   855
      Left            =   0
      ScaleHeight     =   795
      ScaleWidth      =   3675
      TabIndex        =   0
      Top             =   0
      Width           =   3735
   End
End
Attribute VB_Name = "Score"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub return_Click()
Unload Me
End Sub

Private Sub form_load() '从calc窗体读取数据并打印
On Error Resume Next
Sout.Print "一共做了" & calc.Sum & "道题" & vbNewLine & "计算正确的有" & calc.Trues & "题" & vbNewLine & "计算错误的有" & calc.Sum - calc.Trues & "题" & vbNewLine & "得分是" & Format(calc.Trues * 100 / calc.Sum, "###")
End Sub