填空题

在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Click() Text1. Text="VB程序设计" End Sub Private Sub Text1_Change() Picturel. Print "VB Programming" End Sub 程序运行后，单击窗体，则在文本框中显示的内容是 【6】 ，在图片框中显示的内容是 【7】 。

【参考答案】

[6]VB程序设计 [7]VB Programming
<上一题 目录 下一题>
热门 试题

填空题
在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮。即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图16-5所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。Private Sub Command1_C1ick()If List1. List1adex＞= 【10】 ThenList1. Removeltem 【11】 Label1. Caption= 【12】 ElseMsgBox 请选择要删除的项目 End IfEnd Sub
填空题
有下列程序，程序运行后，单击“Command1”按钮，在列表框List1中显示的第一行和第二行的结果分别是 【13】 和 【14】 ，最后一行的结果是 【15】 。Type type_achr1 As String*1num1 As IntegerEnd TypePrivate Sub Command1_Click()Dim testdata As type_a, n As IntegerDim f1 As Integer, c()As String*1f1=FreeFileOpen d: data. txt For Random As #f1 Len=Len(testdata)n=1For I=97 To 102ReDim Preserve c(n)c(n)=Chr(I)testdata. chr1=c(n)testdata. num1=In=n+1Put #f1, , testdataNext ISeek #f1, 1For I=1 To UBound(c)Get #f1, , testdataList1. AddItem testdata. chr1 & testdata num1Next IList1. AddItem UBound(c)CloseEnd Sub
相关试题