您所在的当前位置: 计算机等级考试题库   >  
BASIC题库  
  >  [单项选择题] 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Comandl_Click() Dim arrayl(10, 10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 arrayl(i, j)=i+j Next j Next i Text1. Text=arrayl(2, 3)+arrayl(3, 4) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是______。 A.15 B.14 C.13 D.12
问题:
发布时间:2022-07-01

[单项选择题] 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Comandl_Click()
Dim arrayl(10, 10)As Integer
Dim i As Integer, j As Integer
For i=1 To 3
For j=2 To 4
arrayl(i, j)=i+j
Next j
Next i
Text1. Text=arrayl(2, 3)+arrayl(3, 4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是______。


A.15
B.14
C.13
D.12

可能感兴趣的题目:

1

[填空题] 执行下列语句后,输出结果是______。
s$="ABCDEFG"
Print lnStr(S$, "efg")
Print LCase$(s $)

2

[填空题] InputBox函数输入数据时,可以单击“确定”按钮或______表示确认。

3

[单项选择题] 在菜单编辑器中建立一个名称为Menu0的菜单项,将其"可见"属性设置为False,并建立其若干子菜单,
然后编写如下过程:
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=1 Then
PopupMenu Menu0
End If
End Sub
则以下叙述错误的是______。


A. Menu0在菜单编辑器中定义弹出菜单的名称
B. 该过程的作用是弹出一个菜单
C. 单击鼠标右键时弹出菜单
D. 参数X、Y指明鼠标当前位置的坐标

4

[填空题] 在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下事件过程:
Private Sub Command1_Click()
  Dim inData As String
  Text1.Text=""
Open"d:myfile.txt"Fo (8) As#1
Do While (9)
    Input #1,inData
    Text1.Text=Text1.Text+inData
  Loop
  Close #1
End Sub
程序的功能是,打开D盘根目录下的文本文件myfile.txt,读取它的全部内容并显示在文本框中。请填空。

5

[填空题] 下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。
例如:a=5,n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。
Private Sub Command1_Click()
Dim a As Integer,n As Integer,Cout As Integer
Dim Sn As Long,Tn As Long
   Cout=1
   Sn=0
  Tn=0
  a=InputBox("请输入a的值:")
   (10)
  Do
   Tn=Tn*10+a
   Sn=Sn+Tn
   Cout=Cout+1
   (11)
  Debug.Print a,n,Sn
End Sub

6

[填空题] 类Test定义如下:
class Test public static void main(string args[])

String s1="abc";
String s2=new String(s1);
if(s1==s2)
System.out.println("s1==s2";
if(s1.equals(s2))
System.out.println("s1.equals(s2)");
那么程序的执行结果为: 【15】

7

[填空题] 下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下面的程序。
首先在窗体层定义如下变量:
Dim PaintStart As Boolean
编写如下事件过程:
Private Sub Form_Load ( )
DrawWidth = 2
ForeColor = vbGreen
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PaintStart = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If PaintStart Then
PSet (X, Y)
End If
End Sub
Private Sub Form_MouseUp (Button As Integer, Shift As Integer, _
X As Single, Y As Single)
______
End Sub
Private Sub Form_DblClick( )
Cls
End Sub

8

[单项选择题] 乙酰水杨酸片的处方中:润滑剂是().


A.乙酰水杨酸400g 
B.枸椽酸80g 
C.10%淀粉浆24g 
D.干淀粉23g 
E.滑石粉3g

9

[填空题] 下列程序的功能是:将数据1,2,…,8写入顺序文件Num.txt中,请补充完整。
Private Sub Form_Click()
Dim i As Integer
Open "Num.txt" For Output As#1
For i=1 To 8
______
Next
Close #1
End Sub

10

[单项选择题] 以下不具有Picture属性的对象是


A.窗体
B.图片框
C.图像框
D.文本框