請教有關亂數的語法問題？

skyutm

各位論壇的先進大家好！不好意思。小弟又來請教大家問題了。這次的構想是『自動選擇評語系統』，當然這只是測試的性質，最後還是要由使用者也就是教師來選擇真正適合學生的評語。這語法會將老師所給的平時分數，挑選出預設的評語，語法如下：
Option Explicit
Sub 自動評語系統()
Dim a1, a2, a3, a4, a5 As String
Dim myrange, z, x1
a1 = "品學兼優"
a2 = "奮發向上"
a3 = "聰明伶俐"
a4 = "主動求知"
a5 = "各科均優"
z = 5
    For x1 = 1 To z
    Set myrange = Sheets("sheet1").Range("c" & x1)
    Select Case myrange
        Case 90 To 99
            Sheets("sheet1").Range("c" & x1) = " a" & (Int(Rnd() * 5 + 1))
    End Select
    Next x1
  End Sub

問題：我是想由亂數去挑選預設的5個評語，但是表格內卻出現a2,a1,a5而不是中文的評語，真不知是哪裡出問題，請教一下？

maiko

好東西，又學到東西了。

skyutm

回復 4# c_c_lai
真是太感謝了！我又學到一招了，多虧網路上有這麼多熱心的前輩。原本我以為很無趣的vba語法，沒想到在大家的熱心幫忙下，越來越有成就感。

c_c_lai

回復 3# skyutm
chin15 的範例是OK的。你試試這個，是不會有問題的。
有關亂數的語法問題.rar (8.92 KB)

下載次數: 9

2012-9-17 21:03

skyutm

回復 2# chin15
chin15 謝謝你，可是語法在執行時，會出現錯誤訊息。「不正確的外部程序」。

chin15

1. Dim myrange, z, x1, a
   
2. a = Array("品學兼優", "奮發向上", "聰明伶俐", "主動求知", "各科均優")
   
3. z = 10
   
4.     For x1 = 1 To z
   
5.     Set myrange = Sheets("sheet1").Range("c" & x1)
   
6.     Select Case myrange
   
7.         Case 90 To 99
   
8.             Sheets("sheet1").Range("d" & x1) = a(Int(Rnd() * 5))
   
9.     End Select
   
10.     Next x1

複製代碼