为了使一个标签透明且没有边框,必须将它的BorderStyle属性设置为0,并将【 】属性设置为0。
第1题
以下程序的功能是在程序运行后,单击命令按钮,输出如下结果: 1 4 7 2 5 8 3 6 9 请完善以下程序。 Private Sub Command1_Click() Dim Arr(3,3)As Integer For i=1 To 3 For j=1 To 3 Arr(i,j)=【 】 Print Arr(i,j); Next j Print NeXt i End Sub
请帮忙给出正确答案和分析,谢谢!
第2题
在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后,在列表框中选择一个项目,然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数。 下面是实现上述功能的程序,请填空。 Private Sub Form_Load() List1.AddItem "AAAAA" List1.AddItem "BBBBB" List1.AddItem "CCCCC" List1.AddItem "DDDDD" End Sub Private Sub Command1_Click() Dim L1 As Integer L1=【 】 If L1 >=0 Then List1.RemoveItem【 】 Labell.Caption=【 】 Else MsgBox("请选择要删除的项目") End If End Sub
请帮忙给出正确答案和分析,谢谢!
第4题
在窗体上画一个文本框和一个命令按钮,如下图所示。
编写如下程序: Private Sub Form_Load() Show Text1.Text=" " Form1.KeyPreview=False Text1.SetFocus End Sub Private Sub Command1_Click() KeyPreview=Not KeyPreview Print End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print UCase(Chr(KeyAscii+1)); End Sub Private sub Text1_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii+2) KeyAscii=0 End Sub 阅读以上程序,理解每个事件过程的操作,然后填空。 ①程序运行后,直接从键盘上输入abc,程序输出的结果是【 】。 ②程序运行后,单击一次“命令按钮1”,然后从键盘上输入abc,程序输出的结果是【 】。
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!