问答题库

问题描述:

[单项选择题] 执行下列程序后,变量a的值为( )。 Dim i As Integer Dim a As Integer a=0 For i=1 To 100 Step 2   a=a+1 Next i


A.1
B.10
C.50
D.100

窗体上有一个名称为CD1的通用对话框,一个名称为Command1的命令按钮,相应的事件过程如下: Private Sub Command1_Cick() CD1. Fiher = "All File | *. * | Text File | *. txt | Word | *. Doc" CD1. FilterIndex = 2 CD1. FileName = "E: Test. ppt" CD1. InitDir = "E: " CD1. ShowOpen End Sub 关于上述程序,以下叙述中正确的是( )。在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下事件过程:Private Sub Form_Load()ShowText1.Text=""Text2.Text=""Text2.SetFocusEnd SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)Text1.Text=Text1.Text+Chr(KeyCode-4)End Sub 程序运行后,如果在Text2文本框中输入“efghi”,则Text1文本框中的内容为 【11】 。在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程: Private Sub Command1_Click()CommonDialogl.Flags=cdlOFNHideReadOnlycommonDialogl.Filter="All Files(*.*)|*.*| Text Files"&_ "(*.txt)|*.txt|Batch Files(*.bat)|*.bat"CommonDialogl.Filterlndex=1CommonDialogl.ShowOpenMsgBox CommonDialogl.FileName End Sub 程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是 ______。面向对象的程序设计主要的优点包括与人类习惯思维方法一致、稳定性好、可重用性好、 【2】 和可维护性好等5个方面。以下程序代码使用二维数组A表示矩阵,实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1,其余元素值全为0,请补充完该程序。 Private Sub Command1_click()Dim A(4,4)For I=1 To 4 For J= 1 To 4 【12】 =1 Next I 【13】 【14】 Next J For i=1 To 4 For j=1 To 4 Print A(i,j): Next j Print Next I End Sub

评评难度:

参考答案:

C

相关考题