華閱文章網1.寫個簡單的代碼,謝謝
將下面的代碼粘貼到記事本里，然后把后綴名改為frm，打開文件就可以了 VERSION 5.00 Begin * Form1 Caption = "Form1" ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = "Form1" ScaleHeight = 3195 ScaleWidth = 4680 StartUpPosition = 3 '窗口缺省 Begin * Frame2 Caption = "Frame2" Height = 1335 Left = 1560 TabIndex = 7 Top = 1320 Width = 1215 Begin *Button Option2 Caption = "24號" Height = 495 Index = 1 Left = 0 TabIndex = 9 Top = 600 Width = 1215 End Begin *Button Option2 Caption = "12號" Height = 495 Index = 0 Left = 0 TabIndex = 8 Top = 0 Width = 1215 End End Begin * Frame1 Caption = "Frame1" Height = 1335 Left = 120 TabIndex = 4 Top = 1200 Width = 1455 Begin *Button Option1 Caption = "楷體" Height = 495 Index = 1 Left = 240 TabIndex = 6 Top = 720 Width = 1215 End Begin *Button Option1 Caption = "宋體" Height = 495 Index = 0 Left = 240 TabIndex = 5 Top = 240 Width = 1215 End End Begin *dButton Command1 Caption = "確定" Height = 495 Left = 1800 TabIndex = 3 Top = 2520 Width = 1215 End Begin *ox Check2 Caption = "刪除線" Height = 495 Left = 3240 TabIndex = 2 Top = 1800 Width = 1215 End Begin *ox Check1 Caption = "下劃線" Height = 495 Left = 3240 TabIndex = 1 Top = 1200 Width = 1215 End Begin *x Text1 Height = 855 Left = 480 TabIndex = 0 Text = "Text1" Top = 240 Width = 3735 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() If Option1(0) Then *me = "宋體" ElseIf Option1(0) Then *me = "楷體" End If If Option1(0) Then *ze = "12" ElseIf Option1(1) Then *ze = "24" End If If * Then *derline = True End If If * Then *rikethru = True End If End Sub。
2.跪求要很好聽的代號（兩個字）
?云§淡?
雨?熙
♀幻?紫♂?
◥影?隨◤
∮琉璃♀Ψ
空冥§♂
卍冰蝶?卐
冰絮?
▼至◎尊▼
流年⊙?
續§寫
逝?去
獨?舞
桑田♀
◣曙光◢
黎明卐
?拂曉?
冬青の
?魒澪
若水▓
淚漫……
〓陌冥〓
Ψ折翼Ψ
天涯⌒
擴展資料：
網名特征：
以下特征為多數情況，并不代表全部。
象征性，網名和自己的名字一樣，也是身份的象征。
隨意性，即可更改。
不穩定性，可能一個網民他使用多個網名或是時常更改自己的網名。
不真實性，網名一般不愿透露自己的真實信息而使用自己喜愛的名稱作為自己的網名。
可敘述性，還能表現人們的心情。
也是一個人的標識。
3.求簡短程序代碼
彈球游戲代碼，供參考：
控件：shape兩個，timer1個
Private Sub Timer1_Timer()
Static a, b
If * <= * Then
a = 15
End If
If * <= * Then
b = 15
End If
If * >= * + * - * Then
a = -15
End If
If * >= * + * - * Then
b = -15
End If
* * + a, * + b
End Sub
Private Sub Form_Load()
*al=10
* = 2900
* = 3300
With Shape1:
.Top = 100
.Left = 100
.Width = 2500
.Height = 2700
End With
With Shape2:
.Top = 100
.Left = 100
.Shape = 3
.Width = 400
.FillStyle = 0
End With
a = 15: b = 15
End Sub