单项选择题

窗体上有一个名称为Picture1的图片框控件，一个名称为Ti merl 的计时器控件，其Interval 属性值为1000。要求每隔5秒钟图片框右移100。现编写程序如下：
Private Sub Ti mer1＿Ti mer（）
Static n As Integer
n ＝n ＋1
If（n／5）＝Int （n／5）And Picturel ．Left ＜Forml ．Width Then
Picture1．Left ＝Picture1．Left ＋100
End If
End Sub
分析以上程序，以下叙述中正确的是（　　）。

A.程序中没有设置5秒钟的时间，所以不能每隔5秒移动图片框一次
B.此程序运行时图片框位置保持不动
C.此程序运行时图片框移动方向与题目要求相反
D.If 语句条件中的"Picture1．Left ＜Form1．Width"用于限制图片框移动的范围

<上一题目录下一题>

热门试题

单项选择题

设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Co mmand1的命令按钮。窗体Form1的程序代码如下： Private Sub Co mmand1＿Click（） Di ma As Integer a＝10 Call g（Form2，a） End Sub Private Sub g（f As Form，x As Integer） y ＝IIf（x＞10，000，－100） f ．Show f ．Caption ＝y End Sub 运行以上程序，正确的结果是（）。

A.Form1的Caption 属性值为100
B.Form2的Caption 属性值为－100
C.Form1的Caption 属性值为－100
D.Form2的Caption 属性值为100

单项选择题

在C盘当前文件夹下有一个已建立好的顺序文件Alph ．txt ，文件内容为只含有字母的一个字符串（有双引号界定符）。单击窗体，打开A1ph ．txt 文件，读取字符串并显示在文本框Textl 中，然后调用StrSort 过程将此字符串按ASCII 码的顺序重新排列并显示在文本框Text2中，最后将重新排列的字符串存入AlpO ．txt 文件中（无双引号界定符）。请选择横线处合适的语句（）。 Private Sub Form＿Load（） Di mStrIn As Stri ng ，StrOut As Stri ng Open ＂C：＼Alph ．txt＂For Input As ＃1 ________________ Close Textl ．Text ＝StrIn ___________ Text2．Text ＝StrOut Open ＂C：＼AlpO ．txt＂For Output As ＃2 _______ Close End Sub Private Function StrSort（s As Stri ng）As Stri ng Di ms Arr（）As Stri ng＊1，j As Integer ，J As Integer ，nAs Integer Di mt As Stri ng＊1 n ＝Len（s） ReDi ms Arr（n） For i ＝1To n s Arr（i）＝Mid（s ，i ，1） Next i For i ＝1To n ．1 For j＝i ＋1To n If s Arr（i）＞s Arrj Then t ＝s Arr（i）：s Arr（i）＝s Arr（i）：s Arr（j）＝t End If Next i ，i For i ＝1To n StrSort ＝StrSort ＆s Arr（i） Next i End Function

A.Input ＃1，Strln Strln Print ＃2，StrOut
B.Input ＃1，Strln StrSort（Stri n）Print ＃2，StrOut
C.Input ＃2，Strln StrSort（Strln）Print ＃1，Stt Out
D.Print ＃1，Strln StrSort（Stri n）Input ＃2，StrOut

相关试题