亚洲国产福利在线一二三观看_精品国产伦一区二区三区欲臀_国产a∨视频精品视频护士_精品八戒人妻少妇av

江蘇省高校計(jì)算機(jī)等級(jí)考試命題研究院 江蘇省高校計(jì)算機(jī)等級(jí)考試輔導(dǎo)
2013春江蘇省計(jì)算機(jī)二級(jí)VB上機(jī)真題2

一、改錯(cuò)題

【題目】

  本程序的功能是找出給定范圍內(nèi)因子個(gè)數(shù)最多的整數(shù).程序界面參加下圖

(本程序界面由1個(gè)ListBox、1個(gè)Label、1個(gè)TextBox1個(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.將窗體文件和工程文件分別命名為F1P1,并保存到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é)果,否則,顯示如圖所示