VB西方字型，VB字型閃爍，

private sub form_load()

宋體")"斜體 GB2312")

仿歌GB2312")

黑體")"times new roman")

ms sans serif")

courier new")

gulimche")

arial")

end sub

private sub combo1_click()

if = "宋體" then = "宋體"

if = "斜體 GB2312" then = "斜體 GB2312"

if = "仿歌GB2312" then = "仿歌GB2312"

if = "黑體" then = "黑體"

if = "times new roman" then = "times new roman"

if = "ms sans serif" then = "ms sans serif"

if = "courier new" then = "courier new"

if = "gulimche" then = "gulimche"

if = "arial" then = "arial"

end sub

我修改了你的程式，就用了乙個組合，乙個文字，西班牙語字型就可以了，至於為什麼單獨列出就不行了，我還沒找到原因呢。

附錄：找出原因，因為combo2你用了change事件，所以也應該用到click事件。 更改事件在手動輸入字型名稱時發生，每次輸入字元時都會發生更改事件。

新增 label1 和計時器

private sub form_load()= "閃光詞"

trueend sub

private sub timer1_timer()static c as integer

c = c + 1

select case c

case 1

vbredcase 2

vbyellow

case 3

vbblue

case 4

hff00&

c = 0end select

end sub

您的 a4 b3 c2 是否高於定義的陣列？ 如果它是乙個定義的陣列，那麼你對這個陣列的定義有問題！

按如下方式定義陣列：

dim a(4) as integer

dim b(3) as integer

dim c(2) as integer

如果不是定義的陣列，那我看不出你的目的，建議不好，建議清楚介紹或者全部貼出來！！

希望對你有所幫助！

a4、b3 等是變數名還是值？ 之前是否分配了變數名稱？ 讓我們仔細談談。

你的作業陳述是錯的，對的，沒有引號？ 它不是乙個字串，也就是說，它是其他四個變數，那麼這四個變數的值是什麼？ 如果這樣寫，它是 a=a0，因為它沒有被賦值，所以它預設為零，它不會等於其他任何東西。

a = a4 是左邊的變數，右邊是變數。

我認為您在等號的右側加上引號，例如 a="a4"以獲得您想要的結果。

VB一般是系統自帶的字型，如果你在自己的電腦上安裝了字型，並在VB的設計中使用了它，那麼別人的機器難免無法顯示標題和其他文字，所以一般不建議在VB中安裝字型。

您可以在自己的系統上將字型安裝到 windows 資料夾下的 fonts 資料夾中。

VB的字型檔案與系統的字型相同，字型檔案可以直接複製到系統目錄的字型中;

新增 commondialog1 控制項，根據需要使用以下 ** 獲取字型、字型大小和其他屬性。

您在別人的計算機中沒有使用字型，例如，如果您在從屬於他人計算機的專案中設計字型，則在使用它時就是這種情況。

解決方法：複製自己電腦上使用的字型：【控制面板】-【字型】，選擇需要複製的字型，存放在U盤中，插入別人電腦的U盤中，複製字型，然後點選：【控制面板】-【字型】，貼上。

這是因為您使用的字型不是系統原生的。

您只能將您正在使用的字型複製到其他人的計算機上。

在編寫程式時，最好將字型寫在視窗初始化的視窗上**。

private sub command1_click()for i = 0 to - i

next i

end sub

private sub list1_click()=

end sub

列表框控制項、文字框控制項*2、按鈕控制項。 有q184203998我不明白

你的錯誤在這裡：

new font(""嫉妒，10，（在宣告中""，你不能加引號，你要用“是”的值，比如“宋風”，王錚但是加引號，你用的那個字兄弟的埋屍名是不存在的。

將其更改為以下**，就可以了：

new font(, 10,=

我的改動事件塵埃遺憾不能用，但**寫成下面安靜的哥哥渣滓也可以用。

private sub combo1_click()=

end sub

private sub form_load()("斜體 GB2312")

黑體")"宋體")

悄無聲息的新宋風格")

仿歌GB2312")

斜體 GB2312"

trueend sub