假定窗体上有一个标签，名为Lable1。为了使该标签透明并且没有边框，则正确的属性设置为（）

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

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

Private Sub Command1_Click（） Sum = 0 For i = 0 To 4 Sum = Sum + ________ Next ________ = Sum End Sub

A．Lable1.BackStyle=0:Lable1.BorderStyle=0 B．Lable1.BackStyle=1:Lable1.BorderStyle=1 C．Lable1.BackStyle=1:Lable1.BorderStyle=0 D．Lable1.BackStyle=0:Lable1.BorderStyle=1

<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．

A．MenuItem.Enabled=False B．MenuItem.Enabled=True C．MenuItem.Visible=True D．MenuItem.Visible=Flase

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

Private Sub Command1_Click() Dim x!, y!, z!, t! x = Text1 y = Text2 z = Text3 If x< y then t = x x = y y = t End If If y< z then t = y y = z z = t If x< y then t = x x = y y = t End If End If Label1.Caption = x & "," & y & "," & z End Sub 当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为() A.3,5,8 B.5,3,8 C.8,5,3 D.3.8.5

在窗体上面画一个命令按钮和一个标签，其名称分别为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．MenuItem．Enabled=False B．MenuItem．Enabled=True C．MenuItem．Visible=True D．MenuItem．Visible=False

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．该列表项被删除后又在原位置插入