窗体上有一个名为Lable1的标签，为使该标签透明且无边框，正确的属性设置为（）

A . "Label"、"Label1" B . "Label1"、"VisualBasic" C . "Label1"、"Caption" D . "VisuaBasic"、"Label1&quot

A . 将其BackStyle属性设置为1，BorderStyle属性设置为1 B . 将其BackStyle属性设置为0，BorderStyle属性设置为1 C . 将其BackStyle属性设置为0，BorderStyle属性设置为0 D . 将其BackStyle属性设置为1，BorderStyle属性设置为0

A . 将其BackStyle属性设置为0，BorderStyle属性设置为0 B . 将其BackStyle属性设置为0，BorderStyle属性设置为1 C . 将其BackStyle属性设置为1，BorderStyle属性设置为0 D . 将其BackStyle属性设置为1，BorderStyle属性设置为1

A . A.thisform.lable1.left=thisform.width/2 B . B.thisform.lable1.height=thisform.height/2 C . C.thisform.lable1.width=thisform.width/2 D . D.thisform.lable1.left=（thisform.width-thisform.label1.with）/2

A . Lable1.BackStyle=0：Lable1.BorderStyle=0 B . Lable1.BackStyle=1：Lable1.BorderStyle=1 C . Lable1.BackStyle=true：Lable1.BorderStyle=true D . Lable1.BackStyle=Flase：Lable1.BorderStyle=False

A . 5 B . 15 C . 20 D . 25

Private Sub Form_Load（） List1.AddItem "北京" List1.AddItem "上海" List1.AddItem "河北" End Sub Private Sub List1 【9】 （） Labe1.Caption= 【10】 End Sub

Private Sub Command1_Click() Label0.Caption=" 标签 " End Sub Private Sub Form_Load() Form.Caption=" 举例 " Command1.Caption=" 移动 " End Sub 打开窗体后单击命令按钮，屏幕显示 A <img src='https://img2.soutiyun.com/ask/uploadfile/4896001-4899000/03d044515e2c611828c7c48ea048090c.gif' /> B <img src='https://img2.soutiyun.com/ask/uploadfile/4896001-4899000/0572d539b702134a8b7b6e97360a70af.gif' /> C <img src='https://img2.soutiyun.com/ask/uploadfile/4896001-4899000/f7af594a09ec6b17b2ade14152fbd759.gif' /> D <img src='https://img2.soutiyun.com/ask/uploadfile/4896001-4899000/38392fa317c8b848bb29c0b373d15549.gif' />

A．A.13和40 B．B.13和8 C．C.5和40 D．D.5和8

<img src='https://img2.soutiyun.com/ask/uploadfile/10839001-10842000/d87865e5fc7f76c0d7c74e1a389668f7.gif' /> Dim sales （—— ） As Long Private Sub Form__Load （） open “ sales.txt ” For Input AS 1 For k=1 To 12 Input 1,sales （k ） Next k Close 1 End Sub Private Sub ——（Index, AS Integer ） Dim sum AS Long ,k AS Ingeger,month AS Ingeger sum=0 month=Index*—— For k=1 To 3 month=month+1 sum=sum+sales （month ） Next k Label1.Caption=Opl （Index ） . Caption &amp; “ 销售总额： ” Text1=sum End Sub

A、Private Sub List1_Click()Label1.Caption = List1.ListIndexEnd Sub B、Private Sub List1_Click()Label1.Name = List1.ListIndexEnd Sub C、Private Sub List1_Click()Label1.Name = List1.TextEnd Sub D、Private Sub List1_Click()Label1.Caption = List1.TextEnd Sub

Private Sub Command1_Click() a=95 If a＞50 Then k=1 Elself a＞60 Then k=2 Elself a＞70 Then k=3 Elself a＞80 Then k=4 Endlf Label0.Caption=k End Sub Private Sub Form_Load() Form.Caption= A． B． C． D．

注意：存盘时必须存放在考生文件夹下，工程文件名为ylcl．vbp，窗体文件名为ylcl.frm。 <img src='https://img2.soutiyun.com/shangxueba/ask/11067001-11070000/11067794/ct_ctvbjm_basicope_00030(20092).jpg' />

在窗体上面画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下代码： Sub S(X As Integer，y As Integer) Static z As Integer y=x*x+Z z=y End Sub Private Sub Command1 Click（） Dim i As Integer．z As Integer m=0 z=0 For i=1 T0 3 S i，Z m=m+z Next i Label1．Caption=Str(m) 程序运行后，单击命令按钮，在标签中显示的内容是（）。 A.50 B.20 C.14 D.7

<img src='https://img2.soutiyun.com/ask/uploadfile/3852001-3855000/06618ed14e1342af407ef4550c1f28b1.jpg' /><img src='https://img2.soutiyun.com/ask/uploadfile/3852001-3855000/1ebfd75144eb824dfe338ddda7667206.jpg' />程序运行后，在文本框中输入20，单击命令按钮后，标签中的内容为（）。 A.20是一个奇数 B.20 C.20是一个偶数 D.2

在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下： Option Compare Database Dim a AS String*10 Private Sub Command1_Click() a=“1234” b=Len(a) Me.Lb1．Caption=b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是()。 A．4 B．5 C．10 D．40

A．25和3 B．5和3 C．25和6 D．5和6

A．16 B．14 C．26 D．25

A．Frame1.Name=”框架” B．Frame1.Caption=”框架” C．Frame1.Text=”框架” D．Frame1.Value=”框架”

A．该列表项被移到列表的最前面 B．该列表项被删除 C．该列表项被移动到列表的最后面 D．该列表项被删除后又在原位置插入