在窗体上画一个文本框Text1、一个标签Label1和一个命令按钮Command1，然后编写如下两个事件过程：
Private Sub Command1_Click()
a=InputBox("请输入一个字符串")
Text1．Text=a
End Sub
Private Sub Textl_Change()
Label1．Caption=UCase(Mid(Text1．Text，8))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“Visual Basic”，则在标签中显示的内容是

A．visual basic

B．VISUAL BASIC

C．basic

D．BASIC

被征地农民的安置方式主要有( )。

A．货币安置

B．保障安置

C．房屋产权调换安置

D．农业生产安置

E．入股分红安置