1: VBScript 스크립트 언어의 IF...THEN... 또는 Select...CASE 문을 사용하여 페이지를 작성합니다.
다른 성적을 출력합니다(Gradegt; =90 : 우수 등급gt; =80: 좋음 등급gt; =70 중간 등급gt; =60 합격 등급<60 불합격, 등급의 초기 값은 스스로 결정됩니다.
답변:
사례 선택 grade
case gt;=90
msgbox("우수한 결과")
case gt;=80
msgbox("우수한 결과" results") "매우 좋음")
case gt;=70
msgbox("Medium")
casegt;=60
msgbox("결과가 통과되었습니다")
caselt; 60
msgbox("결과가 실패했습니다")
케이스 종료
2 : "Student Table"이라는 데이터 테이블이 있는 기존 ACEESS 데이터베이스 Student.mdb가 있습니다. ODBC 드라이버 또는 OLEDB 연결 문자열을 사용하여 데이터베이스에 액세스하여 테이블에 있는 "Student Table"의 모든 기록 내용을 프로그래밍 방식으로 출력합니다.
Dim blnok As Boolean = False
Dim myconn As New OleDbConnection
Dim mycomm As New OleDbCommand
Dim myadpt As New OleDbDataAdapter< /p>
새로운 데이터 세트로 myds를 흐리게
새 데이터 그리드로 dtg를 흐리게
myconn.ConnectionString= "provider=microsoft.jet.oledb.4.0; data source=" amp ; Application.StartupPath amp; " \student.mdb"
myconn.Open()
mycomm.CommandText = "학생 테이블에서 * 선택"
mycomm .Connection = myconn
myadpt.SelectCommand = mycomm
myadpt.Fill(myds)
dtg.datasource=myds.tables(0)