更多"下面程序运行时，若输入“Visual Basic Programmin"的相关试题:
[单项选择]
下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是（）
Private Sub Comand1_Click（ ）
Dim count(25) As Integer, ch As String
ch=Ucase(InputBox("请输入字母字符串"))
For k=1 To Len(ch)
n=Asc(Mid(ch,k,1))-Asc("A")
If n>=0 Then
Count(n)=Count(n)+ 1
End If
Next k
m=count(0)
For k=1 To 25
If m< p>
m=count(k)
End If
Next k
Print m
End Sub
A. 0
B. 1
C. 2
D. 3
[单项选择]下面程序运行时，若输入“Visual Basic Prograrmming”，则在窗体上输出的是( )
Private Sub Command1_Click（ ）
Dim count(25)As Integer,ch As String
ch=Ucase(InputBox("请输入字母字符串"))
For k=1 To Len(ch)
n=Asc(Mid(ch,k,1))-Asc("A")
If n＞＝0 Then
count(n)一count(n)+1
End If
Next k
m=count(0)
For k=1 To 25
If m＜count(k) Then
m=count(k)
End If
Next k
Print m
End Sub
A. 0
B. 1
C. 2
D. 3
[单项选择]下面程序运行时，单击窗体后，窗体上显示的结果是( )。
Private Sub Form_Click（ ）
Dim I As Integer
Dim sum As Long
sum=0
For I=10 To 16
If I Mod 3=0 OrI Mod 5=0 Then
sum=sum+I
End If
Next I
Print sum
End Sub
A. 10
B. 12
C. 37
D. 22
[单项选择]下面的程序运行时，单击窗体后，窗体上显示的结果是( )。
Private Sub Form_Click（ ）
Dim a(1 To 6)As Integer
Dim min1%,i%,j%,n%,t%,k%
a(1)=8:a(2)=6:a(3)=9:a(4)=3:a(5)=2:a(6)=7
n=6
For i=1 To n-1
min 1=i
For j=i+1 To n
If a(j)＜a(min1)Then min1=j
Next j
t=a(i):a(i)=a(min1):a(min1)=t
Next i
For i=1 To n
Print a(i)
Next i
End Sub
A. 9 8 7 6 3 2
B. 2 3 6 7 8 9
C. 9 8 7 6 3
D. 2 3 6 7 8
[单项选择]执行下列程序段
a$="visual Basic Programming"
b$="C++"
C$=UCase(Left$(a$，7))＆b$＆Right$(a$，1 2)
后，变量c$的值为( )。
A. Visual BASIC Programming
B. VISUAL C++Programming
C. Visual C++Programming
D. VISUAL BASIC Programming
[单项选择]以下程序运行时，单击窗体后，在窗体上输出的结果是 ______。
Private SubForm_Click（ ）
Dim a As Integer，b As Integer
a=10 ：b=20
Call ff(a，B)
Print a，b
End Sub
Private Sub ff(x As Integer，y As Integer)
x=x+y
y=x+y
End Sub
A. 30 50
B. 30 30
C. 20 20
D. 10 20
[单项选择]执行以下程序段
a $="Visual Basic Programming"
b $="C++"
c $=UCase(Left $(a $,7))＆b $ ＆Right$(a $ ,12)
后，变量c $的值为______。
A. Visual BASIC Programming
B. VISUAL BASIC Programming
C. Visual C++Programming
D. VISUAL C++Programming
[填空题]下列程序运行时，单击窗体，执行结果为 【12】 。
说明：在窗体上有一Label控件，名为lblDate。
Dim Y As Integer,m As Integer,d As Integer,w1 As Integer
Dim Rq As Date
Dim W2 As String
Private Sub Form_Click（ ）
Rq=Date
Y=Year(Rq): m=Month(Rq)∶d=Day(Rq)
w1=Weekday(x)
Select Case w1
Case 1
W2="日"
Case 2
W2="一"
Case 3
W2="二"
Case 4
W2="三"
Case 5
W2="四"
Case 6
W2="五"
Case 7
W2="六"
End Select
bldate.Caption="今天是"&Y&"年"&m&"月"&d&"日"&"星期"&W2
End SUb
[填空题]以下程序在运行时若输入：1234567，则程序的运行结果是______。
#include＜stdio.h＞
main（ ）{
int x, y;
scanf("%2d%1d", &x, &y); printf("%d/n", x+y);
}
[填空题]以下程序在运行时若输入：1234567，则程序的运行结果是______。
#include＜stdio.h＞
main（ ）
int x, y;
scanf("%2d%1d", &x, &y); printf("%d/n", x+y);
[单项选择]下面程序运行时，若输入395，则输出结果是( )
Private Sub Command1_Click（ ）
Dim x%
x=InputBox("请输入一个3位整数")
Print x Mod 10,x/100,(X Mod 100)/10
End Sub
A. 3 9 5
B. 5 3 9
C. 5 9 3
D. 3 5 9
[单项选择]
下面程序运行时，若输入395，则输出结果是（）。
Private Sub Command1_Click（ ）
Dim x%
x=InputBox("请输入一个3位整数")
Print x Mod 10，x/100，(x Mod 100)/10
End Sub
A. 3 9 5
B. 5 3 9
C. 5 9 3
D. 3 5 9
[简答题]阅读下面一段Visual Basic程序：在窗体上建立一个文本框，其名称为Textl，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：
Private Sub Form Click（ ）
Open"d:/test/smtext1.txt"For Input As#1
Do While Not ____(①)____
Line Input#1,aspect$
whole $=whole $+aspect $+Chr $(13)+Chr $(10)
Loop
Text1.Text=whole $
Close#1
Open"d:/test/smtext2.txt"For Output As#1
Print#1， ____(②)____
Close#1
End Sub
上述程序的功能是：把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请完成①②空。
[单项选择]窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程
Private Sub option1_Click(Index As Integer)
…
End Sub
下面关于此过程的参数Index的叙述中正确的是
A)Index为1表示单选按钮被选中，为0表示未选中
B)Index的值可正可负
C)Index的值用来区分哪个单选按钮被选中
D)Index表示数组中单选按钮的数量
[填空题]下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面的程序。
首先在窗体层定义如下变量：
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)
【 】
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_Db1Click（ ）
【 】
End Sub
