vb期中試題分析-資料下載頁
2025-06-09 21:27本頁面
【正文】 Then n1 = n1 + 1 Else n2 = n2 + 1 End If Next i = n1 = n2End Sub16. 下面是一個(gè)求函數(shù)f(x)值的程序。 其中，（2n1）!!=135......(2n1)。計(jì)算到第n項(xiàng)的絕對(duì)值為止。Option ExplicitPrivate Sub Command1_Click() Dim x As Single, i As Integer, a As Single, sum As Single x = Text1 i = 1 a = 1 Do a = a*(2*i1)*x/(2*i+2) If Abs(a) = Then Exit Do sum = sum + a i=i+1 Loop Text2 = sumEnd Sub17. 下面是一個(gè)二進(jìn)制數(shù)字分割器，對(duì)文本框中輸入的二進(jìn)制串按所需位數(shù)進(jìn)行分割，并將分離后的二進(jìn)制數(shù)存放到列表框中。如下圖所示，圖中控件均使用系統(tǒng)默認(rèn)名稱。Private Sub Command1_Click() Dim s As String, st As String, i As Integer, n As Integer, k As Integer If =True Then k = 8 Else k = 16 s = Text1 Do Until n=Len(s) n = n + 1 If n Mod k 0 Then st = st amp。 Mid(s, n, 1) Else st = st amp。 Mid(s, n, 1) st St=”” End If LoopEnd Sub三、編程題 〖每題10分，共計(jì)10分〗；1. 輸出20個(gè)1~100以內(nèi)的隨機(jī)單精度數(shù)，要求每行顯示5個(gè)，并求其中的第二大數(shù)。Private Sub Form_Click() Dim i As Integer Dim x As Single Dim max As Single, max2 As Single 39。max存放最大值,max2存放第二大數(shù) For i = 1 To 20 x = Rnd * 99 + 1 Print x。 If i Mod 5 = 0 Then Print If i = 1 Then 39。第1個(gè)數(shù) max = x ElseIf i = 2 Then 39。第2個(gè)數(shù) max2 = x If max2 max Then temp = max: max = max2: max2 = temp 39。使max大于max2 Else 39。第320個(gè)數(shù) If x max Then max2 = max: max = x ElseIf x max2 Then max2 = x End If End If Next i Print 第二大數(shù)是。 max2End Sub
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號(hào)-1