20. 窗体上有一个图片控件和一个按钮控件,下列程序执行的结果是。 Private Sub Command1_Click() Picture1.Picture=LoadPicture("c:\picture.jpg") Picture1.Cls Picture1.Print"picture" End Sub
25. 下面函数的功能应该是:删除字符串str中所有与变量ch相同的字符,并返回删除后的结果。例如:若str=“ABCDABCD”,ch=“B”,则函数的返同值为:“ACDACD” Function delchar(str As String,ch As String)As String Dim k As integer,temp As String,ret As String ret="" Fork=1 To Len(str) temp=Mid(str,k,l) If temp=ch Then ret=ret & temp End If Next k delchar=ret End Function 但实际上函数有错误,需要修改。下面的修改方案中正确的是。
27. 窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序: Dim y As Integer Private Sub Command1_Click() Dim x As Integer x=2 Text1.Text=p2(pl(x),y):Text2.Text=pl(x) End Sub Private Function pl(x As Integer)As Integer x=x+y:y=x+y pl=x+y End Function Private Function p2(x As Integer,y As Integer)As Integer p2=2*x+y End Function 程序运行后,第一次单击和第二次单击命令按钮后,文本框Text1和Text2内的值分别是。
28. 单出命令按钮执行以下程序,输出结果为。 Private Sub Command1_Click() Dim x As Integer,y As Integer x=12:y=32 Call Proc(x,y) Print x;y End Sub Public Sub Proc(n As Integer,ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub
29. 在窗体上有一个文本框Text1,Text属性值为空,然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String,n As Integer str=UCase(Cbr(KeyAscii)) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后,如果在文本框中输入字母“p”,则在文本框中显示的内容为。
30. 在窗体上画一个命令按钮,然后编写如下代码: Private Sub Command1_Click() Dim MaxSize,NextChar,MyChar Open"d:\temp\female.txt"For Input As#1 MaxSize=LOF(1) For NextChar=MaxSize To 1 Steo-1 Seek#1,NextChar MyChar=Input(1,#1) Next NextChat Print EOF(1) Close #1 End Sub 程序运行后,单击命令按钮,其输出结果为。
9. 以下程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以 5余2”的条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除文本框的内容。请填空。 Private Sub Command1_Click() x=Val(Text1.Text) If______Then Print x Else ______ Text1.Text="" End If End Sub
x Mod 4=1 And x Med 5=2;Tex1.SetFocus
[解析] 本题考查条件表达式的描述和如何获得焦点。题中的两个条件“除以4余1,除以5余2”关系为并列关系,可以表示为“x Mod 4=1 And x Mod 5=2”,否则Text1获得焦点,Text1获得焦点的方法为:Text1.SetFocus
10. 设在界面上放置了一个滚动条Hscroll1和一个标签控件Label1,请补齐以下代码,要求每次单击滚动条两端箭头,或滚动条滑块与两端箭头之间的空白区域时,滚动条的值能够反映在标签中。 Private Sub Hscroll1______ Label1.Caption=Hscroll1______ End Sub
11. 在窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程: Private Sub Form_Click() Open "d:\Temptext1.txt" For Input As #1 Do While Not______。 Line Input #1,aspectS whole$=whole$+aspect$+Chr$(13)+Chr$(10) Loop Text1.Text=whole$ ______。 Open "d:\Temptext2.txt" For Output As #1 Print #1,______。 Close #1 End Sub 运行程序,单击窗体,将把磁盘文件Temptext1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件Temptext2.txt。请填空。
EOF(1);Close #1;Text1.Text (或Text1)
[解析] VB程序中关于文件的操作,主要是先打开一个文件,然后对这个文件进行读或写的操作,操作完成后,关闭这个文件。打开文件的基本格式为:Open FileName For Mode As #FileNumber。其中,FileNumber参数表示打开文件的句柄,即文件号。当从文件中读取全部数据时,常用Do While当型循环,并以Not EOF(文件号)作为循环条件,用于判断是否已到文件结尾,故第一空应填入EOF(1)。由于在写文件时又将需要写入的文件打开为1号文件,所以再打开该文件前应该先关闭1号文件,第二空应填入Close #1;若要对以Output形式打开的某文件使用Print方法进行输出,标准格式为:Print文件号,字符串,故第三空应填入Text1.Text。