个人vb上机考试总结_vb大题上机总结

2020-02-27 其他个人工作总结下载本文

个人vb上机考试总结由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb大题上机总结”。

1.Option Base 1

‘下标从1开始 Dim a(100)As Integer

‘全局变量 Private Sub Command1_Click()Open “in.txt” For Input As 1

‘读入1号文件

For i = 1 To 100

Input #1, a(i)

‘100个数一次读入

Next i Close 1 End Sub

Private Sub Command2_Click()Dim s As Integer s = 0 For i = 1 To 100

If a(i)>= 400 And a(i)

s = s + a(i)

‘400到800之间的数字相加

End If Next i Text1 = s putdata s

‘将结果存入考生文件夹中 End Sub 2.这个题很简单，回顾一下知识

Private Function fun(x As Integer)As Long Dim sum As Long sum = 1 For i = 1 To x

sum = sum * i Next i fun = sum End Function Private Sub Command1_Click()Dim a As Integer Dim s As Long a = InputBox(“请输入”)s = fun(a)Text1 = s putdata “out.txt”, Text1 End Sub 3.调用标准模块中isprime函数判断是否为素数，求100-200间素数的和 Private Sub Command1_Click()Dim i As Integer Dim s As Integer For i = 100 To 200

‘从100 到200 If isprime(i)= True Then

‘如果为素数则相加

s = s + i End If Next i Text1 = s putdata “out.txt”, Text1

‘查看代码确定变量个数End Sub 打开标准模块的方法

工程资源管理器----form1----右击----添加----添加模块 4.8+88+888+8888 Private Sub Form_Click()Dim a As Integer, n As Integer, j As Integer, sum As Single a = 8 n = 4 For j = 1 To 4

sum = sum + Item(a, n)Next j Print “sum:”;sum End Sub Function item(a, k)Dim p As String, q As String, s As Single Dim k As Integer, i As Single p = “” For i = 1 To k

q$ = Str(k)

p$ = p$ + q$ Next i s = Val(p$)item = s End Function

Private Sub Form_Click()Dim a As Integer, n As Integer, j As Integer, sum As Single a = 8 n = 4 For j = n To 1 Step-1

If j = n Then

sum = item(a, j)

Else

sum = sumhscroll.Value

‘用滚动条控制速度 End Sub Private Sub Timer1_Timer()Static i As Integer If i = 0 Then Picture1.Picture = LoadPicture(“2.ico”)

‘随时间变化，图片变化

i = 1 Else Picture1.Picture = LoadPicture(“1.ico”)i = 0 End If End Sub 6.-2.-，73，82，-76，-1，24，321，-25，89，-20 打印其中的每个负数及计算并输出正数及负数的和 Private Sub Form_Click()Dim num As Integer negativesum = 0: positivesum = 0 For i = 1 To 10 num = InputBox(“enter data:”)

‘从键盘中输入10个数

If num

Print num

negativesum = negativesum + num Else

positivesum = positivesum + num

End If Next i Print Print “negativesum=”;negativesum Print “positivesum=”;positivesum End Sub 7.a aa aaa aaaa bbbb bbb bb b

Private Sub Command1_Click()Dim a(4)As String, b(4)As String Dim k As Integer, l As Integer myfile = App.Path & “” & “picture.dat” Open myfile For Output As #1 For k = 1 To 4

a(k)= String(2 * k1, “b”)Next k For k = 1 To 4

Print #1, a(k)Next k

‘若为负数则输出再计算其和

‘计算正数和 string函数

‘ For k = 4 To 1 Step-1

‘步长一定要写

Print #1, b(k)Next k Close #1 End Sub 8.单击command1将list1中全部选中单机command2 全部写入“output.txt”中（multiselect=1）Private Sub Command1_Click()Dim i As Integer For i = 0 To List1.ListCount – 1

‘从下表为0的列表到最后一个选中都变为真

List1.Selected = True Next i End Sub

Private Sub Command2_Click()Dim i As Integer Open “out7.txt” For Output As #1

‘先打开文件再逐个写入文件中 For i = 0 To List1.ListCount500

Image1.Width = Image1.Width-500 End If End Sub 11.Private Sub Command1_Click()Text1 = InputBox(“请输入要添加的项目”)

‘从键盘输入到文本框再添加到列表框中 List1.AddItem Text1 End Sub

Private Sub Command2_Click()Text1 = InputBox(“请输入要删除的项目”)For i = 0 To List1.ListCount – 1

‘从第一个到最后一个只要与text1中相同则删除

If List1.List(i)= Text1.Text Then

List1.RemoveItem i

End If Next i End Sub 12 Private Sub Command1_Click()Dim chr As String, number As Integer, cp As Integer, lp As Integer Dim others myfile1 = App.Path & “” & “prog8a.dat”

‘路径

myfile2 = App.Path & “” & “prog8b.dat” Open myfile1 For Input As #1

打开已有文件myfile1，创建myfile2分别作一号和二号文件 Open myfile2 For Output As #2

While Not Eof(1)

Input #1, chr

If Asc(chr)>= 48 And Asc(chr)

number = number + 1

‘用asc码来识别性质

ElseIf Asc(chr)>= 65 And Asc(chr)

cp = cp + 1

ElseIf Asc(chr)>= 97 And Asc(chr)

lp = lp + 1