您所在的当前位置: 计算机等级考试题库   >  
BASIC题库  
  >  [填空题] 执行下面的程序段,x的值为 【7】 。   Private Sub Command1_Click()    For i=1 To 9      a=a + i    Next i    x=Val(i)    MsgBox x   End Sub
问题:
发布时间:2022-07-01

[填空题] 执行下面的程序段,x的值为 【7】 
  Private Sub Command1_Click()
   For i=1 To 9
     a=a + i
   Next i
   x=Val(i)
   MsgBox x
  End Sub

可能感兴趣的题目:

1

[单项选择题] Applet可以做下列哪些操作( )


A.调用用户计算机上的系统去执行其他的应用程序
B.访问用户的文件系统
C.装入用户计算机上以其他程序语言所写的应用程序或函数库
D.读取客户端部分系统变量

2

[填空题] 下面的程序是找出两个正整数a和b,使得a<b、a+ b=99、a和b的最大公约数是3的倍数,并统计满足条件数对的个数。Option ExplicitDim a As Integer, b As Integer, n As Integer, c As IntegerPrivate Function Gcd (ByVal a As Integer, Byval b As Integer) As Integer do c=a Mod b: a=b=c Loop 【13】 Gcd=aEnd FunctionPrivate Sub form_ Click() n=0 for a= 1 To 49 b= 【14】 c= Gcd (a, b) if c Mod 3= 0 then 【15】 Print a, b, c End if Next a Print nEnd Sub

3

[填空题] 以下程序的功能是:将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来,要求把A(1)~A(10)依次赋给B(1,1)~B(1,10),把A(11)~A(20)依次赋给B(2,1)~B(2,10),……,把A(91)~A(100)依次赋给B(10,1)~B(10,10)。请填空。
Option Base 1
Private Sub Form_Click()
Dim i As Integer,j As Integer
Dim A(1 To 100) As Integer
Dim B(1 To 10, 1 To 10) As Integer
For i=1 To 100
A(i)=Int(Rnd*100)
Next i
For i=1 To (8)
For j=1 To (9)
B(i,j)= (10)
Print B(i,j)
Next j
Print
Next i
End Sub

4

[问答题] 在考生文件夹下有一个过程文件sjt5.vbp,窗体上有两个图片框,名称为P1、P2,分别用来表示信号灯和汽车,其中在P1中轮流装入“黄灯.ico”、“红灯.ico’、“绿灯.ico”文件来实现信号灯的切换;还有两个计时器Timer1和Timer2,Timer1用于变换信号灯,黄灯1秒,红灯2秒,绿灯3秒;Timer2用于控制汽车向左移动。运行时,信号灯不断变换。单击“车按”按钮后,汽车开始移动,如果移动到信号灯前或信号灯下,遇到红灯或黄灯,则停止移动,当变为绿灯后再继续移动。在窗体中已经给出了全部控件和程序,但程序不完整,要求阅读程序并去掉程序中的注释符,把程序中的改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件以原文件名存盘。sjt5.frm文件内容如下: Dim a%,b As Boolean Private Sub C1_Click() ’ Timer2.Enabled= b=True End Sub Private Sub Timer1_Timer() a=a+1 If a>6 Then a=1 End If Select Case a Case 1P1.Picture=LoadPicture("黄灯.ico" ) Case 2,3P1.Picture=LoadPicture("红灯.ico") Case 4,5,6 ’ P1.Picture=LoadPicture("")If b Then Timer2.Enabled=True End Select End SubPrivate Sub Timer2_Timer()If (a<4) And (P2.Left>P1.Left And P2.Left<P1.Left+P1.Width)Or P2.Left<=100 Then’ Timer2.Enabled=Else’ P2.Move —10,P2.Top,P2.Width,P2.HeightEnd IfEnd Sub

5

[单项选择题] 软件需求说明书是需求分析阶段的最后成果,以下( )是其应包括的内容。 Ⅰ.数据描述 Ⅱ.功能描述 Ⅲ.性能描述 Ⅳ.文件结构


A.Ⅰ和Ⅱ
B.Ⅱ和Ⅲ
C.Ⅱ和Ⅵ
D.Ⅰ、Ⅱ和Ⅲ

6

[问答题] return true;

7

[填空题] 在程序的空白行处填写适当的语句,完成下列功能;依次自动将列表框List2中所有列表项目移入列表框List1中,并将移入List1中的项目从List2中删除。
Do While List2.ListCount
______
List2.RemoveItem0
Loop

8

[填空题] 请完善程序(程序文件名:Java_2.java)并进行调试。请在下画线处填入正确内容,然后删除下画线。请勿删除注释行和其他已有的语句内容。
[题目要求]
完善程序,使程序运行结果如下图所示。

源程序:
import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
public class Java_2
 public static void main(String[] args)
  RadioButtonFrame frame=new RadioButtonFrame();
  frame.setDefauhCloseOperation(JFrame.EXIT_ON_CLOSE);
   (1)
  

class RadioButtonFrame extends JFrame
 public RadioButtonFrame()
  setTitle("Radio按钮实例");
  setSize(DEFAULT_WIDTH,DEFAULT_HEIGHT);
  Container contentPane=getContentPane();
  label=new JLabel("热烈庆祝Java程序语言开考三周年");
  label.setForeground(Color.yellow);
  contentPane.setBackground(Color.red);<

9

[填空题] 有如下程序:DefStr X-Z X="123" Y="456" Z=X+Y Print ZEnd运行后,输出结果是______。

10

[单项选择题] 当一个命令按钮的Default属性为True时,按何键与单击该命令按钮作用相同( )。


A. Insert
B. 回车
C. Break
D. Shift