Cara menggunakan Visual Basic untuk membuat ujian pilihan berganda

Pengarang: Gregory Harris
Tarikh Penciptaan: 12 April 2021
Tarikh Kemas Kini: 22 November 2024
Anonim
VB Net Cara Membuat Soal Pilihan Ganda Menggunakan Radio Button || Channel Zahby
Video.: VB Net Cara Membuat Soal Pilihan Ganda Menggunakan Radio Button || Channel Zahby

Kandungan

Dalam ujian pilihan pelbagai, setiap soalan terdiri daripada soalan itu sendiri dan jawapan yang berlainan, yang hanya satu betul. Anda boleh membuat ujian pelbagai pilihan dalam Visual Basic menggunakan label untuk menunjukkan soalan dan butang radio untuk jawapan yang mungkin, ditambah kawalan butang untuk menavigasi isu-isu yang berbeza. Dalam kod tersebut, gunakan array untuk menyelamatkan soalan dan jawapan yang dihantar oleh pengguna dan menyimpan pemboleh ubah kaunter supaya anda tahu soalan yang pengguna berada. Pada akhir ujian, tandakan respons pengguna dan paparkan hasilnya pada borang.


Arahan

Gunakan Visual Basic untuk membuat pertunjukan Q & A anda sendiri (Ok, tidak ok gambar oleh ipal dari Fotolia.com)

  1. Buka projek Visual Basic yang baru. Tambah dua label, tiga butang radio, dan dua butang kawalan ke borang. Seret dua label ke bahagian atas, dengan Label1 di atas Label2. Seret RadioButton1, RadioButton2, dan RadioButton3 dan selaraskannya secara menegak di bawah label. Seret dua butang di bawah butang "radio" dengan Button1 di sebelah kiri dan Button2 di sebelah kanan.

  2. Tekan F7 untuk membuka tetingkap kod. Masukkan kod berikut di peringkat kelas:

    Dimanya (2, 4) Sebagai tindak balas String Dim (2) Sebagai String Dim NumPerg Sebagai Integer

    Baris pertama mewujudkan array dua dimensi. Dimensi pertama digunakan untuk setiap soalan dan yang kedua adalah untuk soalan itu sendiri, tiga pilihan jawapan dan jawapan yang betul. Baris kedua mencipta pelbagai untuk menyimpan respons pengguna. Yang ketiga mewujudkan pembolehubah kiraan yang memberikan kepada pengguna pertanyaan apa.


  3. Masukkan kod berikut:

    Sub Persendirian Dapatkan Soalan () soalan = String Baru (,) {{"Berapa warna warna pelangi?", "5", "6", "7", "7" {"Siapa yang membintangi Pirates of the Caribbean?", "Johnny Depp", "John Malkovich", "John Cusack", "Johnny Depp" {"Apakah ibu kota Florida?", "Miami", "Tallahassee", "Jacksonville", "Tallahassee"}} Sub Akhir

    Subrutin ini hanya memasukkan tiga soalan dan jawapan dalam pelbagai soalan. Anda boleh memasukkan lebih banyak soalan atau mengimportnya daripada fail teks, tetapi pastikan untuk mengubah saiz soalan dan tatasusunan array untuk menampung bilangan soalan.

  4. Masukkan kod berikut:

    Ujian Sub Ujian Pribadi () Dim puntuacao Sebagai Integer = 0 Untuk i = 0 Ke 2 Jika jawapan (i) = soalan (i, 4) Kemudian skor = 1 Akhir Jika Seterusnya Label1.Text = "Ujian selesai! Label2.Text = "Anda memukul" & "& jawapan" Panjang & & "grid &" soalan! " RadioButton1.Enabled = False RadioButton2.Enabled = False RadioButton3.Enabled = False Button1.Enabled = False Button2.Enabled = False End Sub


    Baris pertama mengisytiharkan subrutin yang menilai ujian. Ia mewujudkan pemboleh ubah tempatan untuk mengekalkan skor dan kemudian mengimbas soalan dalam array dan respons yang dihantar oleh pengguna. Untuk setiap jawapan yang diberikan, skor meningkat sebanyak 1. Akhir sekali, ia menunjukkan tanda baca dan menyahaktifkan seluruh kawalan.

  5. Buka rutin Form1_Load () dan ketik kod berikut:

    Me.Text = "Ujian Pilihan Pelbagai Saya!" GetPerFacts () NumPerg = 1 Label1.Text = "Question" & quesNum & "of" & answers.Length Label2.Text = Questions (0, 0) Button1.Text = "Previous" Button2.Text = "Next" RadioButton1.Text = soalan (0, 1) RadioButton2.Text = soalan (0, 2) RadioButton3.Text = soalan (0, 3)

    Baris pertama menentukan teks dalam bar tajuk. Panggilan seterusnya subrutin mendapatkan Soalan (). Yang ketiga memulakan kaunter soalan. Yang keempat menunjukkan di mana soalan pengguna itu. Yang kelima menunjukkan soalan pertama pada label. Perubahan keenam dan ketujuh teks untuk kedua-dua butang. Tiga baris terakhir memasuki tiga pilihan sebagai teks untuk tiga butang radio.

  6. Buka Button1_Click () subroutine dan ketik kod berikut

    Jika numPerg> 1 Kemudian numPerg - = 1 Label1.Text = "Soalan" & quesNum & "3" Label2.Text = Soalan (numPerg - 1, 0) RadioButton1.Text = Questions (numPerg - 1, 1) RadioButton2.Text = soalan (numPerg - 1, 2) RadioButton3.Text = soalan (numPerg - 1, 3) Jika Button2.Text = "Hantar" Kemudian Button2.Text = "Next"

    Ini adalah kod untuk butang "Sebelum". Ia pertama kali memeriksa sama ada pengguna menekan butang semasa soalan pertama. Jika tidak, ia menolak kaunter soalan daripada 1 dan mengubah teks label dan butang radio untuk menunjukkan soalan sebelumnya. Sekiranya pengguna berada dalam soalan terakhir, teks dalam Button2 berubah dari "Hantar" ke "Seterusnya".

  7. Buka Button2_Click () subroutine dan ketik kod berikut:

    Jika RadioButton1.Checked = Benar Kemudian balasan (numPerg - 1) = RadioButton1.Text ElseIf RadioButton2.Checked = Benar Kemudian balasan (numPerg - 1) = RadioButton2.Text ElseIf RadioButton3.Checked = Benar Kemudian balasan (numPerg - 1) = RadioButton3. Teks End Jika RadioButton1.Focus () Jika numPerg <3 Kemudian numPerg + = 1 Label1.Text = "Soalan" & quesNum & "of" & answers.Length Label2.Text = Questions (numPerg - 1, 0) RadioButton1.Text = (numPerg - 1, 1) RadioButton2.Text = soalan (numPerg - 1, 2) RadioButton3.Text = soalan (numPerg - 1, 3) Jika numPerg = 3 Kemudian Button2.Text = "Submit" End If Else EvaluateTest Akhir Jika

    Ini adalah kod untuk butang "Seterusnya". Tujuh baris pertama memeriksa butang radio yang dipilih oleh pengguna dan simpan jawapan dalam pelbagai tindak balas. Baris seterusnya mengubah tumpuan pemilihan ke RadioButton1. Baris seterusnya memeriksa jika pengguna tidak berada dalam soalan terakhir. Sekiranya tidak, subrutin menaikkan nilai pembolehubah kaunter kepada satu dan populasikan label radio dan butang dengan maklumat dalam soalan seterusnya. Sekiranya, ia mengubah teks dari butang "Seterusnya" ke "Hantar". Sekiranya pengguna sudah berada dalam soalan terakhir dan mengklik "Hantar", program ini menamakan subrutin Uji Ujian untuk mendapatkan markah.

  8. Simpan program VisualBasic anda. Tekan F5 untuk menjalankannya.