《vb程序填空》由会员分享,可在线阅读,更多相关《vb程序填空(3页珍藏版)》请在金锄头文库上搜索。
1、第1题 功能:求 1!+2!+10!的值。Private Sub Form_Click()*SPACE*【?】s = 1For I = 2 To 10 t = t * I*SPACE* 【?】*SPACE*【?】Print sEnd Sub答案:1). t = 1 2). s = s + t 3). Next I 或 Next第1题 功能:下面的程序用于求三个数中最大数Private Sub Command1_Click() Dim a, b, c, max, min As Integer a = Val(InputBox(请输入第一个数: ) b = Val(InputBox( 请输入第二个
2、数: ) c = Val(InputBox(请输入第三个数: ) *SPACE* 【?】 = a min = a *SPACE* If b max Then 【?】 If b min Then min = b *SPACE* If 【?】 Then max = c If c max 或 max 10 Then *SPACE* y = Sqr(x) 【?】 Else y = 2 * x 3 + 6 End If Print yEnd Sub 答案: 1). y 2). InputBox 3). y = 0 4). + Sin(x)第1题 (10.0分) 题号:507Option Explicit
3、 【程序填空】功能: 本程序实现功能:将顺序文本文件 “MYFILE.TXT” 的 内容一个字符一个字符地读入文本框txtTest中-Private Sub Form_Click() Dim InputData As String * 1 txtTest.Text = *SPACE* Open App.Path & MYFILE.TXT For 【?】 As #1 *SPACE* Do While 【?】 EOF(1) Input #1, InputData *SPACE* txtTest.Text = txtTest.Text + 【?】 Loop Close #1End Sub 答案: 1
4、). Input 2). Not 3). InputData第1题 (10.0分) 题号:51【程序填空】功能:下面的程序段用于建立文件并输出文件,文件内容如下:Private Sub Form_Click()*SPACE*Open c:1.txt For 【?】 As #1For i = 1 To 5 Print #1, Spc(i); *Next i*SPACE*【?】*SPACE*Open c:1.txt For 【?】 As #1For i = 1 To 5 Line Input #1, x Print xNext iClose #1End Sub 答案: 1). Output 2).
5、 Close #1 或 Close 3). Input第1题 (10.0分) 题号:41【程序填空】下面过程max()用于求3个数中最大值,利用这个过程求5个数中最大值。-Private Sub Form_Click()Print 5个数34、124、68、73、352的最大值是:max1 = max(34, 124, 68)*SPACE*max1 =【?】Print max1End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)*SPACE*If 【?】 Then m = aElse m = bEnd If*SPACE*If 【?】 Then max = mElse max = cEnd IfEnd Function 答案: 1). max(max1, 73, 352) 2). ab 或 b c 或 c m第1题 (10.0分) 题号:521【程序填空】功能:下面的事件过程判断文本框Text1中输入的数所在区间, 并在文本框Text2中输出判断结果Private Sub Command1_Click() Dim int1 As Integer *SPACE* 【?】 = Val(Text1.Text) Select Case int1