您所在的当前位置: 计算机等级考试题库   >  
BASIC题库  
  >  [填空题] 下列程序计算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的值:") [14] Do Tn=Tn*10+a Sn=Sn+Tn Cout=Cout+1 [15] Debug.Print a,n,Sn End Sub
问题:
发布时间:2022-07-01

[填空题] 下列程序计算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的值:")
[14]
Do
Tn=Tn*10+a
Sn=Sn+Tn
Cout=Cout+1
[15]
Debug.Print a,n,Sn
End Sub

可能感兴趣的题目:

1

[单项选择题] 以下程序的输出结果是 ______。 x=2^-2 Print x End


A.4
B.0.25
C.4
D.程序错误

2

[填空题] Java 语言中______是所有类的根。

3

[填空题] 给定年份,下列程序用来判断该年是否为闰年,请填空。 提示:闰年的条件是年份可以被4整除但不能被100整除,或者能被400整除。 Private Sub Comand6_Click() Dim y As Integer y=InputBox("请输入年份") If(y Mod 4=0______y Mod 100<>0)or(y Mod 400=0)Then   Print"是闰年" Else   Print"是普通年份" End If End Sub

4

[填空题] Jackson结构化程序设计方法是英国的 【7】 提出的,它是一种面向数据结构的设计方法。

5

[单项选择题] 下列程序执行后,k的值是( )。    public class TestDemo {     public static void main(String args[ ]) {     int m=3,n=6,k=0;      while((m++)<(--n) )       ++k;       System.out.println(k);      }    }


A.0
B.1
C.2
D.3

6

[单项选择题] 假定已经在菜单编辑器中建立了窗体的弹出式菜单,其顶级菜单的名称为a1,其“可见”属性为False,则程序运行后,可以同时响应鼠标左键单击和右键单击的事件过程是 ______ 。


A.Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As Singl If Button = 1 And Button = 2 ThenPopupMenu al End If End Sub
B.Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As SinglPopupMenu a1 End Sub
C.Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As SinglIf Button = 1 Then PopupMenu a 1End If End Sub
D.Private Sub Form_ MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As SinglIf Button = 2 Then PopupMenu a 1End If End Sub

7

[填空题] Java提供的安全模型称作 【15】 模型。

8

[填空题] 建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为 【13】 【14】 、ShowColor、ShowFont和ShowPrinter。

9

[填空题] 以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Commandl的命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分),如下图所示。请填空。

Pfivale Sub Commaildl_C1iCk()
Dimk As hteger
Dimsum As Single,maxAs Single,min As Single
sum=Text1(0)
max=Text1(0)
min=______
Fork=1 To 6
If max<Text1(k)Then
max=Text1(k)
End If
If min>Text1(k)Then
min=Text1(k)
End If
sum=sum+Text1(k)
Nextk
Text2=(Sum-max-min)/5
End Sub

10

[单项选择题] 大部分控件都没有的属性是 ______。


A.Top
B.Name
C.Visible
D.Interval