大学计算机D 样题及答案.docxVIP

大学计算机D 考试样题 一、程序分析（10分） 以下程序运行后，Label1中显示的内容是什么? Dim i%, j%, s% Label1.Text = s = 0 For i = 1 To 4 For j = 5 To 1 Step -1 s = i * j Next j Next i Label1.Text = s 二、程序填空 每空2分，共10分 21．下面的事件是随机产生一个三位正整数，然后逆序输出，并将产生的数与逆序数显示在标签的一行上。例如，随机产生123，则输出123321。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a% Randomize() a= （1） ＇产生一个三位随机整数 label1.text= a ((a Mod 10) * 100 + （2） + a \ 100) ＇将该数与该数的逆序数输出 End Sub 14．计算sum=1+3+5+...+99 ，计算结果在Label1中显示。 Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.ClickDim i As Integer, sum As Integer Dim n%,sum% sum = 0 For n = 1 To 100 Step （3） （4） Next Label1.Text = （5） End Sub 三、编程题（40分） 1. 编写程序，在文本框Textbox1中显示65-125之间的任一随机整数及该数字表示的ASCII码所对应的字符。(12分) 2. 编写程序输入一个正整数，判断其奇偶性，并在Label1中显示判断的结论。(13分) 3. 输入一串字符，统计其中大写英文字母和阿拉伯数字的个数。(8分) 4. 编写程序。求组合数。其中m、n用INPUTBOX函数输入。要求用用户自定义过程计算阶乘，组合数计算在窗体单击事件过程中完成。组合数公式：Cmn=m!n!m-n 答案 1，Label1中显示的内容是：4 2，（1）Int(Rnd()*1000) 参见第119页) ，或Int(Rnd()*100+101)，Int(Rnd()*900)+100 （2）(a Mod 100)\10 *10 （3）2，（4）sum=sum+n， （5）sum 三， 1，Dim A As Integer，C As Char A=int((125-65+1)*Rnd())+65 C=Chr(A) Textbox1.Text=AC 2，Dim B AS Integer B=Val(TextBox.text) If ( (B mod 2)=0) then Label1.text=”偶数” Else Label1.text=”奇数” End if 3参见P79 A ,B,I As Integer , Str As String A=0 B=0 Str=Textbox.Text For i=1 To Len(Str) If Mid(Str, i,1)=”A” And Mid(Str, i,1)=”Z” Then A=A+1 Else If Mid(Str, i,1)=”0” And Mid(Str, i,1)=”9” Then B=B+1 Edn if End if Next i Label1.Text=”大写字母个数=”A Label2.Text=”阿拉伯数字个数=”B 4 Public Function Power (By Val x%) Dim i%,n % n=1 For i=1 to x n=n*x Next i Power=n End Function （以下参见P70） Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim info1$,info2$ title$, Dim m%,n%,C% Info1=”请输入m” Info2=”请输入n” Tiele