单项选择题

标准模块中有如下程序代码： 　　Public x As Integer，y As Integer 　　Sub var pub() 　　 x=10：y=20 　　End Sub 　　在窗体上有1个命令按钮，并有如事件过程： 　　Private Sub Command1 Click() 　　Dim x As Integer 　　Call var pub 　　x=x+100 　　y=y+100 　　Print x；y 　　End Sub 　　运行程序后单击命令按钮，窗体上显示的是( )。

A．100 100
B．100 120
C．110 100
D．110 120
<上一题 目录 下一题>
热门 试题

单项选择题
设窗体上有1个水平滚动条，已经通过属性窗V1把它的Max属性设置为1，Min属性设置为100。下面叙述中正确的是( )。
A．程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加
B．程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少
C．由于滚动条的Max属性值小于Min属性值，程序会出错
D．由于滚动条的Max属性值小于Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动
单项选择题
设a、b都是自然数，为求a除以b的余数，某人编写了以下函数： Eunction fun(a As Integer，b As Integer) While a>b a=a—b Wend fun=a End Function 在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是( )。
A．把a=a-b改为a=b-a
B．把a=a-b改为a=a＼b
C．把While a>b改为While a％b
D．把While a>b改为While a>=b
相关试题