计数试验
标签 Lalel 1 Caption 请输入自然数
文本框 Text 1 Text (空白)
命令按钮 Commandl Caption 倒计数
__(1)__ True
定时器 Timer 1 enabled False
interval __(2)__
[程序代码]
Private Sub Commandl_Click ( )
__(3)__
End Sub
Private Sub Timerl_Timer ( )
If Val( Textl.Text) = 0# Then
Textl.text = " "
Timerl. Enabled = False
__(4)__
Else
Textl.Text = __(5)__
End If
End Sub
试题七
阅读下列程序说明和C代码，将应填入 __(n)__ 处的字句写在答题纸的对应栏内。
[程序 7 说明]
设一个环上有编号为 0～n-1 的 n 粒不同颜色的珠子 ( 每粒珠子颜色用字母表示，n
粒珠子的颜色由输入的字符串表示)。将环中某两粒珠子间剪开，环上珠子形成一个序列，然
后按以下规则从序列中取走珠子：首先从序列左端取走所有连续同包珠子;然后从序列右端
在剩下珠子中取走所有连续同色珠子，两者之和为该剪开处可取走珠子的粒数。在不同位置
剪开，能取走的珠子数不尽相同。
本程序所求的是在环上哪个位置剪开，按上述规则可取走的珠子粒数最多。程序中用数
组存储字符串。例如，10 粒珠子颜色对应字符串为“aaabbbadcc”，从 0 号珠子前剪开，
序列为 aaabbbadcc，从左端取走 3 粒 a 色珠子，从右端取走 2 粒 c 色珠子，共取走 5
粒珠子。若在 3 号珠子前剪开，即 bbbadccaaa 共可取走 6 粒珠子。
【程序7】
#include
int count(char*s，int start，int end)
{ int i，c = 0，color = s[start]，step = ( start > end ) ?-1; 1;
for ( i = start; s[i] = color ; i += step ) {
if ( step > O && i ) end || __(n)__ ) break;
__(n)__
}
return c ;
}
void main() {
char t，s[120]; int i，j，c，len，maxc，cut=0 ;
printf( "请输入环上代表不同颜色珠子字符串：" ) ;
scanf( "%s"，s) ;
len = strlen(s) ;
for ( i = maxc = 0 ; i < len ; i++ ) { /*尝试不同的剪开方式*/
c = count(s，0，len-1) ;
if ( c < len ) c += count( __(n)__ );
if ( c > maxc) { cut = i ; maxc = c; }
/*数组s的元素循环向左移动一个位置*/
t = s[0] ;
for ( j = 1; j < len ; j++ ) __(4)__ ;
__(5)__ ;
}
printf( "在第 %d 号珠子前面剪开，可以取走制个珠子.\n" , cut，maxc ) ;
}
试题八
阅读以下应用说明以及用 Visual Basic 开发过程中所编写的程序代码，将应填人
__(n)__ 处的字句写在答题纸的对应栏内。
[应用说明]
本应用程序的运行窗口如下图所示：
只要用户在字体列表框、字号列表框中选择所需的字体、字号，在预览框中就能看到示
例文字按所需的字体、字号显示。
设字体列表框、字号列表框的名称分别为 Listl 和 List2，示例文字为标签 Labell，
其 BorderStyle 属性设置为 1 (有单边线)。
字体列表框中的字体与字号列表框中的字号都需要在该窗口加载时装入。
已知屏幕对象 Screen 的属性 Fonts 中存放着系统所具有的一系列字体名，可从
Fonts(0)，Fonts(1)，Fonts(2)，...，中获得各个字体名。Screen 对象的属性 FontCount
存放着这些字体名的总数。
字号列表框中，列出的字号依次是：8，9，10，11，12，以及14，16，18 上一页 [1] [2] [3] [4] 下一页 |
历年真题
:点击留言