VB程序设计
历年真题
判断文本框Text是否输入了某个字符串,可以使用1InStr函数。
表达式15/5*2的结果为1。
VB中顺序文件和随机文件有什么异同?
VB应用程序主要有哪三种模块?每种模块的主要作用是什么?
下列程序是判断一个整数(>=3)是否为素数,请补充完整。Private Sub Command1_Click()Dim n As Integer, i, k, prime As Integer n=InputBox("请输入一个整数(>=3)")k=Int(Sqr(n))i=(1)__________prime=0While i=3)是否为素数,请补充完整。
窗体上有一个命令按钮(Command1),编写如下程序,当运行程序后,单击命令按钮,窗体的输出结果是___________。Private Sub Command 1_Click ()Dim a, i, j As Integer a=0For i=1 To 3For j=1 To 5If j Mod 3<>0 Thena=a+1End Ifa=a+1Next jNext iPrint aEnd Sub窗体上有一个命令按钮(Command1),编写如下程序,当运行程序后,单击命令按钮,窗体的输出结果是___________。
窗体上有一个命令按钮(Command1),编写如下程序,当运行程序后,单击命令按钮,窗体的输出结果是___________。Private Sub Command 1_Click ()Dim a( 3,3) As Integer For i=l To 3For j =1 To 3If i=j Then a(i, j)=1If i<j Then a(i, j)=2If i>j Then a(i, j)=3Next jNext iPrint a(1,1)+ a(2,1)+ a(3,1)* a(3,2)End Sub窗体上有一个命令按钮(Command1),编写如下程序,当运行程序后,单击命令按钮,窗体的输出结果是___________。
窗体上有一个名称为Command1的命令按钮和三个名称分别为 Text1、Text2、Text3的文本框,然后编写如下程序代码:Private x As Integer Private Sub Command 1_Click()Static y As IntegerDim z As Integer n=5z=n+zy=y+zx=x+zText1. Text=xText2. Text=yText3. Text=zEnd Sub运行程序,连续三次单击命令按钮后,则三个文本框中显示的内容分别是__________。窗体上有一个名称为Command1的命令按钮和三个名称分别为 Text1、Text2、Text3的文本框,然后编写如下程序代码:
窗体上有一个名为Text1的文本框、一个名为Label1的标签和一个名为Command1的命令按钮,编写如下事件过程:Private Sub Command 1_Click()Dim s As String S=InputBox("请输入")Text1. Text=sEnd SubPrivate Sub Text1_Change()Label1.Gaption=Right (Trim(Text1. Text),3)End Sub程序运行后,如果在对话框中输入123456,则在标签Label1中显示的内容是_________。窗体上有一个名为Text1的文本框、一个名为Label1的标签和一个名为Command1的命令按钮,编写如下事件过程:
为了使列表框中的项目呈多列显示,需要设置的属性为【 】
«
1
2
...
14
15
16
17
18
19
20
...
48
49
»