![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
2013春江蘇省計(jì)算機(jī)二級(jí)VB上機(jī)真題2 |
一、改錯(cuò)題 【題目】 本程序的功能是找出給定范圍內(nèi)因子個(gè)數(shù)最多的整數(shù).程序界面參加下圖 (本程序界面由1個(gè)ListBox、1個(gè)Label、1個(gè)TextBox和1個(gè)CommandButton組成,所有對(duì)象均采用缺省名) Option Explicit Option Base 1 Private Sub Command1_Click() Dim i As integer,j as integer,m as integer,n as integer Dim s As String, mx as integer Dim yz() as integer,c() as integer m=15: n=35 Redim c(m:n) For i=m to n s=i & ":" Call qyz(i,yz) c(i)=Ubound(yz) For j=1 to Ubound(yz) s=s & yz(j) &"," next j s=Left(s,len(s)-1) List1.Additem s Next i mx=c(1) For i=m to n if c(i)>mx then mx=c(i) Next i For i=m to n if c(i)=mx then Text1.text=text1.text & i & "," Next i Text1.Text=Left(Text1.text,Len(text1.text)-1) End Sub Private Sub qyz(Byval n as integer,yz() as integer) Dim i as integer,p as integer For i=1 to n-1 if n mod i=0 then p=p+1 Redim yz(p) yz(p)=i End if next i End Sub 1.新建工程,按參考界面形式創(chuàng)建窗體,再從T盤根目錄下的err.txt文件中將有錯(cuò)誤的程序代碼復(fù)制到代碼編輯器窗口中或自行輸入上述代碼,改正程序中的錯(cuò)誤。 2.改錯(cuò)時(shí),不得增加或刪除語句,但可適當(dāng)調(diào)整語句的位置。 3.將窗體文件和工程文件分別命名為F1和P1,并保存到T盤的根目錄下。 二、編程題 【題目】 編寫程序,輸入一個(gè)對(duì)稱數(shù),求比該對(duì)稱數(shù)大的最近的一個(gè)對(duì)稱數(shù),所以對(duì)稱數(shù)是指正讀與倒讀都相同的整數(shù),例如12321就是一個(gè)對(duì)稱數(shù) 【編程要求】 1.程序界面參見下圖,編程時(shí)不得增加或減少界面對(duì)象或改變對(duì)象的種類,窗體及界面元素大小適中,且均可見
2.運(yùn)行程序,在“對(duì)稱數(shù)n:”文本框中輸入一個(gè)整數(shù),按”運(yùn)行”按鈕,判斷輸入的數(shù)是否為對(duì)稱數(shù),如果是,則計(jì)算機(jī)下一個(gè)對(duì)稱數(shù),并顯示結(jié)果,否則,顯示如圖所示 |