更多"设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下"的相关试题:
[单项选择]设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是( )
A. Picture1.Picture="Flie1.jpg"
B. Picture1.Picture=LoadPicture("File1.jpg")
C. LoadPicture("File1.jpg")
D. Call LoadPicture("File1.jpg")
[填空题]将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是 【7】 。
[填空题]为了在运行时把d:/pic文件夹下的图形文件a.jpg装入图片框Picture1，所使用的语句为 【8】 。
[填空题] 将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是__________ 。
[单项选择]设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load（ ） Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_Mouse Up (Button As Integer，Shift As Integer，X As Single，Y As Single) Print"程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print"Visual Basic"； End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是（）。
A. Visual Basic
B. 程序设计
C. Visual Basic程序设计
D. a程序设计
[填空题]设窗体上有Text1文本框和Command命令按钮，并有以下程序：
Private Sub Command1_Click（ ）
Iemp$=“”
For k=1 To Len(Text1)
Ch$=Mid(Text1,k,1)
If Not found(temp,ch)Then
Temp=temp& （ 13 ）
End if
Next k
Text1= （ 14 ）
End Sub
Private Function found(str As String,ch As String)As Boolean
For K=1 To Len(str)
If ch=Mid(Str,k,1) Then
Found= （ 15 ）
Exit Function
End If
Next k
Found=False
End Function
运 行时，在文本框中输入若干英文字母，然后单击命令按钮，则可以删去文本框中所有重复的字母。例如，若文本框中原有字符串为“abcddbbc”，则单击命 令按钮后文本框中字符串为“abcd“。其中函数found的功能是判断字符串str中是否有字符ch，若有，函数返回True，否则返回False。请 填空。
[填空题]设窗体上有一个名称为Lable1的标签。程序运行时，单击鼠标左键，再移动鼠标，鼠标的位置坐标会实时地显示在Lable1标签中：单击鼠标右键则停止实时显示，并将标签中内容清除。下面的程序可实现这一功能，请填空。
Dim Down As Boolean
Private Sub Form _MouseDown(Button As Integer，Shift As Integer，x As Single，Y As Single)
Select Case （ 8 ）
Case 1
Down=True
Case 2
Down=False
End Select
End Sub
Private Sub Form _MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single)
If （ 9 ）
（ 10 ） =”X=”& X &” Y=”& Y
Else
Label1.Caption=””
End if
Sub
[单项选择]设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：
Private Sub Command1_Click（ ）
Dim s As String, ch As String
s=""
For k=1 To Len(Text1)
ch=Mid(Text1,k,1)
s=ch+s
Next k
Text1.Text=s
End Sub
程序执行时，在文本框中输入Basic，然后单击命令按钮，则Text1中显示的是
A. Basic
B. cisaB
C. BASIC
D. CISAB
[单项选择]设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程： Private Sub Command1_Click（ ） Dim s As String，Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。
A. Basic
B. cisaB
C. BASIC
D. CISAB
[单项选择]设窗体上有一个文体框Text1和一个命令按钮Command1，并有以下事件过程：
Private Sub Command1_Click（ ）
Dim S As String，ch As String
S=" "
For k=1 To Len(Text1)
ch=Mid(Text1,k,1)
S=ch+S
Next k
Text1.Text=S
End Sub
程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )
A. Basic
B. cisaB
C. BASIC
D. CISAB
[填空题]
设窗体上有—个名称为Combo1的组合框，并有以下程序：
Privale Sub Combol_ KeyPress(KeyAscii As Integer)
If（）=13 Then 回车符的ASCII码是13
For k=0 To Combo1. ListCount-1
If Combo1.Text=Combol. List(k)Then
Combo1.Text=" "
Exit For
End If
Next k
If Combo1. Text＜＞" "Then
Combo1. AddItem（）
End If
End If
End Sub
程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。
