vb二级填空题

Click()Р Dim x As IntegerР x = InputBox("请输入变量x的值", "输入窗口")Р y = InputBox("请输入变量y的值", "输入窗口")Р Print x + yР End SubР35.下面程序的功能是随机生成20个三位正整数,输出其中的第二大数,按要求完善程序。Р Private Sub Form_Click()Р Dim i As Integer, n As IntegerР Dim max As Integer, max1 As IntegerР n = Int(Rnd * 900) + 100Р ____max=n_____ Р For i = 1 To 19Р n = Int(Rnd * 900) + 100Р If n > max ThenР ____max1=max_______ Р max = nР ElseIf ___n>max____ ThenР max1 = nР End IfР Next iР Print "最大数是"; max; "第二大数是"; max1Р End SubР36.执行下面的程序段,文本框Text1中显示的是___9____。Р Dim i As Integer, j As IntegerР i = 1Р Do While i < 20Р j = i + jР i = i * (i + 1)Р LoopР Text1.Text = jР37.运行如下程序后,输出结果为___19____。Р For m = 1 To 4Р a = 0Р For j = 1 To 5Р a = 1Р For k = 1 To 6Р a = a + 3Р Next kР Next jР Next mР Print aР38.运行下面的程序,当单击窗体时,窗体上显示的内容为______31 63____。